Dinamik userform

[atokgoz]

ekte verdiğim örnektede açıklamaya çalıştığım gibi dinamik userform nasıl yaparım yardımcı olurmusunuz ?

 

[hamitcan]

Userform3 içine;

Private Sub UserForm_Initialize()
'------------------------------------------------------- işte bundan sonrakı kısım olmuyor
UserForm3.TextBox1.Value = OBJ.TextBox1.Value '(UserForm & Y) sonucundan UserForm1 yada UserForm2 yi almak istiyorum
UserForm3.TextBox2.Value = OBJ.TextBox2.Value
UserForm3.TextBox3.Value = OBJ.TextBox3.Value

'--------------------------------------------------------- form1 yada form2 butonuna bastığım anda form3 açılmadan içini doldurmayı
'yapıyorum ama ozamanda heryere kod yazmak gerekiyor, en kısa yöntemin böyle olacağını sanıyorum unuda yapamadım.
'yardımcı olursanız sevinirim.
End Sub

Userform2 içine;

Private Sub CommandButton1_Click()
UserForm3.Show
End Sub

Private Sub UserForm_Initialize()
Set OBJ = UserForm2
UserForm2.TextBox1.Value = "form2"
UserForm2.TextBox2.Value = "form2"
UserForm2.TextBox3.Value = "form2"
End Sub

Userform1 içine;

Private Sub CommandButton1_Click()
UserForm3.Show
End Sub


Private Sub UserForm_Initialize()
Set OBJ = UserForm1
UserForm1.TextBox1.Value = "form1"
UserForm1.TextBox2.Value = "form1"
UserForm1.TextBox3.Value = "form1"
End Sub

Module1 içine;

Public OBJ As Object

satırlarını yerleştiriniz.

 

[atokgoz]

çooook teşekkürler.