Checking formula result before inserting the formula in Cell in VBA?

[mehidy1437]

Hi Everyone,

I want to check the result of the formula before inserting it into the cell.
If the formula generates a 0, then I don't want to insert the formula into the cell.
How can I do this?

Here is the part of the code, where I want to do this.

    Dim c As Range
    For Each c In Rng
        If c.MergeCells Then
            calSum = c.MergeArea.Offset(, -1).Resize(c.MergeArea.Rows.Count).Address(0, 0)
            c.Formula = "=SUM(" & calSum & ")"
        End If
    Next

 

[Legacy 456155]

I think...

            If Evaluate("=SUM(" & calSum & ")") <> 0 Then
                c.Formula = "=SUM(" & calSum & ")"
            End If

 

[mehidy1437]

I will check & revert with the feedback.

 

[Legacy 456155]

I will await your reversion. Is that a word?

 

[mehidy1437]

Many thanks, It's working.