parçaal ve mbul

[akd]

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

 

[Kemal Demir]

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

 

[akd]

Merhaba sayın Rakkas
ben bu yapmak istedigimi userform üzerindeki textbox larda yapmak istiyorum.
selamlar

 

[kundakci]

Merhaba

Yapmaka istediğimiz makro ektedir
Textbox1 yazın tab tuşu ile diğer textbox2 geçin

Not Bu makroda sadece ad ve soyad girilerek çalışır
Eğer Ahmet Hamdi TANPINAR gibi isimlerde A.Hamdi Tanpınar şeklinde girmeniz gerekir..

Kolay gelsin

 

[akd]

merhabalar kundakci kardeş ,
elinize sağlık çok güzel tam istedigim gibi.
çok çok teşekkürler...