VBA Delete zeros if blank cell found in D

[Miya]

Hi,

I am after a vba code that will clear zeros if blank cell found in Col D. So if a blank cell is found in Col D then clear zeros in that row

Excel Workbook
	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
9	Team
10	BHP
11	RIO
12		0	0	0	0	0	0	0	0	0	0	0	0	0	0
13	TEST1
14	TEST2
15	TEST3
16	TEST4
17	TEST5
18	TEST6
19	TEST7
20		0	0	0	0	0	0	0	0	0	0	0	0	0	0
21	TEST8
22	TEST9
23	TEST10
24	TEST11
25		0	0	0	0	0	0	0	0	0	0	0	0	0	0
Sheet1

 

[wigi]

For instance:

Sub clear0whenempty()

    Columns(4).SpecialCells(4).Offset(, 1).EntireRow.Replace 0, "", xlWhole

End Sub

Wigi

 

[jim may]

Another approach would be... (change to suit)

Sub clearZeros()
Dim Rng As Range, c As Range
    Set Rng = Range("D2:D17")
        For Each c In Rng
            If c = "" Then Range(Cells(c.Row, 5), Cells(c.Row, 18)).ClearContents
        Next c
End Sub

 

[Peter_SSs]

For instance:

Sub clear0whenempty()

    Columns(4).SpecialCells(4).Offset(, 1).EntireRow.Replace 0, "", xlWhole

End Sub

Wigi

Just wondering about the red bit. Is that required?

Another approach would be... (change to suit)

Sub clearZeros()
Dim Rng As Range, c As Range
    Set Rng = Range("D2:D17")
        For Each c In Rng
            If c = "" Then Range(Cells(c.Row, 5), Cells(c.Row, 18)).ClearContents
        Next c
End Sub

Except that this would clear everything in columns E:R of the relavent rows, not just zero values as was requested.

 

[wigi]

Just wondering about the red bit. Is that required?

No, can be left out