Delete a row if a cell contains ANY Date

[Sandy01UK]

Hi

I've tried several solutions for this and cant seem t get it to work!

In my spread sheet I have column T (Dispatch date) this cell returns a date (dd/mm/yy) given the formula

if(Q2<>""Q2,IF(R2<>""R2,IF(S2<>",S2,"")))

I need to loop through column T d delete ANY date.

I have tried

Column("T").SpecialCells(xlCellTypeConstants).EntirRow.Delete

Along with others with no success.

My Data has headers.

On the same note I later need to copy the raw data and need to delete all the blanks.

I'm struggling with this as well

Any suggestions would be gratefully received

Once again thanks for your patience.

Sandy

 

[VoG]

Try this on a copy of your sheet

Sub atest()
Dim LR As Long, i As Long
LR = Range("T" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    If IsDate(Range("T" & i).Value) Then Rows(i).Delete
Next i
End Sub

 

[Sandy01UK]

Hi Thanks for this it works a treat any suggestions for deleting the blanks/cells with formulas?


Thanks Again

Sandy