Excel - abreviar codigo

Necesito abreviar la sentencia del If.

If Range("E89") = 0 Or Range("E89") = 0 or Range("E90") = 0 Then
MsgBox "Verifique Datos de las celdas E89 a E90"
Exit Sub
End If

Gracias

Muy buenas,

Tampoco me parece tan larga, pero en fin, por hacer una aportación, 1º tienes repetido E89, que no sé si será un error mecanográfico, sino, repetirlo no aporta nada, por eso bastaría con quitarla una vez. Otra forma un “pelín” más corta podría ser:

If Range("E89") * Range("E90") = 0 Then

Un saludo. Juanjo.

y si la sentencia es muy larga..?
gracias

Si la sentencia comprende varios rangos, digamos 10, si seria larga, en esos casos yo haria lo siguiente:

Sub sentencia_larga
if application.worksheetfunction.sum(range("a1:a100")) then
'si la suma de mi rango es cero, pon aqui el codigo que quieres que haga
Else
'de no ser cero, que debe hacer la macro
end if

End Sub

Con esto soluciono el problema.

Espero te sirva

Muy buenas,

El que una celda sea cero no implica que la suma de un rango que la comprenda sea también cero. Esto sí pasa con el producto, esto es, basta con que una única celda de un rango sea cero para que el producto de ese rango sea cero. En excel hay una función que nos da el resultado de un rango:

=producto(E89:E200)
No sé cual es el equivalente de esta función en un macro, si es que lo hay (dejo abiertas las aportaciones)

Entonces yo te sugeriría que pusieses esa función en una celda que tengas vacía, por ejemplo C1 y después tu macro lo dejes así:

If Range("C1") = 0 Then
MsgBox "Verifique Datos de las celdas E89 a E200"
Exit Sub
End If

Un problema que tiene la función producto es que no multiplica las celdas vacías, o sea que para que funcione tiene que ser que la celda tenga cero, no lo detecta si está vacía.

Para solucionar este problema, pero complicando la macro, podría quedar así:

resultado = 1
For i = 89 To 200
resultado = resultado * Range("E" & i)
Next
If resultado = 0 Then
MsgBox "Verifique Datos de las celdas E89 a E200"
Exit Sub
End If

Un saludo. Juanjo.

desde una macro pueden usarce las funciones con WorksheetFunction

ej: Excel.WorksheetFunction.Product( ... )

Saludos, desde Baires, JuanC

Muy buenas,

excelente la aportación de JuanC, como de costumbre. Yo no la conocía. Con esto se evita tener que hacer el paso intermedio y la macro quedaría as:

If Excel.Application.WorksheetFunction.Product(Range("e89:e200")) = 0 Then
MsgBox "Verifique Datos de las celdas E89 a E200"
Exit Sub
End If

Sigue pasando lo de las celdas vacías o con valor cero, por lo que, en su caso, habría que utilizar la otra opción.

Un saludo. Juanjo.