Ignoring blank cells with data validation

[worecx]

Hi guys,

This might be a very easy one, i am not sure because i am a newb to vba.

I have made vba code to look if the data i entered is correctly, but it gives an error with empty cells. So i am looking for code which ignores empty cells.

                For Colcounter = 3 To 5
                sCellValue = Worksheets("Ruwe_Data_Taken").Cells(counter, Colcounter)
            If IsDate(sCellValue) <> "Waar" Then
'               Set the color of the cell with the value on red
                Worksheets("Ruwe_Data_Taken").Cells(counter, Colcounter).Font.Color = RGB(255, 0, 0)
                iErrorCounter = iErrorCounter + 1
                iErrorsInRow = iErrorsInRow + 1

This is the piece of code where it should ignore empty cells, thanks for any help!

[tigeravatar]

worecx,

Try checking if the cell is blank before checking if the cell contains a date:

    For Colcounter = 3 To 5
    scellvalue = Worksheets("Ruwe_Data_Taken").Cells(counter, Colcounter)
    If Trim(scellvalue) <> vbNullString Then
        If IsDate(scellvalue) <> "Waar" Then
            'Set the color of the cell with the value on red
            Worksheets("Ruwe_Data_Taken").Cells(counter, Colcounter).Font.Color = RGB(255, 0, 0)
            iErrorCounter = iErrorCounter + 1
            iErrorsInRow = iErrorsInRow + 1
        End If
    End If