@Helpers
De code om te controleren of een getal in een kolom staat werkt perfect zolang de waarde in de kolom niet uit een andere kolom bijvoorbeeld: J3 = I3 komt. Al een paar dagen probeer ik uit te zoeken waarom de code niet werkt. Wie weet hoe de formule of de waarde in kolom J aangepast moet worden. Een voorbeeld heb ik bijgevoegd.
Alvast bedankt.
Esko
De code om te controleren of een getal in een kolom staat werkt perfect zolang de waarde in de kolom niet uit een andere kolom bijvoorbeeld: J3 = I3 komt. Al een paar dagen probeer ik uit te zoeken waarom de code niet werkt. Wie weet hoe de formule of de waarde in kolom J aangepast moet worden. Een voorbeeld heb ik bijgevoegd.
Alvast bedankt.
Esko
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iReply As Integer
On Error Resume Next
If Not Intersect(Target, Range("B2:F10")) Is Nothing Then
If Target.Column = 2 And [J2:J10].Find(Target, , xlFormulas, xlWhole) Is Nothing Then
If Target <> 0 Then
iReply = MsgBox("Het ........is " & vbCrLf & _
".....", vbCritical, "Invoer Fout!")
Target.ClearContents
End If
....
End If
Bijlagen
Laatst bewerkt: