Foutmelding

[NajKwin]

Hallo,

Ik heb ooit eens een aanwezigheids en afwezigheids bord gemaakt met een tag systeem.

Werkt allemaal prima. alleen als er een tag wordt aangebonden die niet geregistreerd staat geeft hij een fout melding en springt de cursor naar cel T2 i.p.v. T1.

Het mooiste zou zijn dat als er een tag wordt aangeboden die niet geregistreerd staat dat er een MsgBox verschijnt met een tekst en dat deze na een seconde of 3 weer verdwijnt en de cursor naar Cel T1 springt


Wie kan en wil me daar bij helpen?

GR Naj

PS het lukte niet om een excel bestand bij te voegen van daar een zip bestand

 

[edmoor]

Probeer het eerst eens zo:
Bekijk bijlage Inuitklokken-Helpmij.xlsm

 

[NajKwin]

Hallo Edmoor,

is het ook mogelijk dat de boodschap na 3 sec automatisch sluit?

 

[edmoor]

Maak dan dit van het Fout gedeelte:

Fout:
    If Err.Number = 13 Then
        Set Message = CreateObject("wscript.shell")
        Message.popup "Tag niet gevonden", 3, Target.Value
        Set Message = Nothing
        Range("T1").Activate
    End If
    Exit Sub

 

[NajKwin]

Hallo edmoor,

Code geplaatst maar bij verdwijnt niet automatisch.....

Wat doe ik verkeerd?

ik hef de eerste foutcode vervangen voor de laatste

 

[edmoor]

Werkt hier prima.
Plaats dus je document.

 

[NajKwin]

Bij deze

 

[edmoor]

Als je de timer niet start in de Workbook_Open werkt het gewoon goed.
Het lijkt erop dat die timer de Message.Popup delay in de weg zit.

Ik heb het gebruik van de Timer voor Tijd en het Fout gedeelte wat aangepast zodat ze elkaar niet in de weg zitten:
Bekijk bijlage Inuitklokken-Helpmij.xlsm