Fill color in Blank cells

[gbabu]

Hi,

I have a doubt in Excel. In A Column, i have filled few different color and few blank cells. In the Blank cells, i have to fill only Green color.

Please advice me, how to write VBA Macro

Thanks in advance

 

[icecurtain]

You could use conditional formatting.

 

[VoG]

Assuming that those cells are not blank try

Sub FillGreen()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        If .Interior.ColorIndex = xlNone Then .Interior.ColorIndex = 4
    End With
Next i
End Sub

 

[Hamburgler]

If you want to select only the blank cells in a worksheet range you can do it via the GO TO dialog using CTRL+G and selecting Blanks. If you run the macro recorder while doing this you will get something like:

Selection.SpecialCells(xlCellTypeBlanks).Select

You can modify this code as needed, for example:

Activesheet.UsedRange.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(255,0,0)

 

[gbabu]

Assuming that those cells are not blank try

Sub FillGreen()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        If .Interior.ColorIndex = xlNone Then .Interior.ColorIndex = 4
    End With
Next i
End Sub

Thank you so much. code is working fine Peter