Delete rows if cell value is greater than a specific time

[Rackette]

Hello again!
Hopefully, today was a pleasant day for everyone. Not a perfect one, necessarily, but at least a pleasant one.
I thought this would be an easy thing to find, but I can't seem to find any code that will do what I need.

My spreadsheet is only 7 columns by about 300 or 400 rows, so how long it takes to run is not a huge issue.
The 4th column is a date/time column and is in the format like: 9/3/2019 12:01:00 AM
In this date/time column the date will not change throughout the column, BUT the TIME WILL VARY...so all rows will be for the same day but the times will change.
My header row is row 1.
Records start on row 2.
The number of rows is dynamic.

I need to delete all rows where the TIME in column 4 is "less than 0645"

As always, any and all help is appreciated!

-Christine

 

[DanteAmor]

Dante, I"m sorry I was unable to answer your question sooner and ended up wasting your time.

Hi @Rackette, taking advantage of the Trebor code, I adapted it in my code to work and leave a more compact macro.

Sub Delete_Rows()
Dim lr As Long, i As Long, a, r As Range, exists As Boolean
Application.ScreenUpdating = False
lr = Range("D" & Rows.Count).End(xlUp).Row
Set r = Range("A" & lr + 1)
a = Range("D2:D" & lr)
For i = 1 To UBound(a)
  If Len(a(i, 1)) > 0 Then If TimeSerial(Hour(a(i, 1)), Minute(a(i, 1)), 0) < TimeSerial(6, 45, 0) Then Set r = Union(r, Range("A" & i + 1))
Next i
r.EntireRow.Delete
End Sub

 

[Rackette]

Dante,
Thank you very much for following up. That does what I need it too, also.
Everyone on here is always so helpful!

-Christine

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.