I have a VBA problem - I want to do exactly what was being solved in this thread:
Delete Entire Row if Cells is Zero in Column J VBA
However instead of deleting the entire row based on ONE column being zero (in this example, J), I want to delete entire rows which contains zeroes in all cells in a specified range (columns D through AC). For example, if D2 thru AC2 all contain zeroes, then row 2 should be deleted from the sheet. Also, let's say D2 thru Y2 contain zeroes, but Z2 thru AC2 contain numeric values other than 0. In this case, I would NOT want to delete row 2 from the sheet.
Please let me know how I can change the macro to specify an entire range of columns instead of just one column.
This is the code I took from the above thread (right now it removes all rows where there is a zero in the 10th column):
- Sub Maybe3()
- Dim x, i As Long
- Application.ScreenUpdating = 0
- With Sheets("Sheet2").Cells(1).CurrentRegion.Columns(10) '<----- Change to actual sheet name
- x = .Value
- For i = 1 To UBound(x, 1)
- If x(i, 1) = 0 Then x(i, 1) = vbNullString
- .Value = x
- End With
- End Sub
I'm new to this website so don't know how to reach out. If you can message me please do. Thank you!