MsgBox met waarde boven de 12:00 uur

[Pa Dalton]

Waarde lezers,

Als in een bepaalde cel (zeg D15) de waarde boven de 12:00 uren uitkomt
zou ik graag een msgbox willen laten komen met een waarschuwing in de trant van “klopt dit wel?” zo ja dan gewoon doorgaan, zo nee dan de cel wissen en opnieuw invullen.
Nou kan ik wel een msgbox naar voren toveren, maar alleen verder dan de boodschap kom ik niet.

Heeft iemand een klein voorzetje?

Pa Dalton

 

[Wigi]

Doe Data > Valideren

op die cel. Toestaan: decimaal, kleiner dan of gelijk aan Maximum: 0,5.

Je kan ook een invoerbericht opstellen. Zie daarvoor het tweede tabblad.

Wigi

 

[Pa Dalton]

Wigi,

Deze oplossing had ik al bedacht, werkt op zich prima,
Ik zou deze melding graag bevestigd willen zien.
Iemand die niet naar het beeldscherm kijkt op dat moment heeft niets in de gaten.

Is er geen andere oplossing?

Pa Dalton

 

[Wigi]

Iemand die niet naar het beeldscherm kijkt op dat moment heeft niets in de gaten.

Hoe kan dat? Tijden ingeven met de rug naar het scherm of zo?

Of expres met de ogen dicht getallen ingeven?

Die snap ik toch niet zo goed hoor.

Wigi

 

[Pa Dalton]

Bij ons zitten mensen met een lijst voor hun neus die alleen maar naar het nummerieke deel van het toetsenbord kijken. Ze vertrouwen er zo op dat ze geen fouten maken.
Tegen de tijd dat ze eens een keer opkijken zijn ze alweer een aantal regels verder.

b.t.w. als ik het via valideren doe en ik beveilig dan het werkblad dan komt er geen melding.

Is er geen andere manier om dan de invoer te stoppen en een bevestiging te geven?

Pa Dalton

 

[Wigi]

Sorry, ipv. invoerbericht bedoelde ik Foutmelding (het derde tabblad)

Je kan ook een invoerbericht opstellen. Zie daarvoor het tweede tabblad.

 

[Pa Dalton]

Wat of ik ook probeer, het lukt me niet.
Het invoerbericht krijg ik voor elkaar, dat heb ik goed onder de knie.
Maar de foutmelding lukt me maar niet,
Ik kan er maar niet achter komen wat ik verkeerd doe.:evil:

Is het mogelijk dat jij dit eens voor mij invult?


Pa Dalton

 

[Wigi]

Zie bijlage. OK voor de rode cel.

Wigi

 

[Pa Dalton]

Wigi,

Ik denk dat we elkaar verkeerd begrijpen,

Even overnieuw.
Als de uitkomst van D6 groter is als 12:00 uur dan zou er eigenlijk een bevestiging moeten plaatsvinden of dit wel juist is.
Wij hebben nagenoeg nooit een storing die langer als 12 uur duurt, dus er zou dan iets mis moeten zijn met de invoer van je gegevens. Een aantal mensen hebben dit niet in de gaten met het invullen van hun lijst.
Daarom zou ik er graag een bevestiging van willen hebben of ze de tijden wel juist ingevoerd hebben.

Pa Dalton

P.S.
Je hebt me ongewild wel een hele mooie oplossing aan de hand gedaan voor een ander formulier.
Bedankt

 

[Wigi]

Het beste volgens mij is met Voorwaardelijke Opmaak de cel inkleuren. Zie bij Opmaak. In de voorwaarde zal je dan moeten gebruiken dat het >0,5 moet zijn en dan kleurtje geven.

 

[Wigi]

Een Worksheet_Change event kan ook. Laat een simpele MsgBox verschijnen indien nodig (test daarvoor).

Hier op het forum is dit al ontelbare keren eerder gebruikt.

Wigi

 

[Pa Dalton]

sorry,
dubbele posting

 

[Pa Dalton]

Een Worksheet_Change event kan ook. Laat een simpele MsgBox verschijnen indien nodig (test daarvoor).

Hier op het forum is dit al ontelbare keren eerder gebruikt.

Wigi

Ik probeer het even op een andere wijze,



In D100 staat =REST($C6-$B6;1) ,
De tijd staat in C6

beide formaat (u):mm.

If Range("$D100") >= "0,5" Then
    MsgBox "Kloppen deze uren wel?"
End If
End Sub

Tot zover werkt alles prima.
Nu wil ik dit alles met 28 regels naar onderen uitbreiden
Als ik nu de range uitbreid naar D100150 werkt het ineens niet meer.

Pa Dalton

 

[Wigi]

In D100 staat =REST($C6-$B6;1) ,

Wat? Je hebt in ge bijgeleverde bestandje maar 50 rijen?

If Range("$D100") >= "0,5" Then
    MsgBox "Kloppen deze uren wel?"
End If
End Sub

De "" rond 0,5 zullen ook wel weg moeten. Met een punt ipv een komma tevens. Ook het $ moet weg.

Tot zover werkt alles prima.

Dat is eerder toevallig dan en eerder toe te schrijven aan geluk dan aan de code.

Nu wil ik dit alles met 28 regels naar onderen uitbreiden
Als ik nu de range uitbreid naar D100150 werkt het ineens niet meer.

Die volg ik niet: 100 + 28 = 150 ?

Wigi