belli bir süre sonra kendiliğinden kapanma

[canercan02]

Arkadaşlar herkese selam.
Ben bu foruma yeni üye oldum. Daha önceleri böyle bir formun olduğunu bilmiyordum. Takıldığım bir konu oldu. Elimdeki bir kitapta vardı ama kitabı bulamıyorum. İşin içinden çıkamadım. Bir arkadaş da bu forumu tavsiye etti. Ben de foruma girip arama ile baktım fakat sorunumun cevabını bulamadığım için sormak zorunda kaldım. Belkide çok basit ama ben yapamadım. Sorun şöyle.
Yaptığım bir uygulamanın kapat tuşuna bastığımda (button5) userform1 aktif olcak ve 5 saniye sonra hiçbir şey sormadan uygulama ve form kapanacak. Form yerine msgbox da olabilir ama tek sorunum 5 sn sonra kendiliğinden kapanması. Tamam tuşu olmaksızın.

 

[Ali]

Aşağıdaki kodları bir deneyin
Private Sub CommandButton5_Click()
Dim T
Me.Repaint
T = Timer + 5
Do While Timer < T
Loop
Me.Hide
End Sub

 

[Ali]

Aynı mesaj iki defa gittiği için sildim...

 

[Zeki Gürsoy]

http://www.excel.web.tr/viewtopic.php?t=14309

 

[Ali]

Ekteki dosyada öncekine farklı olarak Userform2 deki Kapat tıklandığında
Userform1 açılır ve Userform1 5 saniye sonra kapanır.

 

[canercan02]

Usta gönderdiğin örnek tam istediğim gibi olmuş. Sakıncası yoksa

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
msgbox"bye bye"
Application.Quit
End Sub

bu kodu = msgbox açılsın ve 5 sn sonra msgbox un kendiliğinden kaybolması ile bütün uygulama kapanması şeklinde nasıl uyarlamam konusunda da yardımcı olablir misiniz?
saygılarımla.

 

[Haluk]

.....
bu kodu = msgbox açılsın ve 5 sn sonra msgbox un kendiliğinden kaybolması
....

http://www.excel.web.tr/viewtopic.php?t=6366

 

[canercan02]

sağolun ustalar sayenizde hallettim.

 

[takirti]

Bu konudaki linkler silinmiş. Bi el atabilirmiyiz?