Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
creating a "date selector box" or "pull down box" in a cell | Excel Worksheet Functions | |||
Convert numbers to date: "586" to read "May 1986" | Excel Worksheet Functions | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel |