merhaba arkadaşlar,
benim yapmak istedigim,
text1 de isim soyisim var ,
text2 ye ismi
text3 e de soyismi almak istiyorum.
yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım
Sn leventm daha once vermiş olduğu kod umarım işine yarar
Sub kirp()
For a = 2 To [a65536].End(3).Row
For b = Len(Cells(a, 1)) To 1 Step -1
deg = Mid(Cells(a, 1), b, 1)
If deg = " " Then GoTo 10
birlestir = deg & birlestir
Next
10 Cells(a, 2) = birlestir
birlestir = ""
Cells(a, 1) = Left(Cells(a, 1), Len(Cells(a, 1)) - Len(Cells(a, 2)))
Next
End Sub
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.