Subtracing fill color cells and displaying them somewhere

[psxsquall]

VBA programming noob here...
I would like to do a simple task where a macro can find a cell that's colored yellow, use the value that is in it and subtract it from a cell that's colored green. That value should also be displayed on a cell different from those 2 cells.

The x.Interior.ColorIndex for the green highlight is 43 and yellow is 6

Keeping it simple, I only have 1 cell highlighted with each of the colors... not sure if it matters or not

Thanks in advance

[excelxx]

Hi

The following code assigns the value of the highlighted cells to variables which enables you to perform your calculation.

Sub CalculationBasedOnFormat()
    Dim xCell As Range
    For Each xCell In ActiveSheet.UsedRange
        If xCell.Interior.ColorIndex = 43 Then
            ZgrVal = xCell.Value
        ElseIf xCell.Interior.ColorIndex = 6 Then
            ZyellVal = xCell.Value
        End If
    Next xCell
    Diff = ZgrVal - ZyellVal    'put this value wherever you need it
    MsgBox Diff
End Sub

please amend accordingly.

[psxsquall]

Perfect. Thank you so much!

[excelxx]

Hi psxsquall

You are welcome.

Please can you change the thread to solved and provide feedback by clicking on the feedback scales.

Thanks