Macro for deleting cells with "None" and "0" in a column

[XxMariaxX]

Hi All,

I am looking to see if there is a VBA code to go through column "AO" which starst at row 3 andgoes until the last row whatever that might be..(50 for now). It will look for "None" and "0" and delete it from the cell if its there.

Please help.

Thank you.

 

[texasalynn]

Delete it? Just that cell? Or just clear the contents of the cell?

 

[XxMariaxX]

Just clear the contents.. thanks

 

[texasalynn]

try this

Sub Remove_None_0()
Dim LR As Long
LR = ActiveSheet.Range("AO" & Rows.Count).End(xlUp).Row
For i = 3 To LR
    If Cells(i, "A0") = "None" Or Cells(i, "A0") = 0 Then
        Cells(i, "A0").Clear
    End If
Next i
MsgBox "Done"
End Sub

 

[XxMariaxX]

I forgot to mention that the cell could contain other data.. so it could look like this :

FAC 50 60
IC 112 31
(None) 0 0
(None) 0 0
MC 34 67

And i want the cell to end up looking like this:

FAC 50 60
IC 112 31
MC 34 67

All of this is in colum AO..


Thanks