SAYFA BELİRLİ BİR SÜRE SONRA GİZLENSİN

[bilisim2010]

merhaba userform ile yazdırma sayfasını açtığımda excelin görünmesini sağlıyorum ancak göründükten sonra buton ile kapatmak yerine belirlediğim bir süre içinde tekrar otomotik gizlenmesini nasıl yaparım?

 

[cems]

Dim CloseTime As Double ' Zamanlayıcı değişkeni

Private Sub UserForm_Initialize()
' Excel'i görünür yapıyoruz
Application.Visible = True

' Zamanlayıcıyı başlatıyoruz, burada 5 dakika (300 saniye) bekleyeceğiz
CloseTime = Now + TimeValue("00:05:00") ' 5 dakika (00:05:00)
Application.OnTime CloseTime, "HideExcel"
End Sub

Sub HideExcel()
' Excel'i gizliyoruz
Application.Visible = False
End Sub

 

[bilisim2010]

Dim CloseTime As Double ' Zamanlayıcı değişkeni

Private Sub UserForm_Initialize()
' Excel'i görünür yapıyoruz
Application.Visible = True

' Zamanlayıcıyı başlatıyoruz, burada 5 dakika (300 saniye) bekleyeceğiz
CloseTime = Now + TimeValue("00:05:00") ' 5 dakika (00:05:00)
Application.OnTime CloseTime, "HideExcel"
End Sub

Sub HideExcel()
' Excel'i gizliyoruz
Application.Visible = False
End Sub

çok teşekkürler işimi gördü sağolun.