VBA Code to run when format is changed

[magismo]

Hi All,

I am trying to write a simple event code that will run when a format is changed. Essentially, when a cell format is changed to green I want to put a 1 in another cell.

Thanks in advance for your help

 

[Snakehips]

magisimo,

I am assuming that your cell will turn green or not, based on a conditional formatting rule.
The format change itself will not register as an event but the sheet change that satisfies the CF rule will.

So for example......
Your CF rule to set a cell or a range of cells green is =A5>20 and your cell to receive the value 1 is B1.

You could code something like .....

Private Sub Worksheet_Change (ByVal Target As Range)
Application.EnableEvents = False
If Range("A5").Value > 20 Then
Range("B1").Value = 1
Else
Range("B1").Value = ""  'Or Whatever
End If
Application.EnableEvents = True
End Sub

Hope that helps.