Verplicht om een club in te vullen

[jefkeh]

Ik heb er wel wat van gevonden op het forum maar nie echt van toepassing voor dit.
Als op de actieve regel c3 is ingevuld dan moet d3 altijd worden ingevuld met de letter 'u' of 'i'
Als d3 niet wordt ingevuld, dat moet er een melding komen dat dit nog moet gebeuren. Als c3 is leeg dan mag d3 ook leeg zijn. Er mag enkel u en i of U en I komen in d3.
Dit moet steeds voorkomen op de volgende regels, d4, d5 enz.
Alvast bedankt

 

[jefkeh]

Er staat een foutje in mijn bericht, club moet cel zijn.

 

[Cobbe]

Test deze eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Range("d3:d25")) Is Nothing Then Exit Sub
Application.EnableEvents = False
   For Each cl In Range("D3:D25")
    If cl.Offset(, -1) <> "" And LCase(cl) <> "u" And LCase(cl) <> "i" Then
     MsgBox ("Foute invoer in: " & cl.Address): cl.Select
    End If
   Next
Application.EnableEvents = True
End Sub

 

[jefkeh]

Cobbe,
Bedankt maar de snelle reactie, maar ik krijg het niet werkend.
ik stuur een bestandje mee
de vraag is misschiens iets anders,
als in kolom E een bedrag wordt ingevuld dan moet kolom d steeds worden ingevuld met een i of u (ook rekening houden met hoofdletters
Nogmaals dank uBekijk bijlage Kasverslag2016.xlsm

 

[MDN111]

Probeer deze eens.

Grtz,
MDN111.

 

[Cobbe]

Niet waterdicht maar toch redelijk goed werkend.

 

[sylvester-ponte]

jef, je kan met "voorwaardelijke opmaak" de cel rood maken als er een fout in staat.

 

[jefkeh]

Dit ga ik allemaal uitproberen, bedankt voor de reacties
Gr.