pop-up bij waarde verschil

[NiekvanMeer]

Ook merk ik nu dat wanneer ik data in de cel ernaast (in werkelijkheid kolom F) invul, hij een foutmelding geeft

 

[Cobbe]

Plak deze code eens en selecteer de rode regel (If ABS( ) en druk F9.
Voeg nu een waarde in in kolom D en check w1,w2,w3,w4
Dan zie je hopelijk wat er mis gaat:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Sheets("Blad1").Range("D10:D2010")) Is Nothing Then
  With Target
  w1 = Target
  w2 = Target.Offset(, 1)
  w3 = Target.Offset(2, 0)
  w3 = Target.Offset(2, 1)
   [COLOR="#FF0000"]If Abs(Target - Target.Offset(, 1)) > 50 Or Abs(Target.Offset(2, 0) - Target.Offset(2, 1)) > 50 Then
[/COLOR]    MsgBox "Is er sprake van versleping? Zo ja, vul de TP waarde in van de nareactor in cel ! "
   End If
  End With
End If
End Sub

 

[NiekvanMeer]

Hej Cobbe,

Hij doet niks nu.
Ik voeg even een wat duidelijker bestandje bij.
Een deel uit mijn werkbestand dus

BedanktBekijk bijlage test.xlsm

 

[Cobbe]

Die code werkt natuurlijk wel maar wellicht niet volgens plan.
Zeg eens duidelijk welke cellen je wijzigt en/of vult.
Schrijf eens je bestandje wat er juist wanneer moet gebeuren.

 

[NiekvanMeer]

Het doel is dus het volgende:
Kolom D wordt ism Kolom C automatisch ingevuld.
Nu dien je in kolom E (even rijen) de waarde van kolom D over te nemen.
Vul je in kolom E (even rijen) nu een waarde in die 50 meer of minder is, dan dient de waarschuwing te verschijnen.
Als ik iets in kolom F of verder invul, dan dient er niets te gebeuren.
De oneven rijen in kolom E worden ingevuld wanneer er iets gemeten wordt (op het werk) en die moeten dus buiten beschouwing blijven.

 

[Cobbe]

Ik hoop dat deze raak is:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Sheets("Blad1").Range("E10:E2010")) Is Nothing Then
  With Target
   If WorksheetFunction.IsEven(Target.Row) And Target.Value > 0 And Not IsEmpty(Target) Then
     If Abs(Target - Target.Offset(, -1)) > 50 Then
       MsgBox "Is er sprake van versleping? Zo ja, vul de TP waarde in van de nareactor in cel ! "
     End If
   End If
  End With
End If
End Sub

 

[NiekvanMeer]

Bijna raak haha.
De melding mag niet komen wanneer de waarde NIET meer of minder dan 50 verschilt

 

[Cobbe]

Nu moet je eens kijken in het meegestuurde bestand,
Enkel de gele cellen reageren alle gele cellen levert geen Pop-Up
Vul je iets in in de oranje cel krijg je wel een Pop-UP.

Wat is hier mis mee?

 

[NiekvanMeer]

Hm ik kan dit helaas niet downloaden hier op het werk...
Even een voorbeeldje.
Als ik, gekeken naar de onderste cellen (rij 24/25) in kolom D, 20300 heb staan en ik vul in 'E24' 20300 dan zou de waarschuwing niet mogen komen. Wanneer ik daar dus 50 vanaf wijk, >20350 of <20250 dan zou de waarschuwing wel moeten komen.
Mocht dit in je bijgevoegde bestand inderdaad zo werken, dan zou ik dit thuis even moeten bekijken

 

[Cobbe]

Post #26 aangepast en hopelijk wel correct nu.
Ik bleef maar kolom C en D vergelijken en niemand die mij zei dat de INVOER moest worden vergeleken met kolom D.

Maar goed als het nu correct is ben ik even tevreden als jijzelf.

 

[NiekvanMeer]

Helemaal fantastisch!
Ik ben zeer tevreden

Enorm bedankt voor de hulp Cobbe!