Sayfada Belirli Bir Süre Kalan UserForm

[CenTay]

Selamlar arkadaşlar, bir giriş userformu ile açılan dosyada Liste isimli sayfa açılıyor, bu sayfa açıldığında userform6 ekranda 5 saniye kalıp kapansın istiyorum yardımcı olabilecek arkadaşlara şimdiden teşekkürler...

 

[AdemCan]

Merhaba,
Şu adımları uygulayınız.

Liste isimli sekmenin kod sayfasına ekleyiniz.

Private Sub Worksheet_Activate()
    UserForm6.Show
End Sub

Modüle ekleyiniz.

Sub kapat()
    Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 5)
    Unload UserForm6
End Sub

Userfom kodlarına ekleyiniz.

Private Sub UserForm_Activate()
    Call kapat
End Sub

Spoyler: Ekran Görüntüsü

 

[CenTay]

Merhaba,
Şu adımları uygulayınız.

Liste isimli sekmenin kod sayfasına ekleyiniz.

Private Sub Worksheet_Activate()
    UserForm6.Show
End Sub

Modüle ekleyiniz.

Sub kapat()
    Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 5)
    Unload UserForm6
End Sub

Userfom kodlarına ekleyiniz.

Private Sub UserForm_Activate()
    Call kapat
End Sub

Spoyler: Ekran Görüntüsü

Ekli dosyayı görüntüle 239911

Teşekkür ederim hocam ellerin dert görmesin.

 

[AdemCan]

Rica ederim.