Modifying the color of a data bar with conditional formatting through VBA

[Moonbeam111]

How do I change the color of a data bar with conditional formatting through VBA? I only would like to adjust just the color. No other properties need to be created or set.

This is what my Conditional Formatting is in Range ("E2:G2") (its a merged cell)

I know this has probably got to be a pretty easy solution but the answer is eluding me.

.

 

[LegendaryAxe]

Something like this?

Option Explicit

Sub ChangeDataBarColor()

    Dim rng As Range
    Dim ws As Worksheet
    Dim dataBar As dataBar
  
    Set ws = ActiveSheet
    Set rng = ws.Range("E2:G2")
      
    For Each dataBar In rng.FormatConditions
            dataBar.BarColor.Color = 'insert color here
    Next dataBar
  
    Set ws = Nothing
    Set rng = Nothing

End Sub

 

[Moonbeam111]

Yes. That is what I had in mind. However, I only have 1 data bar in my workbook.

    For Each dataBar In rng.FormatConditions
            dataBar.BarColor.Color = 'insert color here
    Next dataBar

How would i modify the code to apply to the one data bar I have in Range("E2:G2")?

 

[LegendaryAxe]

Try this:

Option Explicit

Sub ChangeDataBarColor()

    Dim rng As Range
    Dim ws As Worksheet
    Dim dataBar As dataBar
 
    Set ws = ActiveSheet
    Set rng = ws.Range("E2:G2")
     
    Set dataBar = rng.FormatConditions(1)
 
    dataBar.BarColor.Color = 'insert color here

End Sub

 

[Moonbeam111]

Thank you so much!