Excelde isim ve soyisimleri ayırmada macro yöntemi



Eğer bir excel tablosunda isimler ve soyisimler tek sütuna yazılmışsa ve bunların farklı sütunlara isimler bir ütunda soyisimler farkli bir sütunda olacak şekilde taşınması isteniyorsa aşağıdaki

vbscript kullanılabilir. aşağıdaki scripti vb makro modülü olarak aktarın ve çalıştırın. İsim 2.sütun ve 2. satırdan başladığı varsayılıyor. Ayrıca kişinin iki adı varsa he ikişini de ad sütununa aktarabiliyor.

Sub ayır()
' İsimler 2. satırdan başlıyor. Bu nedenle satır=2 olarak belirtiliyor.
sat = 2
basa:
' İsimler birleşik olarak 2. sütunda
adsoy = Cells(sat, 2)
If adsoy = "" Then End
uz = Len(adsoy)
s = 0
For i = uz To 1 Step -1
s = s + 1
harf = Mid(adsoy, i, 1)
If harf = " " And s < 2 Then GoTo bidaa
If harf = " " Then
soy = Right(adsoy, s - 1)
ad = Left(adsoy, uz - s)
Cells(sat, 3) = ad
Cells(sat, 4) = soy
sat = sat + 1
GoTo basa
End If
bidaa:
Next i
sat = sat + 1
GoTo basa
End Sub

Bu kodları nasıl kayıt edecez? , Makro modülünü nasıl kullanacaz? diyorsaniz (aşağıda)
Excel ekranında aşağıda bulunan sayfa isimlerinin birinin üzerine fare ile sağ tıkla. Şöyle bir şey gelmeli.

Burada Kod Görüntüle seçtiğinde şu ekran gelmeli

Ekleme tuşu ile Module seçilir. (ki aşağıdaki gibidir)

ve eklenmiş hali

Yukarıda verdiğim kodları olduğu gibi kopyalayıp ekranın sağıdaki alana yapıştır.

Bu bölümü kapatarak excel tablosuna gel. Yukarıda açıkladığım gibi isimler ve soyisimler birleşik olarak satır=2 sütun=2’den itibaren yazabildiğin kadar yaz. Bitince alt-f8’e bas gelen ekran aşağıda

Makrolar penceresinde çalıştırılacak makro adına tıklanır (zaten başka olmadığı için seçili durumdadır). Çalıştır düğmesine basılır.Sonuç olarak aşağıdaki gibi bir ekran görmen gerekir.

yasarcik nicki üyemize tesekürler


Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Captcha