Isim soyisim ayırma

[Bintang]

Merhaba şirket bünyemizde uzun isim ve soy isimli arkadaşlar var bunları isim ve soy isim olarak ayırmak istiyorum ama başaramadım bana bu konuda yarıdımcı olurmusunuz. Örnek ektedir.

 

[u.L.a.s]

isim soyisim verilerini B2 den başlıyor gibi düşünürsek

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

 

[ayşe006]

a sutununu seçin -veri- metni sutna dönüştür-sınırlandırılmış seçeneğini seçin. daha sonra boşluk yazan kutucuğu işaretleyin. unutmayın bu işlemi yaparken isim soyisim 3 ise (örnek: ahmet veli turna) ayrı ayrı 3 sutun boşluk bırakmanız gerekmektedir. daha sonra isimleri formülle birleştirmeyi deneyin. benim bildiğim en kısa yol.

 

[denese]

Bu konuda forumda açıklayıcı çözümler bulabilirsiniz.

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/f50/sim-ve-soyisim-ayyrma-t119884.html

 

[u.L.a.s]

ayrıca bu kou altında farklı makro örneklerde mevcut

http://www.excel.web.tr/f48/kelime-ayyrma-ad-soyad-ayyrma-farkly-formatta-ystyyorum-t74038.html

 

[Bintang]

Üstadım A3 olarak değiştirmek istersem ne yapmam gerek acaba

 

[u.L.a.s]

Kırmızı renklerle gösterdim değişecek yerleri bu şekliyle modüle kopyalayıp bir butona atarsan istediğin olur. A3 teki ad soyad verisini B3 e ad ı yazar C3 e soyadını yazar

Sub ayır()

sat = [COLOR="Red"][B]3[/B][/COLOR]
basa:

adsoy = Cells(sat, [COLOR="Red"][B]1[/B][/COLOR])
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, 2) = ad
Cells(sat, 3) = soy
sat = sat + 1
GoTo basa
End If
bidaa:
Next i
sat = sat + 1
GoTo basa
End Sub

 

[Asri]

Merhaba şirket bünyemizde uzun isim ve soy isimli arkadaşlar var bunları isim ve soy isim olarak ayırmak istiyorum ama başaramadım bana bu konuda yarıdımcı olurmusunuz. Örnek ektedir.

Dosyayı göremedim ancak, iki soyadı ve iki adı olanları var mı?

Sadece ilk isim ve son soyadı mı alınacak?

 

[Bintang]

Üstad büyüksün teşekkür ederim.

 

[Asri]

Alternatif;

Excel de sağ tuş da eklenti ile bu işlemi ve daha birçok işlemi bir iki tıklama ile yapabilirsiniz.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

 

[Bintang]

Evet üstad örneğin LEYLA GÜLSÜN GÖK ÖZTÜRK

 

[u.L.a.s]

Şu varki
Ad 1 den fazla olabilir ama soyad tektir. evlendikten sonra kızlık soyismini kaldırmayanların kızlık soyadı artık ad durumunda kalır. erkeğe ait aldıkları soyad soyadlarıdır artık.

yani bu burada bu script ayırım yaparken Ad sütununa LEYLA GÜLSÜN GÖK yazacak soyad sütununa ÖZTÜRK yazacak.

 

[Murat OSMA]

Verileriniz A1 hücresinden itibaren alt alta olsun.
B1 hücresine bu formülü girip aşağıya doğru çekin;

[SIZE="2"]=[COLOR="Red"]SOLDAN[/COLOR](A1;[COLOR="Blue"]BUL[/COLOR]("*";[COLOR="DarkOrange"]YERİNEKOY[/COLOR](A1;" ";"*";[COLOR="MediumTurquoise"]UZUNLUK[/COLOR](A1)-[COLOR="mediumturquoise"]UZUNLUK[/COLOR]([COLOR="DarkOrange"]YERİNEKOY[/COLOR](A1;" ";"")))))[/SIZE]

C1 hücresine de bu formülü yapıştırıp aşağıya çekiniz..

[SIZE="2"]=[COLOR="Blue"]YERİNEKOY[/COLOR](A1;B1;"")[/SIZE]

 

[Bintang]

Üstad Çok Teşekkür Ederim.

 

[assenucler]

Bir rica

Sayın Murat Osma,

İyi günler.
11. mesajdaki "LEYLA GÜLSÜN GÖK ÖZTÜRK" örneğinde, sağdan 2 sözcüğün "soyadı" olduğunu varsayalım, bu durumda formülünüz nasıl olmalı?

Katkınız için teşekkürler.

Sevgi ve saygılar.

 

[Murat OSMA]

Bu yeterli olur.

[SIZE="2"]=[COLOR="Red"]soldan[/COLOR](a1;bul("*";[COLOR="Blue"]yerinekoy[/COLOR](a1;" ";"*";[COLOR="SeaGreen"]2[/COLOR])))[/SIZE]