Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
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.
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
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.
Code:
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