2.Forma Bilgiler Nasıl Aktarılır

[eminuslu]

Sevgili arkadaşlar ekte gönderdiğim dosyamdaki bilgilerden medeni halinden itibaren Userform2 deki forma aktarılmasını ve 2.formu aç düğmesine tıkladığımda da bilgileri aktarılan user2 deki formda görmek istiyorum bu konuda yardımcı olma gayreti gösteren herkese sonsuz teşekkürler

 

[İhsan Tank]

Sevgili arkadaşlar ekte gönderdiğim dosyamdaki bilgilerden medeni halinden itibaren Userform2 deki forma aktarılmasını ve 2.formu aç düğmesine tıkladığımda da bilgileri aktarılan user2 deki formda görmek istiyorum bu konuda yardımcı olma gayreti gösteren herkese sonsuz teşekkürler

merhaba
userform1'deki commandbutton2'nin kodunu bununla değiştirin

Private Sub CommandButton2_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
If bul = ComboBox1 Then
bul.Offset(i, -1).Activate
TextBox1 = bul.Offset(i, 1)
TextBox2 = bul.Offset(i, 2)
TextBox3 = bul.Offset(i, 3)
TextBox4 = bul.Offset(i, 4)
TextBox5 = bul.Offset(i, 5)
TextBox6 = bul.Offset(i, 6)
TextBox7 = bul.Offset(i, 7)
UserForm2.TextBox8 = bul.Offset(i, 8)
UserForm2.TextBox9 = bul.Offset(i, 9)
UserForm2.TextBox10 = bul.Offset(i, 10)
UserForm2.TextBox11 = bul.Offset(i, 11)
UserForm2.TextBox12 = bul.Offset(i, 12)
UserForm2.TextBox13 = bul.Offset(i, 13)
UserForm2.TextBox14 = bul.Offset(i, 14)
UserForm2.TextBox15 = bul.Offset(i, 15)
UserForm2.TextBox16 = bul.Offset(i, 16)
UserForm2.TextBox17 = bul.Offset(i, 17)
UserForm2.TextBox18 = bul.Offset(i, 18)
UserForm2.TextBox19 = bul.Offset(i, 19)
UserForm2.TextBox20 = bul.Offset(i, 20)
End If
Next bul
End Sub

sonra 2.formu Aç'a tıklayın bakalım istediğiniz olmuş mu_?

 

[eminuslu]

İhsan bey çok teşekkür ederim istediğimden öte olmuş hayırlı akşamlar

 

[İhsan Tank]

İhsan bey çok teşekkür ederim istediğimden öte olmuş hayırlı akşamlar

rica ederim
iyi akşamlar
:yazici: