Ad Soyadı ayır kodlarında değişiklik

[Erdinç FIRTINA]

Değerli Üyeler,

Ad Soyadı ayır kodlarında değişiklik yapmak istiyorum ancak adrese göre uyarlayamadım.

Yardımlarınız için teşekkürler!!!

Aşağıdaki kodlar B sütunundaki adı soyadı c ve d sütunlarında değiştiriyor,
Adı Soyadı R sütununda olacak ve S ve T sütunlarında da adı soyadı ayıracak şekilde düzenlemek istiyorum.

[C265536].Clear
For i = 2 To Cells(65536, 2).End(xlUp).Row
a = Split(Cells(i, 2), " ")
For j = 0 To UBound(a) - 1
Cells(i, 3) = Trim(Cells(i, 3) & " " & a(j))
Next j
Cells(i, 4) = Trim(a(UBound(a)))
Next i


[S2:T65536].Clear
For i = 2 To Cells(65536, 2).End(xlUp).Row
a = Split(Cells(i, 19), " ")
For j = 0 To UBound(a) - 1
Cells(i, 19) = Trim(Cells(i, 19) & " " & a(j))
Next j
Cells(i, 20) = Trim(a(UBound(a)))
Next i

 

[arifcell]

Merhaba

Erdınc bey merhaba
örnek bir dosya ekleyebilir misiniz?

 

[hsayar]

Değerli Üyeler,

Ad Soyadı ayır kodlarında değişiklik yapmak istiyorum ancak adrese göre uyarlayamadım.

Yardımlarınız için teşekkürler!!!

Aşağıdaki kodlar B sütunundaki adı soyadı c ve d sütunlarında değiştiriyor,
Adı Soyadı R sütununda olacak ve S ve T sütunlarında da adı soyadı ayıracak şekilde düzenlemek istiyorum.

C2:D65536].Clear
For i = 2 To Cells(65536, 2).End(xlUp).Row
a = Split(Cells(i, 2), " ")
For j = 0 To UBound(a) - 1
Cells(i, 3) = Trim(Cells(i, 3) & " " & a(j))
Next j
Cells(i, 4) = Trim(a(UBound(a)))
Next i
 
 
[S2:T65536].Clear
For i = 2 To Cells(65536, [COLOR=red]2[/COLOR]).End(xlUp).Row            'Ad Soyadın birlikte yazıldığı Sütun örnekte 2. sütun yani B kendinize göre düzenleyiniz.
a = Split(Cells(i, [COLOR=red]19[/COLOR]), " ")             'burada da ad soyadın birlikte oluğu sütun yazılmalıdır....
For j = 0 To UBound(a) - 1
Cells(i, [COLOR=blue]19[/COLOR]) = Trim(Cells(i, [COLOR=red]19[/COLOR]) & " " & a(j))     'mavi değer  adın ayrılıp yazılacağı sütun, kırmızı değer ad soyadın birlikte yer aldığı sütundur.
Next j
Cells(i, [COLOR=blue]20[/COLOR]) = Trim(a(UBound(a))) 'mavi değer soyadın ayrılıp yazılacağı sütundur.
Next i

Ad soaydadın hangi sütunda birleşik olduğunu bellirtediğiniz için bu şekilde açıkladım.