msgbox kapat komutu çalışmıyor

[Sarigol_937]

Sub Kendiliginden_Kapanan_MsgBox()
CreateObject("WScript.Shell").Popup "Bu Mesaj Kutusu 1 Saniye Sonra Kapanacak." _
& vbCrLf & "Haberin Olsun.", 1, "UYARI."
End Sub

arkadaşlar normalde bu vba kodla, msgbox kapanması lazım ama benim excel dosyamda kapanmıyor, anlamadım gitti çalışmasını bişimi engelliyor, diğer tüm vba kodlar sorunsuz çalışıyor sadece bu çalışmıyor. başka bir daha sağlam yolu varmı msgbox u otomatik kapatmanın

 

[Sarigol_937]

tamama basmışım veya esc ye basmışım gibi 1-2 sn sonra otomatik kapatmak istiyom

 

[mustafa1205]

Normal kulllandığınız kodun son satırına aşağıdaki kodu ekleyin.

CreateObject("WScript.Shell").Popup "İŞLEMİNİZ BAŞARI İLE TAMAMLANMIŞTIR....", 1, "Sarigol. . . . . . . . . . "

 

[mustafa1205]

Bu arada kusura bakmayın baktım da sizin kod bende çok normal olarak çalışıyor. Sadece kodun CreateObject("WScript.Shell").Popup "Bu Mesaj Kutusu 1 Saniye Sonra Kapanacak." _
& vbCrLf & "Haberin Olsun.", 1, "UYARI."
kısmını normal kodlarınızın sonuna ekleyiniz.

 

[Tasarım]

Sub Kendiliginden_Kapanan_MsgBox()
CreateObject("WScript.Shell").Popup "Bu Mesaj Kutusu 1 Saniye Sonra Kapanacak." _
& vbCrLf & "Haberin Olsun.", 1, "UYARI."
End Sub

arkadaşlar normalde bu vba kodla, msgbox kapanması lazım ama benim excel dosyamda kapanmıyor, anlamadım gitti çalışmasını bişimi engelliyor, diğer tüm vba kodlar sorunsuz çalışıyor sadece bu çalışmıyor. başka bir daha sağlam yolu varmı msgbox u otomatik kapatmanın

- Bu kod gayet güzel çalışıyor. Bir sorun yok.

 

[Mahir64]

Merhaba, bir kaç deneme yaptım oldu gibi, deneyiniz.

Sub msgbox()
CreateObject("WScript.Shell").Popup _
"Mesajınız", 1, "Süreli", vbInformation
End Sub

 

[Sarigol_937]

Cevap yazan tüm arkadaşlara çok teşekkür ederim, sorunu çözdüm benim çalışma kitabım bozulmuş, diğer tüm excel dosyalarında çalışıyor verdiğiniz vba kodlar.