Replace Column B Values based on Column A

Hi,

I am trying to build a macro that will:

See if A1 (integer) is empty

If A1 empty, clear contents of B1

If A1 has an integer, do nothing


I need this to loop down to row 57,000

See my attempt at the code below...could anyone help me out or point me in the right direction?

Thanks
Karl


Sub Clear_B()

Dim Column_A As Integer, Column_B As String

Application.ScreenUpdating = False

For Column_A = 1 To 57000

If Cells(i, 1).Value Is Not interger Then Range(Cells(Column_A, 1), Cells(Column_A, 2)).Replace Cells(Column_A, 2).Value, ""

End If

Next i

End Sub

Maybe:

Please Login or Register  to view this content.

HI,

Yes, that worked perfectly. Thanks a million.

I think I need to explore more functions of VBA to think about the best way to solve these problems.

Thanks
Karl

You're welcome. Glad to help out and thanks for the feedback.