Delete Rows Based on Time criteria

**Domski** · 01-30-2012, 07:19 AM

Try this:

Sub Delete_rows()
    Dim i As Long
    With Sheets("New")
        For i = .Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
            If .Cells(i, "V") > TimeSerial(23, 0, 0) Or Cells(i, "V") < TimeSerial(8, 0, 0) Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

Dom

**Roelandu** · 01-30-2012, 09:38 AM

Thanks Dom. When i apply this code, it deletes everything but row 1 (the header). I think the OR operator
is not the best one anyway because both conditions (>23h and <8h) need to be fulfilled, so i'd rather go for AND even
though that doesn't work either.

I'm quite desperate, i've been trying stuff for hours but i can seem to make it work

I'm definitly not an expert in this kind of codes.

Any help is welcome!