Replacing formula with value

[Bakerson]

Help me please!!
I have a set of data which I need to partially paste values only. However, I don't want to replace all values. The vertical list of data includes sumif functions, sum functions, if functions and simple additions, divisions and multplications as well as blank cells.
What i want to achieve is a macro that will only replace the sumifs with values.
does anyone know how to do this?
cheers

 

[Andrew Poulsom]

Maybe try:

Sub ConvertSUMIFToValues()
    Dim WorkRange As Range
    Dim Cell As Range
    On Error Resume Next
    Set WorkRange = Selection.SpecialCells(xlCellTypeFormulas)
    If Err <> 0 Then Exit Sub
    For Each Cell In WorkRange
        If Left(Cell.Formula, 6) = "=SUMIF" Then
            Cell.Value = Cell.Value
        End If
    Next Cell
End Sub

 

[Bakerson]

excellent, works a treat.
thanks very much Andrew