Macro to turn all cell with purple font into values

[tonywatsonhelp]

Hi everyone,

Not sure if this is posible but what i need is a macro that can turn all purple font cells from formulas to values?
PS if its not posible I could make the cell fill purple instead?

please help if you can tony

 

[6StringJazzer]

This will check all cells with formulas on the active sheet, and convert to values the ones with purple font.

It is not necessary to check cells that do not have formulas because they will either be empty or already have values.

A formula that returns a blank will still be converted if the cell has purple font.

You did not define what you mean by "purple." This code uses 112, 48, 160. Modify to suit.

Public Sub PurpleToValues()

   Dim Cell As Range
   
   For Each Cell In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
      
      If Cell.Font.Color = RGB(112, 48, 160) Then
         Cell.Value = Cell.Value
      End If
   
   Next Cell
   
End Sub

 

[tonywatsonhelp]

Hi Six String Jazzer
that is perfect thank you so much
Merry Christmas
Thanks
Tony