Een messagebox bij overschrijding

[N12047]

Hallo allen,

Ik zou graag een msgbox willen hebben, als in cel E5 t.o.v cel K5 het tijdsverschil groter is als 2 uur.
Dit zou dan moeten werken voor de hele kolom.

(rekening houden met de dagovergang van de ene dag naar de andere dag)

Alvast hartelijk bedankt

 

[HSV]

Geldt dit voor één vergelijking?
Welke cellen dan?
Voor een vergelijking met dag-overschrijding moet in beide cellen de tijd voorafgaan met een datum.

 

[N12047]

Hallo HSV

Dank je wel voor het kijken naar mijn bestandje.

Als het verschil tussen E5 en K5 meer is als 2 uur, zou er een message box moeten komen.
Als het verschil tussen E6 en K6 meer is als 2 uur, zou er een message box moeten komen.
Als het verschil tussen E7 en K7 meer is als 2 uur, zou er een message box moeten komen.
enz enz.

Moet er voor de vergelijking met de dag overgang de tijd vooraf gegaan worden door de datum?
Ik zou 123 niet weten hoe ik dat voor elkaar zou moeten krijgen.

Het geen wat ik bedenken kan, is dat op het moment als E5 of E6 enz. ingevuld wordt, er in D5 automatisch de dag van vandaag ingevuld wordt ???

Of zie ik het verkeerd?

 

[Cobbe]

Is dit ook goed genoeg?

 

[popipipo]

of misschien mbv gegevens validatie?

 

[N12047]

Beste Popipo,

Ook jij hartelijk bedankt voor je bijdrage.

Ik ben voor de bijdrage gegaan van Cobbe.
Hier heb ik een stukje vba bij gezet wat bijna perfect werkt.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    For Each cell In Range("M5:M30")
        If cell.Value >= 0.083333333333333 Then
            MsgBox "Discount too high"
        End If
    Next cell
End Sub

Het doet wat ik wil, alleen als er nu meerdere rode vakjes zijn krijg ik ook meerdere meldingen.
Ik zou dit graag willen beperken tot 1 melding.
Dus als er al meerdere rode vakjes zijn, hoeft er maar 1 melding te komen.
Is het mogelijk dat jullie hier input op kunnen geven?

 

[N12047]

Voor alle zekerheid nog even het gewijzigde bestandje bijgevoegd.

 

[Cobbe]

Dan moet je de code ook een beetje uitbreiden dacht ik zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Range("M5:M" & Range("M5").End(xlDown).Row)) Is Nothing Then Exit Sub
    Dim cell As Range
    For Each cell In Range("M5:M30")
        If cell.Value >= 0.083333333333333 Then
             rw = rw & " - " & cell.Row
        End If
    Next cell
  MsgBox "Discount to high in row(s) :  " & Right(rw, Len(rw) - 2)
End Sub

 

[HSV]

Misschien schrijft dit wat gemakkelijker.

 If cell.Value >= [COLOR=#ff0000]1/12[/COLOR] Then

 

[N12047]

Cobbe,

Bedankt, het werkt naar behoren.
Ik zet de vraag als opgelost.