Excel VBA Question

deepak_agarwal · July 23rd, 2011, 11:02 PM

I want to find the cell which are not filled with color in selected range and want to color the non-filled cells.

Is there any macro for this.

I'm unknown to VBA.

PLease reply.

Regards
Deepak

JP · September 6th, 2011, 11:20 AM

This is air code, I didn't test it. You'll need to specify what color you want the non-filled cells to be.

Code:

 
Sub FindNonFilledCells()
Dim rng As Excel.Range
Dim cell As Excel.Range
Set rng = Selection
Application.ScreenUpdating = False
For Each cell In rng
  If cell.Interior.ColorIndex = -4142 Then ' no fill color
    ' what color do you want?
    ' cell.Interior.ColorIndex = ???
  End If
Next cell
Application.ScreenUpdating = True
End Sub