Ad Soyad ayırma ve Ekleme

[okankoc25]

Forumdaki Textboxta ad-soyad ayırma işlemi ile ilgili bir örnek buldum fakat iki isimli olduğunda ayrımı yapmıyor.1) istediğim iki isimliler dahil ayırması ve 2) bu ayırdığı soyadı Textbox4 de yazdığım ismin sonuna eklemesi.Dosya ektedir.İlgilenenlere şimdiden teşekkür bir borç bilirim.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Private Sub TextBox1_Change()
    Dim say() As String
    On Error Resume Next
    If TextBox1.Value = "" Then TextBox2.Value = ""
    say = Split(TextBox1.Value, " ")
    TextBox2.Value = say(0)
    TextBox3.Value = say(1)
    TextBox4.Value = say(2)
End Sub[/FONT]

 

[okankoc25]

Tam olmadı çünkü 2 isimlileri ayırıyor tek isimlileride ayırsın istiyorum.

 

[Murat OSMA]

Tam olarak ne yapmak istediğinizi anlamadım.


TextBox1'e Murat OSMA yazarsanız


Murat'ı TextBox2'ye
OSMA'yı TextBox3'e yazar..



TextBox2'ye Murat Emre OSMA yazarsanız


Murat'ı TextBox2'ye
EMRE'yi TextBox3'e
OSMA'yı TextBox4'e yazar.

Sizin istediğiniz tam olarak nasıl ?

 

[okankoc25]

Murat Bey ben istediğim ad kısmını textbox2 ye soyad kızmını textbox3 yazsın istiyorum.textbox4 e herhangi bir şey yazınca soyadını eklesin istiyorum..

 

[Murat OSMA]

Murat Bey ben istediğim ad kısmını textbox2 ye soyad kızmını textbox3 yazsın istiyorum.textbox4 e herhangi bir şey yazınca soyadını eklesin istiyorum..

Kodları bu şekilde revize edin;

[FONT="Trebuchet MS"]Private Sub TextBox1_Change()
    Dim say() As String
    On Error Resume Next
    If TextBox1.Value = "" Then TextBox2.Value = "": _
    TextBox3.Value = "": TextBox4.Value = ""
    say = Split(TextBox1.Value, " ")
    If UBound(say) > 1 Then
        TextBox2.Value = say(0) & " " & say(1)
        TextBox3.Value = say(2)
            Else
        TextBox2.Value = say(0)
        TextBox3.Value = say(1)
        TextBox4.Value = say(2)
    End If
End Sub[/FONT]

Yalnız, ikinci cümlenizi tam anlamadım.
TextBox4'e Soyadını yazınca nereye ekleyecek ?
Gerçi bu ufak işi de siz yazabilirsiniz.

 

[okankoc25]

Textbox4 e herhangi bir metin yazınca sonuna soyadını eklemesini istiyorum onun için kullanacağım.Aslında benim bir proğramım var, bu proğramda aile bireyleri olduğu için ilk önce yazdığım aile bireyinin soyadını yazmadan diğer textboxlarda otomatik gelsin istiyorum.İlgin için ayrıca tşk ederim.

 

[Murat OSMA]

[FONT="Trebuchet MS"]Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox4.Value = TextBox4.Value & " " & TextBox3.Value
End Sub[/FONT]

 

[okankoc25]

Murat Bey çok teşkkür ederim ellerinize sağlık..

 

[Murat OSMA]

Rica ederim, iyi akşamlar.