Metnı sondan başa doğru yazdırma ...

[bayram09]

SOYADI, ADI şeklinde isimleri aradaki virgülü ve metni çevirerek ADI SOYADI şeklinde nasıl yazdırabilirim?

Örnek: BAHAR, CUNEYT
Sonuç: CUNEYT BAHAR şeklinde...

Not: 50000 satırlık bir çalışma sayfasıdır...

 

[hamitcan]

Bilgilerinizin, A sütununda olduğunu varsaydım.

Sub AdiSoyadi()
For i = 1 To [a65536].End(3).Row
x = WorksheetFunction.Search(",", Cells(i, 1))
Cells(i, 2) = Mid(Cells(i, 1), x + 1, Len(Cells(i, 1))) & " " & Left(Cells(i, 1), x - 1)
Next
MsgBox "Bitti"
End Sub

 

[Aybek]

programsız da bul değiştirle yapabilirsiniz. A sütünundaysa mesela b ye de kopyalar, a sütununda bul değiştir açıp *, deyip boş değerle değiştirdiğinizde ","den öncesini siler. B sütununda ,* deyip aynını yaptığınızda da "," den sonrasını siler. Böylece a sütunda soyad b sütunda ad olmuş olur. =B1&", "&A1 dediğinizde de yapmaya çalıştığınızı yapması lazım.