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
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.