Userformlar Arası Kayıt

Katılım
4 Mayıs 2007
Mesajlar
234
Excel Vers. ve Dili
office 2007 64 bit
office 2010 64 bit
Altın Üyelik Bitiş Tarihi
14-09-2023
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
 
Katılım
4 Mayıs 2007
Mesajlar
234
Excel Vers. ve Dili
office 2007 64 bit
office 2010 64 bit
Altın Üyelik Bitiş Tarihi
14-09-2023
Private Sub TextBox1_Change()
UserForm1.TextBox1.Value = UserForm2.TextBox1.Value
End Sub
 

Ekli dosyalar

Katılım
4 Mayıs 2007
Mesajlar
234
Excel Vers. ve Dili
office 2007 64 bit
office 2010 64 bit
Altın Üyelik Bitiş Tarihi
14-09-2023
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ı?
 
Katılım
4 Mayıs 2007
Mesajlar
234
Excel Vers. ve Dili
office 2007 64 bit
office 2010 64 bit
Altın Üyelik Bitiş Tarihi
14-09-2023
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
 
Katılım
4 Mayıs 2007
Mesajlar
234
Excel Vers. ve Dili
office 2007 64 bit
office 2010 64 bit
Altın Üyelik Bitiş Tarihi
14-09-2023
çözemedim
Private Sub TextBox1_Change() olayına label 1 in tagındakitext i ekleyemedim
 

Ekli dosyalar

Katılım
4 Mayıs 2007
Mesajlar
234
Excel Vers. ve Dili
office 2007 64 bit
office 2010 64 bit
Altın Üyelik Bitiş Tarihi
14-09-2023
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
 

Ekli dosyalar

Üst