Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Row Macro
Hello
I have a sheet of approx 200 rows that is updated monthly from MS Money. Could anybody advise a macro to delete rows with a specific cell value of zero? ie if E*=0,delete row Thanks very much Doug |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Row Macro
Doug,
Sub deleterowswithblankcells() Dim cell As Range Sheets("sheet1").Activate 'replace sheet1 with your sheet name For Each cell In ActiveSheet.Range("A1:E20") 'replace A1:E20 with your range If cell.Value = 0 Then ActiveSheet.Rows(cell.Row).Delete (xlUp) End If Next End Sub This should work.If you just want to delete rows with a value of 0 in column E then change the range to E1:E1000 or whatever. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming |