userformdaki veriyi diğer userforma aktarma

[maras321]

arkadaşlar merhaba. elimde iki adet user form var;yapmak istediğim userform1 de bulunan buton ile userform2 yi açmak ve içinde bulunan TextBox1,TextBox2.TextBox3 ve ComboBox1,ComboBox2,ComboBox3 lara userform1de bulunan TextBox1,TextBox2.TextBox3 ,ComboBox1,ComboBox2,ComboBox3 lardaki verileri aktarmak.
acaba bunu nasıl yapabilirim....

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kod kullanılabilir. Bunu Userform1'e kopyalayın. Commandbutton'unuzun isminin CommandButton1 olduğuna dikkat edin.

Private Sub CommandButton1_Click()
    Dim uf2 As UserForm
    Set uf2 = UserForm2
    With Me
        uf2.TextBox1 = .TextBox1
        uf2.TextBox2 = .TextBox2
        uf2.TextBox3 = .TextBox3
        uf2.ComboBox1 = .ComboBox1
        uf2.ComboBox2 = .ComboBox2
        uf2.ComboBox3 = .ComboBox3
    End With
    Set uf2 = Nothing
    UserForm2.Show
End Sub

 

[maras321]

hocam teşekkürler işe yaradı..

 

[Ferhat Pazarçevirdi]

Userform1'de, Textbox4 adında bir nesne var mı ? kontrol edin ... Eğer sorun bu değilse, aldığınız hata mesajını tam olarak buraya yazın.

 

[maras321]

hocam halletim tamamen benim hatam yanlışlık yapmışım.teşekkürler....