VB Script IF field is blank

[Tmod4eva]

Hi,

Even though this is my first post to this forum, I have visited and browsed these forums many times and have been helped from the questions that others have asked.

I am having trouble trying to write a VB script (as I am new to VB) to blank out (delete) information from one cell IF another is cell is also empty.

Example:
--IF A1 does not contain any data, Then Delete any information from column B1.

The problem however is that column B currently contains data and I do not want to delete all data from these cells IF column A in the same row also has data. This is why I think a VB script would work best.

Thank you for all your help.

-Ricky

 

[Michael M]

Hi Ricky and welcome to the Board
try

Sub clrcel()
Dim lr As Long, r As Long
    For r = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Range("A" & r).Value = "" Then Range("B" & r).ClearContents
    Next r
End Sub

 

[Tmod4eva]

Wow!
Thank you Michael!
The script worked perfectly.

 

[Michael M]

Glad it worked, thanks for the feedback...