TextBox1'e Resen yazdığımda TextBox2'e Resen yazma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Userform üzerinde bulunan bulunan iki adet TextBox nesnesine birincisine Resen yazdığımda ikinci TextBox'a da aynısını yazmasını istiyorum.
Bu kodu kullandım olmadı,
Private Sub TextBox1_Change()
TextBox2 = TextBox1("Resen""Resen""")
End Sub
dosyam ekte. Teşekkürler.

 

[mrcylmz_61]

Private Sub TextBox1_Change()
TextBox2.Text = TextBox1.Text

End Sub
üstteki kodu deneyiniz.

 

[Hacı Bayram ÖZKAN]

Üstad bu kodla TextBox1'e ne yazarsan TextBox2'e aynısını yazıyor, bunu denedim oysa isteğim TextBox1'e sadece resen yazınca TextBox2'e resen yazacak diğerlerinde yazmayacak.

 

[mrcylmz_61]

Private Sub TextBox1_Change()
If TextBox1.Text = "resen" Then
TextBox2.Text = TextBox1.Text
End If
End Sub

bu kodu dener misiniz.

 

[Hacı Bayram ÖZKAN]

Tamam üstadım oldu, şuda olabilir mi? Back Space tusu ile silince TextBox2'i silsin mümkünse eğer teşekkürler.

 

[mrcylmz_61]

Private Sub TextBox1_Change()
If TextBox1.Text <> "resen" Then
TextBox2.Text = ""
End If
If TextBox1.Text = "resen" Then
GoTo 1111
Else
GoTo 2222
End If
1111
TextBox2.Text = TextBox1.Text
2222
End Sub

bu kod işinizi görür sanırım.

 

[Hacı Bayram ÖZKAN]

eyvallah üstadım eline sağlık dua ile kal