Bir Userform değişkenine atama yapma

[tamer42]

Merhaba,
Userform' a atama yaparken aşağıdaki kod hata veriyor, nasıl düzenleme yapabiliriz?

Dim uForm As UserForm

    Set uForm = UserForm2

uForm.Show

iyi pazarlar.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

Sub test()
    Dim frm As New UserForm1
    frm.Show
End Sub

Hatta eğer ShowModal özelliğini false yaparsanız aynı formu iki tane açabilirsiniz.

Sub test()
    Dim frm1 As New UserForm1
    Dim frm2 As New UserForm1
    frm1.Show False
    frm2.Show False
End Sub

 

[tamer42]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

Sub test()
    Dim frm As New UserForm1
    frm.Show
End Sub

Hatta eğer ShowModal özelliğini false yaparsanız aynı formu iki tane açabilirsiniz.

Sub test()
    Dim frm1 As New UserForm1
    Dim frm2 As New UserForm1
    frm1.Show False
    frm2.Show False
End Sub

Çok teşekkürler,

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.