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 |
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. |
All times are GMT +1. The time now is 08:13 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com