PDA

View Full Version : Solved: Clear cells in column A if column B has a zero



Shazam
08-13-2007, 02:25 PM
I have part numbers in column A and column B has the qty's. Does someone have a code if any cells in column B has a zero then clear the cells next to column A?

Bob Phillips
08-13-2007, 02:30 PM
Public Sub ProcessData()
Const TEST_COLUMN As String = "B" '<=== change to suit
Dim i As Long
Dim iLastRow As Long
With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = 1 To iLastRow
If .Cells(i, TEST_COLUMN).Value = 0 Then
.Cells(i, TEST_COLUMN).Offset(0, -1).Value = ""
End If
Next i
End With

End Sub

Shazam
08-13-2007, 05:55 PM
Thank You xld it's perfect!!