@Helpers
Onderstaande code werkt niet meer als kolom N verborgen wordt. Wie weet hoe de code aangevuld moet worden? Mijn zoekexercitie bleef (tot nu toe) zonder resultaat.
Alvast bedankt.
Esko
Onderstaande code werkt niet meer als kolom N verborgen wordt. Wie weet hoe de code aangevuld moet worden? Mijn zoekexercitie bleef (tot nu toe) zonder resultaat.
Alvast bedankt.
Esko
Code:
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 [N2:N10].Find(Target, , xlValues, xlWhole) Is Nothing Then
If Target <> 0 Then
iReply = MsgBox("Het ........is " & vbCrLf & _
".....", vbCritical, "Invoer Fout!")
Target.ClearContents
End If
End If
If Target.Column = 3 And [N2:N10].Find(Target, , xlValues, xlWhole) Is Nothing Then
If Target <> 0 Then
iReply = MsgBox("Het ........is " & vbCrLf & _
".....", vbCritical, "Invoer Fout!")
Target.ClearContents
End If
End If
If Target.Column = 5 And Cells(Target.Row, 2) = "" Then
If Target <> 0 Then
iReply = MsgBox("Er is nog geen ....." & vbCrLf & _
"in kolom B ingevuld.", vbCritical, "Invoer Fout!")
Target.ClearContents
End If
End If
If Target.Column = 6 And Cells(Target.Row, 2) = "" Then
If Target <> 0 Then
iReply = MsgBox("Er is nog ........" & vbCrLf & _
"in kolom C ingevuld.", vbCritical, "Invoer Fout!")
Target.ClearContents
End If
End If
On Error GoTo 0
End If
End Sub