Zelfsluitende MsgBox (mogelijk?)

[HyperXnl]

Momenteel ben ik weer bezig met het voorraadsysteem.

Echter loop ik elke keer weer op een MsgBox waar ik op "OK" moet klikken na elke mutatie.
Is er een mogelijkheid om een MsgBox zelf te laten sluiten na bijv. 1 sec.?

Code uit de Userform is nu:

Lijst = ListBox1.ListIndex + 3
Cells(Lijst, 6) = (Val(TextBox3.Value) + Val(TextBox7.Value))
Cells(Lijst, 8) = CDate(TextBox5.Value)
MsgBox "Mutatie is verwerkt"

ListBox1.List = Sheets("Voorraad").Range("A3:K" & [A65536].End(3).Row).Value

Thanks.

Grtz Michael

 

[JanBG]

Als je die box niet wilt, dan haal je hem er toch gewoon uit?

 

[edmoor]

Voorbeeld in dit bestand:
Bekijk bijlage Toon een bericht.xlsm

 

[HyperXnl]

@JanBG, heb je gelijk in, maar ik ben niet de enigste die het bestand gaat gebruiken

Inmiddels wat rond gezocht en onderstaande werkt.

vervang:

MsgBox "Mutatie is verwerkt"

voor:

Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'AckTime is openingstijd
    AckTime = 1
    Select Case InfoBox.Popup("Mutatie is verwerkt.", _
    AckTime, "", 0) 'Tussen  "" komt titel tekst
        Case 1, -1
End Select

Nu komt er voor 1 sec. een popup wat vanzelf weggaat. Of je kan binnen een seconden op OK drukken

Grtz. Michael

 

[HSV]

Sub hsv()
    CreateObject("WScript.Shell").Popup "Deze popup duurt ± drie seconden.", 3, "Waarschuwing: Je hoeft niet op OK te klikken", vbCritical
End Sub