VBA to change backgroundcolour in Freeform depending on text in cells

[mixer]

Hello

I'm new to VBA, so I need some help.
I have a spreadsheet with several freeforms. I would like them to change backgroundcolour, if the content in a cell is equal to another cell.

Basically I would like my shape "Freeform1" to change backgroundcolour to RGB (0, 180, 0) if Sheet1.Range ("A1") = Sheet2.Range("D3").
If it's not the same content in both cells, I would like the freeform to remain unchanged, that's RGB (79, 129, 189).

This should happend automaticly, so I don't have to click the shape to make it happen.

Can anyone help me with this?

Best regards
Mixer

[jewelsharma]

Here's your macro:

Sub Auto_Color_FreeForm()
With ThisWorkbook.Worksheets("Sheet1")
     If .Range("A1") = ThisWorkbook.Worksheets("Sheet2").Range("D3") Then _
     .Shapes("Freeform 1").Fill.ForeColor.RGB = RGB(0, 180, 0) Else _
     .Shapes("Freeform 1").Fill.ForeColor.RGB = RGB(79, 129, 189)
     End With
End Sub

to automate this, you will need to call this from the "Workbook_SheetChange" event of the workbook; like this

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call Auto_Color_FreeForm
End Sub

so that the code runs everytime the user changes something and evaluates the condition.

[mixer]

Thank you jewelsharma.

I tried to use the macro you gave me, I've just changed the cells and sheets to fit my new document. The shapes are in sheet1 and the reference cells in sheet2 and 3.

It looks like this now:

Sub Auto_Color_FreeForm()
With ThisWorkbook.Worksheets("Sheet1")
If .ThisWorkbook.Worksheets("Sheet2").Range("A3") = ThisWorkbook.Worksheets("Sheet3").Range("D3") Then _
.Shapes("Rounded Rectangle 4").Fill.ForeColor.RGB = RGB(0, 180, 0) Else _
.Shapes("Rounded Rectangle 4").Fill.ForeColor.RGB = RGB(79, 129, 189)
End With
End Sub

When I try to run it, with the second macro you wrote, I get an error message on line nr 3. Error code 383: Object doesn't support this property or method.
Any suggestions on how to fix this?

[jewelsharma]

I'll check & revert tomorrow.

[jewelsharma]

remove the "." just before "ThisWorkbook" in line No. 3 of your code; and then run it again.
Let me know if anything, or else mark the thread as [I]SOLVED[/]

Note: Please use the code tags when sharing the code in future. It makes your post neater and easier for all to follow.

[mixer]

Thanks, it runs perfectly now.