Ad soyadı ayırma

[yurekliumut]

Selam arkadaşlar

acilen yardıma ihtiyacım var belkide çok basit olabilir ama ben yapamadım ve çok öenmili benim için.

Ektede sunduğum örnekteki gibi adı soyadı yazılı olan sutundakileri adı ve soyadı olarak iki sutuna ayırmam gerekiyor ad soyadlar aynı uzunlukta değil birde tabi çift isimliler var yapmak istediğim tam olarak soyadının başladığı yerden bölmek...

Liste 65000 kişiden oluşuyor tek tek elle yapmak mümkün değil yokmu bunun bir yolu...

 

[excel03]

merhaba;

(forum içinden alıntıdır)

Sub soyad_ayir()
Columns("B:C").ClearContents
For i = 1 To Cells(65536, 1).End(xlUp).Row '1.satırdan itibaren
a = Split(Cells(i, 1), " ")
For j = 0 To UBound(a) - 1
Cells(i, 2) = Trim(Cells(i, 2) & " " & a(j))
Next j
Cells(i, 3) = Trim(a(UBound(a)))
Next i
End Sub

 

[Huseyinkis]

Selam arkadaşlar

acilen yardıma ihtiyacım var belkide çok basit olabilir ama ben yapamadım ve çok öenmili benim için.

Ektede sunduğum örnekteki gibi adı soyadı yazılı olan sutundakileri adı ve soyadı olarak iki sutuna ayırmam gerekiyor ad soyadlar aynı uzunlukta değil birde tabi çift isimliler var yapmak istediğim tam olarak soyadının başladığı yerden bölmek...

Liste 65000 kişiden oluşuyor tek tek elle yapmak mümkün değil yokmu bunun bir yolu...

B2=EĞER(EHATA(MBUL(" ";A2;MBUL(" ";A2)+1));PARÇAAL(A2;1;MBUL(" ";A2;1)-1);PARÇAAL(A2;1;MBUL(" ";A2;MBUL(" ";A2)+1)-1))

C2=EĞER(EHATA(MBUL(" ";A2;MBUL(" ";A2)+1));PARÇAAL(A2;MBUL(" ";A2;1)+1;999);PARÇAAL(A2;MBUL(" ";A2;MBUL(" ";A2)+1)+1;999))

formulleri ilgili satırlara yapıştırıp aşağı doğru çekin..

 

[raguzel]

1.Metni sütunlara dönüştür. özelliğini seç

 

[raguzel]

Mükemmel....

 

[yurekliumut]

b2=eğer(ehata(mbul(" ";a2;mbul(" ";a2)+1));parçaal(a2;1;mbul(" ";a2;1)-1);parçaal(a2;1;mbul(" ";a2;mbul(" ";a2)+1)-1))

c2=eğer(ehata(mbul(" ";a2;mbul(" ";a2)+1));parçaal(a2;mbul(" ";a2;1)+1;999);parçaal(a2;mbul(" ";a2;mbul(" ";a2)+1)+1;999))

formulleri ilgili satırlara yapıştırıp aşağı doğru çekin..

herşey için çok teşekkürler makrodan anlamam ama bu formül işimi görecek sanırım çok sağolun iyiki varsınız...