Msgbox'un Kapanması

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar şöyle bir kodum var,

Sub ks()
[AD15].Copy
MsgBox "Kopyalama Yapıldı"
..............................
Application.CutCopyMode = False
End Sub

MsgBox penceresi 5 saniye içerisinde kendiliğinden kapansın, yardımlarınız için şimdiden teşekkür ediyorum.

 

[Levent Menteşoğlu]

Seyit bey aşağıdaki linkte istediğinizi bulabilirsiniz.

http://www.excel.web.tr/f48/kendi-kendine-kapanan-mesaj-kutusu-t33149.html

 

[hsayar]

Sub Kapanan_MsgBox()
CreateObject("WScript.Shell").Popup "Merhaba.", 3, "Bu mesaj kutusu 3 saniye içinde kapanacak."
End Sub

 

[Seyit Tiken]

Arkadaşlar çook teşekkür ediyorum, sağolun.