Otomatik kaybolan MsgBox Uyarısı

[Tarikkk_]

Merhabalar. Kullandığım Makroda Koşula göre msgbox ile uyarı almaktayım. Uyarı mesajı ekrana geldiğinde tamam seçeneği olsun ve tamama tıklamadığımızda 5 sn içinde uyarının otomatik kapanmasını istiyorum. Böyle birşey mümkünmü acaba mümkünse yardımlarınızı bekliyorum. Şimdiden teşekkür ederm

 

[Haluk]

Sub Test()
    Dim objShell As Object
    
    Set objShell = CreateObject("WScript.Shell")
    
    strMsg = "Merhaba...!"
    SecDelay = 5
    strTitle = "Bilgi !"
    
    myMsg = objShell.Popup(strMsg, SecDelay, strTitle, 64)
    
    Set objShell = Nothing
End Sub

 

[Tarikkk_]

Hocam İlginizden dolayı çok teşekkür ederim bilgisayarımın olduğun yere geçince hemen deneyip size bilgi vereceğim. Yazmayı unuttum ama bu koda göre msgbox uyarı ekranında geri sayım varmı acaba mesela ekranda 3-2-1 gibi geri sayım ekleme şansımız varmı

 

[Haluk]

O zaman UserForm kullanacaksınız...

.

 

[Haluk]

Ya da, yine aynı mantıkla şöyle olabilir....

Sub Test2()
'   Haluk - 06/05/2020
'   sa4truss@gmail.com
    Dim objShell As Object, strMsg As String, secDelay As Byte
    Dim strTitle As String, i As Byte, RetVal As Integer
    
    Const vbCritical = 16
    Const vbInformation = 64
    
    Set objShell = CreateObject("WScript.Shell")
    
    strMsg = "Merhaba...!"
    secDelay = 5
    strTitle = "Bilgi !"
    
    For i = 0 To secDelay
        RetVal = objShell.Popup(strMsg & vbCrLf & vbCrLf & "Kalan süre : " & secDelay - i & " san.", 1, strTitle, vbInformation)
        If RetVal = vbOK Then Exit Sub
    Next
    
    Set objShell = Nothing
End Sub

.

 

[Tarikkk_]

hocam ikisinide denedim belirlediğimiz sürede otomatik kapanma özellikleri yok örnek dosya attım sizde deneyebilirsiniz

 

[Haluk]

İkisi de çalışıyor...



.

 

[Tarikkk_]

İkisi de çalışıyor...

.

hocam ortada bir yanlış anlaşılma olabilirmi şimdi örnek dosyada 2 modül var modüllerde yazdığınız kodlar bulunmakta sayfaya 2 buton ekledim ve makroları butonlara atadım düğme 1 e basınca msgbox ile "merhaba" mesajı geliyor ve kapatmadığımız tamama tıklamadığımız sürece açık kalıyor düğme 2 ye tıkladığımızda yine merhaba mesajı geliyor ve alt satırda kalan süre 5 sn yazıyor yine tamama basmadığımız sürece uyarı ekranda kalıyor benim bilgisayardamı sorun var acaba

 

[Tarikkk_]

İkisi de çalışıyor...



.Ekli dosyayı görüntüle 217548

ekran alıntısını yeni gördüm sizde gayet güzel çalışıyor tam istediğim şey ama bende sabit kalıyor. kodu modüle atmaktan başka yapmam gereken birşey varmı acaba ?

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Bu işlem UserForm'a nasıl uygulanır? Böyle bir örnek var mıdır?
Saygılarımla

 

[Tarikkk_]

Sayın Haluk Hocam,
Bu işlem UserForm'a nasıl uygulanır? Böyle bir örnek var mıdır?
Saygılarımla

@Tevfik_Kursun bey örnek dosyadaki makro sizde çalışıyormu acaba

 

[Tevfik_Kursun]

Evet, hem de çok güzel
Çok teşekkür ederim
Saygılar

 

[Tarikkk_]

bende çalışmama sebebi ne olabilir çok merak ettim gerçekten

 

[Tevfik_Kursun]

Merhaba
3. bir modül ekleyin. Makroları oraya koyup, çalıştırın.
İyi çalışmalar

 

[Haluk]

Sayın Haluk Hocam,
Bu işlem UserForm'a nasıl uygulanır? Böyle bir örnek var mıdır?
Saygılarımla

Ekli dosyada birşeyler hazırladım ...




.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Siz tabii ki her zaman benden hızlısınız. Ben de bir örnek hazırlıyordum. Vazgeçtim, elinize sağlık.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
UserForm örneği için çok teşekkür ederim. Çalışan bir UserForm'da, makronun göstermeden çalışıp UserForm'u kapatması için neler yapmalıyım?
Saygılarımla

 

[Haluk]

Ne demek istediğinizi anlayamadım ...

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
UserForm konusunu yeni öğreniyorum. Dosyamda çalışan bir UserForm1 var. Bu UserForm1'i de otomatik kapatma açısından sordum.
Saygılarımla

 

[Haluk]

Çalıştırdığınız kodun en sonuna aşağıdakini ilave edip, deneyin ...

Unload UserForm1

.