otomatik kapanan mesaj kutusu

[ugur111]

Merhaba Arkadaşlar ;

İstediğim bir makro çalışırken bir mesaj kutunu açılıp , 5 saniye sonra otomatik olarak kapanmasını istiyorum . Bu arada veriler yenileniyor . mesaj kutusunda tamam tuşununda olmaması mümkün mü ? çıkacak ve 5 sn sonra kapanacak.

Kolay gelsin ,
Uğur.

 

[Necdet]

Merhaba,

Userform ile olabilir.

Örneği inceler misiniz?

 

[omerceri]

Msg Box ile yapılabilir mi? bilmiyorum. Ama form la yapılabilinir.
Bir form ve bir modül oluşturun
Modüle aşağıdaki kodu yazın

Sub a()
UserForm1.Show
End Sub

Formun modül sayfasına aşağıdaki kodu yapıştırın.
Private Sub UserForm_Activate()
PauseTime = 5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
End

End Sub

 

[omerceri]

Necdet Bey cevap vermiş bile.

 

[Altay3555]

Merhaba,

Userform ile olabilir.

Örneği inceler misiniz?

hocam bu mesajın süresini binlik yapmamız mümkün mü,1 saniyeye ayarladım ama isterim ki saniyenin 3/1 lik kısmında gözüksün..

 

[Korhan Ayhan]

Selamlar,

Necdet beyin önerdiği kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub UserForm_Layout()
If Application.Wait(Now + TimeValue("0:00:01") [COLOR=black]/ 3[/COLOR]) Then
    Unload Me
End If
End Sub

 

[Altay3555]

hocam tşkler...
ben 3 le de denedim oldu..
5 ise tam istediğim gibi oldu