Change the Color of Shape in Excel Based on Cell Value using VBA

Hi Experts,

Got VBA as below but Wanted to change command from Shipped, Delivered & On Hold to Done or Not Yet Done, Secondly is it possible to have VBA code for multiple cells for a single Shape like I'll be having A1 to A100 Done or Not Done if any of the Cell Shows Not Done Shape should turn to RED, if All Are Done Shape should be Green.


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = vbWhite

If UCase(ActiveSheet.Cells(2, 1)) = "SHIPPED" Then
ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = vbYellow
End If

If UCase(ActiveSheet.Cells(3, 1)) = "DELIVERED" Then
ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = vbGreen
End If

If UCase(ActiveSheet.Cells(4, 1)) = "ON HOLD" Then
ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = vbRed
End If

End Sub

Anyone please 🥺

Originally Posted by HumphreyDog

Hi kskhan - does the following help at all. It uses conditional formatting to highlight the cells based on their values. It might need a bit of tidying up but seems to do the job.
There's a second part (Clear_CF) which also removes the conditional formatting if you need to.

CODE

Sub colouring_in()
'
' colouring_in Macro
'


Range("A1").Select 'change A1 to which ever cell your data starts in
Range(Selection, Selection.End(xlDown)).Select
' Range(Selection, Selection.End(xlToRight)).Select

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Done"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -0
End With
With Selection.FormatConditions(1).Interior
.Color = 123458
End With


Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Not Yet Done"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -0
End With
With Selection.FormatConditions(1).Interior
.Color = 255
End With



Range("C1").Select 'change C1 to where ever you want the active cell to be after the formatting has been completed
End Sub

Sub Clear_CF()
'
' Clear_CF Macro
'

'

Range("A1", Selection.End(xlDown)).Select 'change A1 to which ever cell your data starts in
' Range(Selection, Selection.End(xlToRight)).Select
Selection.FormatConditions.Delete

Range("C1").Select 'change C1 to where ever you want the active cell to be after the removal of formatting has been completed
End Sub

/CODE

Thanks alot Sir

Originally Posted by huuthang_bd

Please try this attachment.

Thanks a lot Boss, Highly Appreciated

Originally Posted by Marc L

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Thanks a lot Boss, Appreciated.