Division por cero en calculo con rangos
Publicado por Quinto (23 intervenciones) el 24/11/2010 11:09:51
Hola amigos,
otro error en el calculo con funciones similares a las anteriores.
Tengo esta funcion:
Function MyDiv(rng1 As Range, rng2 As Range) As Double
MyDiv = Evaluate("Average(" & rng1.Address & "/" & rng2.Address & ")")
End Function
si alguno de los valores de rgn2 es cero, por supuesto da error. Mi pregunta:
Existira alguna forma desde codigo VBA de ponerle una condicion para que solo realice el calculo con los valores sean <>0? Es decir que la funcion pueda realizar su operacion matematica sin tener que realizar el calculo verificando uno a uno?
mil gracias
otro error en el calculo con funciones similares a las anteriores.
Tengo esta funcion:
Function MyDiv(rng1 As Range, rng2 As Range) As Double
MyDiv = Evaluate("Average(" & rng1.Address & "/" & rng2.Address & ")")
End Function
si alguno de los valores de rgn2 es cero, por supuesto da error. Mi pregunta:
Existira alguna forma desde codigo VBA de ponerle una condicion para que solo realice el calculo con los valores sean <>0? Es decir que la funcion pueda realizar su operacion matematica sin tener que realizar el calculo verificando uno a uno?
mil gracias
Valora esta pregunta
0