Verplichte cellen invullen

[wimix69]

Ik heb een document waar in het verplicht is bepaalde cellen in te vullen. Als dit niet gebeurt krijg je een foutmelding. Als er bij bepaalde cellen iets in in gevuld dan moeten ook nog andere cellen worden ingevuld. Select Case UCase(Range("AB220")) Case "D", "E", "F", "G" Werkt alleen als er D E F of G wordt ingevuld. Nu wild ik dit aanpassen zodat als ik een tekst heb gevalideerd andere cellen verplicht zijn in te vullen. Wat moet er hier dan in worden aangepast ? Select Case UCase(Range("AB220"))

Function CheckWit() As Boolean
    With Sheets("Wit")
        If .Range("K166") <> "" And .Range("AC166") <> "" Then
            CheckWit = LegeCel("AB219", "Wit")
            CheckWit = LegeCel("AB220", "Wit")
            Select Case UCase(Range("AB220"))
                Case "D", "E", "F", "G"
                    CheckWit = LegeCel("S218", "Wit")
                    CheckWit = LegeCel("S219", "Wit")
                    CheckWit = LegeCel("S220", "Wit")
            End Select
            CheckWit = LegeCel("AC221", "Wit")
        End If
    End With
End Function

 

[glda19]

graag het iets duidelijker omschrijven wat je wilt doen is mij niet volledig duidelijk