VBA Clear data in cell

[caritx]

If column A has value and column B is Blank I want to clear the data in C & D. The problem is I only want to clear the data in that cell and not the whole row of the columns after. Can anyone offer any advice?

Thanks in advance!

 

[Scott Huish]

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If c <> "" And c.Offset(, 1) = "" Then c.Offset(, 2).Resize(, 2).ClearContents
Next
End Sub

 

[caritx]

sorry it didn't work it just looks like nothing happened

 

[Scott Huish]

It worked when I tested it. It deletes the values in Column C and D for the rows where Column A is not blank and Column B is. What happened when you ran it?

 

[Scott Huish]

Before running macro:

Excel Workbook
	A	B	C	D	E
1	123	x	I	I	A
2	150		I	I	A
3			I	I	A
Sheet1

After:

Excel Workbook
	A	B	C	D	E
1	123	x	I	I	A
2	150				A
3			I	I	A
Sheet1

Is this not what you want?

 

[caritx]

That did it thank you so much! I really really appreciate it!