ghp2017

New Member
Joined
Dec 12, 2017
Messages
46
Hello,

I created a macro to remove some cells that had a value of 0 but just realized that it actually ends up removing anything that ends in 0 as well. Anyone know how to fix this?

Sub UPLOAD_REMOVE_NULL_VALUE()
Sheets(3).Unprotect Password:="Genesis"
Dim i As Long, lr As Long
lr = Cells(Rows.Count, "E").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, "E").Value Like "*[0]" Then
Range("E" & i).EntireRow.Delete
End If
Next i
Sheets(3).Protect Password:="Genesis", AllowFiltering:=True
End Sub
 

Some videos you may like

Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.

Rick Rothstein

MrExcel MVP
Joined
Apr 18, 2011
Messages
36,428
Office Version
  1. 2010
Platform
  1. Windows
Hello,

I created a macro to remove some cells that had a value of 0 but just realized that it actually ends up removing anything that ends in 0 as well. Anyone know how to fix this?

Sub UPLOAD_REMOVE_NULL_VALUE()
Sheets(3).Unprotect Password:="Genesis"
Dim i As Long, lr As Long
lr = Cells(Rows.Count, "E").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, "E").Value Like "*[0]" Then
Range("E" & i).EntireRow.Delete
End If
Next i
Sheets(3).Protect Password:="Genesis", AllowFiltering:=True
End Sub
If I understand what you want correctly, change the highlighted line of code to this...

If Cells(i, "E").Value = 0 Then
 

Watch MrExcel Video

Forum statistics

Threads
1,114,339
Messages
5,547,360
Members
410,789
Latest member
cpolek83
Top