Macro for conditional formatting (cell fill color)

See if this helps :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Column = 2 Then
  Target.Worksheet.Cells(Target.Cells.Row, 3).Interior.Color = RGB(200, 1, 2)
End If
End Sub

-Rahul

Thanks for your quick reply. This is in the right direction. Now every cell in column 3 becomes red when I change the value in Column 2.

I would like to have it the other way around - Column 2 changes color based on the value of Column 3.

Say if Column 3 equals "Group A" then give the cell in Column 2 a red fill. If Column 3 equals "Group B" then give Column 2 a green fill.

And finally - if the value in Column 3 is NOT equal to "Group A" or "Group B" then clear formatting.

I hope this solves your problem:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Column = 3 Then

Dim groupA As Integer
Dim groupB As Integer

'Just assuming your groupA and groupB are first 2 cells, replace with appropriate cell range
groupA = Target.Worksheet.Cells(1, 1).Value
groupB = Target.Worksheet.Cells(1, 2).Value

    Select Case Target.Worksheet.Cells(Target.Cells.Row, 3).Value
    Case groupA:
        Target.Worksheet.Cells(Target.Cells.Row, 2).Interior.Color = RGB(200, 0, 0)
    Case groupB:
        Target.Worksheet.Cells(Target.Cells.Row, 2).Interior.Color = RGB(0, 200, 0)
    Case Else:
        Target.Worksheet.Cells(Target.Cells.Row, 2).Interior.ColorIndex = 0
    End Select

End If
End Sub

Thanks! This works perfectly when I manually enter Group A or Group B.

However I have a forumula in the cell that pulls this information from a different cell. I belive this does formula does not trigger a worksheet_change, so the cell fill is not updated.

Do you have a solution for this as well :) ?

Rahul,

Hi i just  fresh to visual basic.
Sorry i try hard to study the  codes, seems still unknow how to apply.

Regards
Stanley

Sorry Wrong message !