UserForm'u Gösterip Kaybetme

[fthtls]

Arkadaşlar uyarı amaçlı kullandığım bir userform var. Belli durumlarda bu pencerenin gösterilip hemen kapatılmasını istiyorum ve şöyle bir kod yazdım.

If ozur > 100 Then
UserForm1.Show
Unload UserForm1
End If

Bu kodla Userform'u açıyor. Ancak unload komutu çalışmıyor. Commandbutton
kullanmadan unload etmek istiyorum. Fakat bir türlü yapamadım.

Yardımcı olabilecek olan var mı?

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub FormKapat()
If Sheets("sayfa1").Range("a1") > 100 Then
UserForm1.Show 0
Application.Wait (Now + TimeValue("0:00:03"))
Unload UserForm1
End If
End Sub

 

[fthtls]

Çok teşekkürler. Tam istediğim kod. Elinize sağlık.

 

[paranormal]

Söyle de yazilabilir kisaca

Sub kapat()
DoEvents
Sleep 3000
Unload Me
End Sub


Paranormal.. kolay gelsin.