Zoeken binnen een bereik

[Robert Smidt]

Beste Helpmijers,

Ik heb een vba code die op zich goed werkt echter net verkeerd om.

Wanneer ik kolom F vul met een waarde - die ook binnen een bereik in werkmap "Data" staat - en in kolom J vermeld ik een bedrag hoger dan €450, dan moet deze een melding geven. Dat werkt op zich goed, alleen moet ik eerst kolom J vullen en daarna kolom F, dat is onlogisch. Doe ik het andersom, dan werkt de code niet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("f2:f500")) Is Nothing Then
    Application.EnableEvents = False
  
   If Not IsError(Application.Match(Cells(Target.Row, 6), Sheets("Data").[a2:a5], 0)) And Range("j" & Target.Row) > 450 Then CreateObject("WScript.Shell").Popup "Je hebt een bedrijfsmiddel (> €450) als kosten geboekt", 60, "Waarschuwing: Fout herstellen", vbCritical

   
    Application.EnableEvents = True
End If
End Sub

Hoe kan ik deze code wijzigen zodat deze werkt wanneer ik eerst kolom F vul en dan kolom J?

Alvast heel hartelijk bedankt.

Mvg
Robert Smidt

 

[Robert Smidt]

Oplossing zelf gevonden

Ik heb zelf de oplossing bij toeval al gevonden.

If Not Intersect(Target, Range("j2:j500")) Is Nothing Then

Bij deze opgelost. Mocht iemand er naar hebben gekeken, alvast bedankt.

 

[HSV]

Hierbij maakt het niet uit welke je als eerste invult.

If Not Intersect(Target, Union(Range("f2:f500"), Range("j2:j500"))) Is Nothing Then

 

[snb]

Invult ?