Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows if column looks blank
I need a macro to delete the entire row if the cell in that row in column A:A
looks blank. I need it to check every row. I say "looks" because the cells will be part of a list, however I would still like them to be deleted if they have a formula if they look as though nothing is in them... Please help... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows if column looks blank
Sub killum()
n = Cells(Rows.Count, 1).End(xlUp).Row For i = n To 1 Step -1 If Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete End If Next End Sub -- Gary''s Student - gsnu200834 " wrote: I need a macro to delete the entire row if the cell in that row in column A:A looks blank. I need it to check every row. I say "looks" because the cells will be part of a list, however I would still like them to be deleted if they have a formula if they look as though nothing is in them... Please help... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows if column looks blank
This makes it check them inifinitely so the macro never stops. Why does this
happen? Is there a way to fit it? "Gary''s Student" wrote: Sub killum() n = Cells(Rows.Count, 1).End(xlUp).Row For i = n To 1 Step -1 If Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete End If Next End Sub -- Gary''s Student - gsnu200834 " wrote: I need a macro to delete the entire row if the cell in that row in column A:A looks blank. I need it to check every row. I say "looks" because the cells will be part of a list, however I would still like them to be deleted if they have a formula if they look as though nothing is in them... Please help... |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows if column looks blank
Probably by modifying to look something like this:
Sub killum() n = Cells(Rows.Count, 1).End(xlUp).Row While (n = 1) If Cells(n, 1).Value = "" Then Cells(n, 1).EntireRow.Delete n = n - 1 End If Wend End Sub HTH, Eric " wrote: This makes it check them inifinitely so the macro never stops. Why does this happen? Is there a way to fit it? "Gary''s Student" wrote: Sub killum() n = Cells(Rows.Count, 1).End(xlUp).Row For i = n To 1 Step -1 If Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete End If Next End Sub -- Gary''s Student - gsnu200834 " wrote: I need a macro to delete the entire row if the cell in that row in column A:A looks blank. I need it to check every row. I say "looks" because the cells will be part of a list, however I would still like them to be deleted if they have a formula if they look as though nothing is in them... Please help... |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows if column looks blank
Actually, Gary's code should work just fine (upon actually looking at it!).
It should not create an infinite loop situation. Please check to ensure you got the "Step -1" part in your code - if you have "Step 1" or nothing at all, the loop will go on forever. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
delete the non blank rows depending on Column | Excel Programming | |||
Delete Blank Rows - specify column via dialog | Excel Programming | |||
Delete Rows if any cell in Column H is blank but do not Delete Fir | Excel Programming | |||
Delete entire rows where there is a blank in column A | Excel Programming | |||
To Delete the specific rows when blank is found on column A | Excel Programming |