Kod içerisindeki bilgiler textboxa yazılabilirmi?

[kelkitli]

Selamlar,
UserForm üzerinde 3 adet TextBox var.
TextBox1 e yaka numarasını yazınca, TextBox2 de Adı Soyadı, TextBox3 te de TC Kimlik no olması gerekiyor. Ancak bu veriler sabit olduğundan kod içerisinden kullanmak istiyorum. Şu şekilde veya benzer bir şekilde.

Sub veriler()
1,Ali KÖSE,2222222222
2,Veli ILGAZ,3333333333
3,Selami KAF,44444444444
End Sub()

TextBox1 e 1 yazınca TextBox2 ye Adı Soyadı, TextBox3 e TC Kimlik No gelsin.

 

[hamitcan]

Private Sub TextBox1_Change()
    Select Case TextBox1.Text
        Case 1: TextBox2 = "ali": TextBox3 = 555
        Case 2: TextBox2 = "veli": TextBox3 = 666
        Case 3: TextBox2 = "huso": TextBox3 = 777
        Case Else: TextBox2 = "": TextBox3 = ""
    End Select
End Sub

 

[security]

Selamlar,
UserForm üzerinde 3 adet TextBox var.
TextBox1 e yaka numarasını yazınca, TextBox2 de Adı Soyadı, TextBox3 te de TC Kimlik no olması gerekiyor. Ancak bu veriler sabit olduğundan kod içerisinden kullanmak istiyorum. Şu şekilde veya benzer bir şekilde.

TextBox1 e 1 yazınca TextBox2 ye Adı Soyadı, TextBox3 e TC Kimlik No gelsin.

Bunun Gibi mi?...

 

[kelkitli]

Teşekkür ederim, Sayın Hamitcan ve Sayın security,
Sayın Hamitcan kodlarınız işimi gördü. Sağolun.