Visual Basic para Aplicaciones - Division por cero en calculo con rangos

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

probá algo así...
If Excel.WorksheetFunction.Sum(rng2) <> 0 Then
MyDiv = Evaluate("Average(" & rng1.Address & "/" & rng2.Address & ")")
Else
....
End If

Saludos, desde Baires, JuanC

JuanC,

pero en ese caso la condicion es para la sumatoria del rango, no para cada uno de los elementos.

Mi funcion divide cada elemento del rango1 por otro del rango2 y luego los promedia, es decir que de haber un solo elemento igual a 0 en rango me da error. Tu condicion no detecta eso pues lo que busca es la suma del rango.

mil gracias de todas formas.

OK
prueba con algo así entonces...

Function MyDiv(rng1 As Range, rng2 As Range) As Double
Dim cell As Range
For Each cell In rng2
If cell.Value = 0 Then
GoTo fin:
End If
Next
MyDiv = Evaluate("Average(" & rng1.Address & "/" & rng2.Address & ")")
fin:
End Function

Saludos, desde Baires, JuanC

JuanC,


Mil gracias por tus respuestas,


debo aclarar que necesito resalizar el calculo para todos los numeros distintos de cero.


en el ultimo caso que me sugieres haces una revision uno a uno de los valores, si alguno es cero va al fin.


en mi caso si tengo 20 valores y uno es cero entonces calcularia con 19, si hay 2 con 18.


en la funcion que propones haces la revision 1 a 1, en ese caso iria haciendo las operaciones acumulandolas y al final calcularia el promedio.


la idea mia era ya que trabajo con rangos seguir las operaciones con rango.


pudiera entonces buscar si hay ceros en el rango, si no calculo con mi funcion original, si los hay entonces los hago a mano. que crees?


saludos y mil gracias

otra variante... crea dos rangos nuevos quitando los ceros...

Function MyDiv(rng1 As Range, rng2 As Range) As Double
Dim cell As Range
Dim r1 As Range, r2 As Range
Set r2 = Nothing
MyDiv = 0#

For Each cell In rng2
If cell.Value <> 0 Then
If r2 Is Nothing Then
Set r2 = cell.Value
Set r1 = cell.Offset(0, -1) '//Supongo que rng1 está a la izquierda
Else '//del rng2 (y son iguales, obvio)
Set r2 = Union(r2, cell)
Set r1 = Union(r1, cell.Offset(0, -1))
End If
End If
End If
Next
If Not r2 Is Nothing Then
MyDiv = Evaluate("Average(" & r1.Address & "/" & r2.Address & ")")
End If
fin:
End Function

Saludos, desde Baires, JuanC