VBA stops when I try to divide on zero

[espenskeie]

Hi

I have a code that will divide some cellvalues, but sometimes the cells are either empty or has an zero.

How can I prevent the code from stopping?

If Not IsError(.Range("L" & j).Value * .Range("N" & j).Value) / -(.Range("M" & j).Value * .Range("O" & j).Value) Then
                                .Range("Q" & j).Value = (.Range("L" & j).Value * .Range("N" & j).Value) / -(.Range("M" & j).Value * .Range("O" & j).Value)
                                
                                End If

Kind regards
Espen

 

[Jubjab]

simply add an error ignoring clause:

on error resume next
--- your code here ---
on error goto 0