VBA Code to remove color if cell is blank

[aayaanmayank]

Hi Can someone help me with the code that if cell is blank then remove color from the entire column in one go.

 

[davesexcel]

Use special cells, you may need an error trap incase there are no blanks..

    On Error Resume Next
    Range("A2:N24").SpecialCells(xlCellTypeBlanks).EntireColumn.Interior.Color = xlNone
    On Error GoTo 0

 

[Richard U]

Select the column of your cell, then change the interio pattern

    Columns(Selection.Column).Select
    Selection.Interior.Pattern = xlNone

 

[aayaanmayank]

Sorry Richard but this is remove color from entire column however what i need of cell is not blank then it should not remove color.

 

[Rick Rothstein]

Sorry Richard but this is remove color from entire column however what i need of cell is not blank then it should not remove color.

That means your cells are not blank, rather, they have formulas in them that are displaying the empty text string (""), correct? If so, what kind of values are in the cells that are not "blank"... numbers, text or a combination of numbers and text?

 

[aayaanmayank]

Hey Rick i am sure that there is no formula, cells may contains text, Numeric digit or combination of both

 

[Rick Rothstein]

Hey Rick i am sure that there is no formula, cells may contains text, Numeric digit or combination of both

I'm sorry, I mistook who you were answering (my fault, not yours).

Try the code davesexcel posted in Message #2 .

 

[aayaanmayank]

I'm sorry, I mistook who you were answering (my fault, not yours).

Try the code davesexcel posted in Message #2 .

Hi Rick yes i tried that one also but no luck.

 

[davesexcel]

Hi Rick yes i tried that one also but no luck.

Like Rick has mentioned, if my code did not work, then your cells are not truly blank.

 

[Rajneesh Rawat]

Hi,

Hope this wll help:

Sub xyz()
If Range("A7") = "" Then
Range("A7").EntireColumn.Interior.Color = xlNone
End If
End Sub