¿Como controlar que el resultado de una formula esta bien?

Hola Thebigmik,

"Thebigmik" wrote in message news:

Al grano, tengo una hoja donde quiero hacer una comprobación. En esta
hoja hay celdas con formulas extensas y algunas veces según el cálculo
no da un número concreto y la celda aparece con las típicas
almohadillas "######". Despues tengo código que usa estas celdas pero
si el valor son las almohadillas quiero que hago otra cosa.
El problema es que no se como decir por código que la celda tiene un
cálculo erroneo (######)

If Hoja1.range("A5") = . then
msgbox ("no se puede calcular")
end if

Las "tipicas" almohadillas pueden ser y significar cosas distintas y no necesriamente ererores. P.ej:

- que has obtenido un valor negativo de fecha (Excel no puede mostrar valores negativos de fecha, pero los calcula correctamente)
- que el ancho de la columna no permite ver el valor entero y no es un error
- que hay un valor de error, pero que no se ve cual es debido al ancho de la columna

En principio, para comprobar si la celda tiene alguno de los valores de error se podria usar la funcion IsError, p.ej:

If IsError(Hoja1.Range("A5")) Then
MsgBox ("no se puede calcular")
End If

Saludos,
KL

On 25 jun, 10:31, "KL" wrote:

Hola Thebigmik,

"Thebigmik" wrote in messagenews:
> Al grano, tengo una hoja donde quiero hacer una comprobación. En esta
> hoja hay celdas con formulas extensas y algunas veces según el cálculo
> no da un número concreto y la celda aparece con las típicas
> almohadillas "######". Despues tengo código que usa estas celdas pero
> si el valor son las almohadillas quiero que hago otra cosa.
> El problema es que no se como decir por código que la celda tiene un
> cálculo erroneo (######)
> If Hoja1.range("A5") = . then
> msgbox ("no se puede calcular")
> end if

Las "tipicas" almohadillas pueden ser y significar cosas distintas y no necesriamente ererores. P.ej:

- que has obtenido un valor negativo de fecha (Excel no puede mostrar valores negativos de fecha, pero los calcula correctamente)
- que el ancho de la columna no permite ver el valor entero y no es un error
- que hay un valor de error, pero que no se ve cual es debido al ancho de la columna

En principio, para comprobar si la celda tiene alguno de los valores de error se podria usar la funcion IsError, p.ej:

If IsError(Hoja1.Range("A5")) Then
MsgBox ("no se puede calcular")
End If

Saludos,
KL

Perfecto, gracias.