ERROR #N/A EN VISUAL

dime si te funciona esto


'*****************************************************************************
Private Sub iserrorcell(cell As Range)
If Application.WorksheetFunction.IsError(cell) = True Then ' evalua si la
celda contiene un valor de error ya sea #N/A, #NOMBRE?,#ETC.
MsgBox "ingrese un numero valido por favor", "Numero no valido"
Else
If cell.Value <= 2 Then
MsgBox "LOCAL A ADVERTIR FAVOR CAMBIE DE CARTA", vbQuestion, "Por favor
cambie de carta"
End If
End If
End Sub


'/// se usa asi
'*****************************************************************************

Private Sub prueba()
iserrorcell ([A1]) ' "[a1]" es la notación usada para identificar dicho
valor como un objeto ". Range"
End Sub



"oscar rodriguez" wrote in
message news:

BUENAS TARDES AMIGOS,

ALGUIEN ME PUEDE AYUDAR INDICANDOME DE QUE MANERA MANEJO ESTE ERROR EN ENA
SENTENCIA IF.

EJEMPLO
If Hoja1.Range("S14").Value >= 2 Then
MsgBox ("LOCAL A ADVERTIR FAVOR CAMBIE DE CARTA")
End If

If Hoja1.Range("S14").Value = "#N/A" THEN
MsgBox ("INGRESE UN NUMERO VALIDO")
End If

CUANDO LA PERSONA DIGITA UN NUMERO DE LOCAL VALIDO, TENGO UNA FUNCION
BUSCARV QUE ME TRAE UN NUMERO A LA CELDA "S14", PERO CUNDO NO ENCUENTRA
TRAE
A LA CELDA EL VALOR "#N/A".
COMO PUEDO MANEJAR ESTE ERROR EN EL IF, YA PROBE DICIENDOLE IF S14 IS NOT
NUMERIC, PEO ME SALE ERROR.

GRACIAS