VBA ignore error

[Akbarov]

Hello,

I am using VBA loop to get value from range.
Most of cells have values, but some cells has #NUM error.
VBA works fine until first #NUM error.

How can I ignore or make it copy "This cell has error" text instead of #NUM ?

sld.Shapes("$element4").TextFrame.TextRange.Text = Sh.Range("F80").Offset(0, i).Value

 

[nemmi69]

put before it

On Error Resume Next

 

[Siddharth Rout]

Hello,

.....
How can I ignore or make it copy "This cell has error" text instead of #NUM ?

Ignoring error (unless you are 100% sure of what you are doing) is never recommended. Handle it properly.

Is this what you are trying (UNTESTED)?

If IsError(Sh.Range("F80").Offset(0, i).Value) Then
    sld.Shapes("$element4").TextFrame.TextRange.Text = "This cell has error"
Else
    sld.Shapes("$element4").TextFrame.TextRange.Text = Sh.Range("F80").Offset(0, i).Value
End If

 

[Akbarov]

That's what I needed. Thanks both for replies.