Userformlar Arası Kayıt

[northcyprus]

Merhabalar sayın hocalarım ve Arkadaşlar takıldığım bir konuda yardımınıza ihtiyacım var.
yapamadığım şey userform1 arasında textbox1 e çift tıkladıgımda açılan Userform2 de Textbox1 e yazdığım yazı bir önceki userformda tıkladığım textboxa yazmasını istiyorum. Yani userform1 de Textbox1 e çift tıkladığımda userform2 açılıyor ve textbox1 e yazdığım oluyor.
fakat userform1 de Textbox2 e çift tıkladığımda userform2 açılıyor ve textbox1 e yazdığım userform1 deki Textbox2 ye yazmıyor
aynı şekil userform1 de Textbox3 e çift tıkladığımda userform2 açılıyor ve textbox1 e yazdığım userform1 deki Textbox3 ye yazmıyor

dosyayı ekledim
yardımlarınız için şimdiden teşekürler

 

[northcyprus]

Private Sub TextBox1_Change()
UserForm1.TextBox1.Value = UserForm2.TextBox1.Value
End Sub

 

[northcyprus]

Private Sub TextBox1_Change()
UserForm1.TextBox1.Value = UserForm2.TextBox1.Value
End Sub

Burada userform1.textbox2 ye çift tıklayınca koddaki kırmızı olan bölüm userform1.textbox2 olmalı
userform1.textbox3 e çift tıklayınca koddaki kırmızı bölüm userform1.textbox3 olmalı bu böyle tekrar eden 10larca textbox var bunu bir yolu var mı?

 

[northcyprus]

sayın hocalarım ve arkadaşlar
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Tag = "UserForm1.TextBox1"
UserForm2.Show
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Tag = "UserForm1.TextBox2"
UserForm2.Show
End Sub

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Tag = "UserForm1.TextBox3"
UserForm2.Show
End Sub


Userform2 de
textbox değiştiğinde Userform2 deki Tag daki yazıyı nasıl yazdırabiriz.. yapıyorum ama olmuyor

Private Sub TextBox1_Change()
UserForm2.Tag.Text = Userform2.TextBox1.Value

End Sub

 

[northcyprus]

çözemedim
Private Sub TextBox1_Change() olayına label 1 in tagındakitext i ekleyemedim

 

[northcyprus]

label 1 caption da yazan ı TextBox1_Change olayındaki [E1] in yerine nasıl yazırabilirim.

Private Sub TextBox1_Change()

[E1] = TextBox1.Text

End Sub