MsgBox vbYesNo süreli yapmak

[mersilen]

Merhabalar

Msgbox vbyesno da belirli bir süre konup süre bitiminde otomatikman yes veya no ile devam etmesi sağlanabilir mi?

Ayrıca bu yolla makrodan çıkışta debugla çıkmak (değerleri kontrol etmek için) mümkün müdür?

Sub saniye3_MsgBox1()
CreateObject("WScript.Shell").Popup "Merhaba.", 3, "Bu mesaj kutusu 3 saniye içinde kapanacak."
End Sub
Sub msgbox_anlamak2()
If MsgBox("İşleminizi onaylıyor musunuz ?", vbYesNo, "Msgbbox_anlamak1") = vbYes Then
MsgBox "İşlem tamamlanmıştır.", vbInformation, "Msgbbox_anlamak2"
'Evet kodları burada olacak

Else
MsgBox "İşlem iptal edilmiştir.", vbInformation, "Msgbbox_anlamak3"
'Hayır kodları burada olacak
End If
End Sub

Kendim süreyi eklemeyi başardım.Debug kısmını yapamadım.
Mesela vbyesno nun yanına 3. bir düğme konup olduğu yerden debugla çıkması sağlanabilir mi?

Sub msgbox_anlamak2()
If CreateObject("WScript.Shell").Popup("İşleminizi onaylıyor musunuz ?" & vbCrLf & "Bu mesaj kutusu 5 saniye içinde kapanacak ve programdan hayırla çıkılacak." & vbCrLf & "Evete basarsanız devam edebilirsiniz.", 5, , vbYesNo) = vbYes Then

'If MsgBox("İşleminizi onaylıyor musunuz ?", vbYesNo, "Msgbbox_anlamak1") = vbYes Then
MsgBox "İşlem tamamlanmıştır.", vbInformation, "Msgbbox_anlamak2"
'Evet kodları burada olacak

Else
MsgBox "İşlem iptal edilmiştir.", vbInformation, "Msgbbox_anlamak3"
'Hayır kodları burada olacak
End If
End Sub

Birde aşağıdaki linkte msgbox boyutunu büyütmeyi göstermişler.
Kodları ben çalıştıramadım, değerlendirebilir misiniz?

http://www.automationrepository.com/2011/09/msgbox-ran-out-of-space-try-dotnetfactory-messagebox-instead/

 

[Murat OSMA]

Değilse kısmına;

[FONT="Trebuchet MS"][COLOR="Red"][B]SendKeys "%{F11}"[/B][/COLOR][/FONT]

yazın olmaz mı ?

 

[mersilen]

Değilse kısmına;

[FONT="Trebuchet MS"][COLOR="Red"][B]SendKeys "%{F11}"[/B][/COLOR][/FONT]

yazın olmaz mı ?

Merhaba
Denedim ama olmadı.

 

[Murat OSMA]

Kodların sonuna hata verecek herhangi bir kod yazmayı deneyin.

 

[mersilen]

Murat bey denedim olmadı.
Çözümü vbyesnocancel da olacağını düşünüyorum.Burda 3 butonunda gittiği yolları ayırmayı denedim olmadı.Yada böyle birşey mümkün mü?

Sub msgbox_anlamak2()
If CreateObject("WScript.Shell").Popup("İşleminizi onaylıyor musunuz ?" & vbCrLf & "Bu mesaj kutusu 5 saniye içinde kapanacak ve programdan hayırla çıkılacak." & vbCrLf & "Evete basarsanız devam edebilirsiniz.", 5, , vbYesNoCancel) = vbYes Then
Cells(2, "a") = Format(Now, "dd.MM.yyyy HH:mm:ss") 'YES=EVET
MsgBox "İşlem tamamlanmıştır.YES", vbInformation, "Msgbbox_anlamak2 YES"

Else: If vbYesNoCancel = vbNo Then Cells(2, "b") = Format(Now, "dd.MM.yyyy HH:mm:ss") 'NO=HAYIR
MsgBox "İşlem iptal edilmiştir.HAYIR", vbInformation, "Msgbbox_anlamak3 HAYIR"
End If
Else: If vbYesNoCancel = vbNo Then Cells(2, "c") = Format(Now, "dd.MM.yyyy HH:mm:ss") 'CANCEL = İPTAL
MsgBox "İşlem iptal edilmiştir.CANCEL", vbInformation, "Msgbbox_anlamak3 CANCEL"

End If
End If
Cells(2, "d") = Format(Now, "dd.MM.yyyy HH:mm:ss") 'ÇIKIŞ
MsgBox "İşlem iptal edilmiştir.ÇIKIŞ", vbInformation, "Msgbbox_anlamak4 ÇIKIŞ"
End Sub

Başka bir sitede bulduğum kod istediğim mantıkla çalışıyor ama bunda da süreyi eklemek mümkün olmadı.Yukarıdaki kodu buna göre düzenlene bile güzel olacak.

Sub SELECTCASEMSG()
Select Case MsgBox("my question?", vbYesNoCancel)
 Case Is = vbYes
 MsgBox "İşlem EVET", vbInformation, "Msgbbox_EVET" 'YES=EVET
 Case Is = vbNo
 MsgBox "İşlem HAYIR", vbInformation, "Msgbbox_HAYIR" 'NO=HAYIR
 Case Is = vbCancel
 MsgBox "İşlem CANCEL", vbInformation, "Msgbbox_CANCEL" 'CANCEL=İPTAL
 Case Else
 [COLOR="Red"]Debug.Print "Whoops"[/COLOR]'Bu bölüm ne zaman çalışıyor anlayamadım
 End Select
 MsgBox "İşlem iptal edilmiştir.", vbInformation, "Msgbbox_ÇIKIŞ" 'ÇIKIŞ
End Sub

 

[monelogg]

Merhaba
Denedim ama olmadı.

Merhaba, konuyu tam anlamış değilim ama Sendkeys"%{F11}" bende de sorun çıkarıyordu ve zamanında sorduğumda Sn. halit3'ün şöyle bir alternatifiyle sorunumu halletmiştim.

Application.VBE.MainWindow.Visible=True

Belki işinizi görür.

 

[Murat OSMA]

Yapmak istediğinizi, amacınızı tam olarak en sade ve net bir biçimde söyler misiniz ?

 

[Murat OSMA]

Zamanlı MsgBox ile ilgili farklı bir örnek eklemek istiyorum.

 

[ExcelF1]

Alternatif olması açısından belirteyim. Düşündünüz mü bilemem ama,

Neden msgbox ile uğraşıyorsunuz ? Kendi mesaj kutunuzu kendiniz yapın ve istediğiniz tüm butonları üzerine ekleyin.

Yani 1 Userform oluşturun ve kodları onun üzerine yazın.

 

[monelogg]

Merhaba, Sn. Murat Osma'nın ve Sn. ExcelF1'in affına sığınarak aşağıdaki makroyu ekledim.
Fakat ben de userform ile daha esnek çözümler üretilebileceğini düşünüyorum.

Private Sub CommandButton1_Click()

If CreateObject("WScript.Shell").Popup("İşleminizi onaylıyor musunuz ?" & _
vbCrLf & "Bu mesaj kutusu 5 saniye içinde kapanacak ve programdan hayırla çıkılacak." & vbCrLf & _
"Evete basarsanız devam edebilirsiniz.", 5, , vbYesNoCancel) = vbYes Then
    
    Cells(2, "a") = Format(Now, "dd.MM.yyyy HH:mm:ss")

Else
    Select Case MsgBox("my question?", vbYesNoCancel)
        Case Is = vbYes
            MsgBox "İşlem EVET", vbInformation, "Msgbbox_EVET" 'YES=EVET
        Case Is = vbNo
            MsgBox "İşlem HAYIR", vbInformation, "Msgbbox_HAYIR" 'NO=HAYIR
        Case Is = vbCancel
            MsgBox "İşlem CANCEL", vbInformation, "Msgbbox_CANCEL" 'CANCEL=İPTAL
        Case Else
            Debug.Print "Whoops"
        End Select
    
    MsgBox "İşlem iptal edilmiştir.ÇIKIŞ", vbInformation, "Msgbbox_anlamak4 ÇIKIŞ"
End If

End Sub

 

[ExcelF1]

... Sn. ExcelF1'in affına sığınarak ...

Estağfirullah, biz fikir vermekten başka ne yaptık...

 

[monelogg]

Estağfirullah, biz fikir vermekten başka ne yaptık...

Olsun, sonuçta katkınız var konuya.