"If Not" with a date
Why doesn't this delete rows with dates before 1-1-03?
Thank you. LstRow = Cells(Rows.Count, "A").End(xlUp).Row For r = LstRow To 2 Step -1 If Not Cells(r, 4) = "12/31/02" Then Cells(r, 4).EntireRow.Delete Next r also how do I write an If not as above to delete anything that is not a nonblank? Thank you |
"If Not" with a date
Try
LstRow = Cells(Rows.Count, "A").End(xlUp).Row For r = LstRow To 2 Step -1 If Not Cells(r, 4) = DateSerial,2004,12,31) Then Cells(r, 4).EntireRow.Delete Next r For r = LstRow To 2 Step -1 If Not Cells(r, 4) < "" Then Cells(r, 4).EntireRow.Delete Next -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "jrh" wrote in message ... Why doesn't this delete rows with dates before 1-1-03? Thank you. LstRow = Cells(Rows.Count, "A").End(xlUp).Row For r = LstRow To 2 Step -1 If Not Cells(r, 4) = "12/31/02" Then Cells(r, 4).EntireRow.Delete Next r also how do I write an If not as above to delete anything that is not a nonblank? Thank you |
All times are GMT +1. The time now is 05:50 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com