Modul üzerinden Userform kapatmak

[tamer42]

Merhaba,
Modül üzerinden userform' u görüntüledikten sonra;
yine modül üzerinden kapatamıyoruz, aşağıdaki kodları denedim, fakat userform kapanmıyor.

Public oForm As UserForm1 

Public Sub LoadTheUserForm()
Set oForm = UserForm1
oForm.Show
End Sub

Public Sub CloseUserForm()
If Not (oForm Is Nothing) Then
    Unload oForm
    Set oForm = Nothing
End If
End Sub

yardımcı olursanız sevinirim.
iyi çalışmalar.

 

[Korhan Ayhan]

Kendinize uyarlarsınız.

Option Explicit

Sub Form_Open()
    Dim Form As UserForm1
    Set Form = UserForm1
    Form.Show 0
End Sub

Sub Form_Close()
    Dim Form As UserForm1
    Set Form = UserForm1
    Unload Form
End Sub

 

[tamer42]

Kendinize uyarlarsınız.

Option Explicit

Sub Form_Open()
    Dim Form As UserForm1
    Set Form = UserForm1
    Form.Show 0
End Sub

Sub Form_Close()
    Dim Form As UserForm1
    Set Form = UserForm1
    Unload Form
End Sub

teşekkürler Korhan Hocam