lege cellen overslaan

[DCTALK]

DAg beste mensen

weet iemand een vba code om lege cellen over te slaan

heb een lijst met een vba die controleerd gegevens, maar er staan ook lege cellen in en die moet ie overslaan in zijn controle. Nu controleerd ie ook de lege cellen en geeft ze een kleurt maar dat hoeft niet en het geeft onnodig geklik.

dit is wat ik heb geprobeert

Application.ErrorCheckingOptions.EmptyCellReferences = False
Range("V10").empty = "=V10:V200"

 

[Wigi]

Wat is de huidige VBA-code die je gebruikt om gegevens te controleren?
Graag tussen code tags plaatsen hier op het fourm.

 

[DCTALK]

beste wigi
dit gebruik ik nu

Private Sub Workbook_Open()
Sheets("Opleidingen").Range("v10:v200").Interior.ColorIndex = xlNone
    For Each cl In Sheets("Opleidingen").Range("v10:v200")
    Application.ErrorCheckingOptions.EmptyCellReferences = False
    Range("V10").empty = "=V10:V200"
        If cl <= Date Then
        Waarschuwing.Show: GoTo 2
        End If
    Next
2:
    For Each cl In Sheets("Opleidingen").Range("V10:V200")
    Application.ErrorCheckingOptions.EmptyCellReferences = False
    Range("V10").empty = "=V10:V200"
        If cl <= Date Then
            cl.Interior.ColorIndex = 3
                MsgBox ("Controleer Certificaten:  ") & cl.Row
    End If
Next
End Sub

en dan gaat het om de 2 regels die ik eerder genoemd heb.