Evitar error

27/10/2005 - 20:04 por javi | Informe spam
Hola

Necesito evitar un error que me aparece cuando al buscar en una base de
datos el valor buscado no existe

Estoy intentandolo con el siguiente código, pero no me funciona bien

If IsError(WorksheetFunction.VLookup(CodArticulo, Matriz2, columna,
False)) Then
MsgBox ("El producto no existe en la BdDatos")
precio = 0
Else
precio = Buscar_Art(CodArticulo, CodProveedor, 5)
End If

¿alguna idea?

Muchas gracias

Javi
 

Leer las respuestas

#1 Héctor Miguel
28/10/2005 - 03:57 | Informe spam
hola, javi !

Necesito evitar un error que me aparece cuando al buscar en una base de datos el valor buscado no existe
Estoy intentandolo con el siguiente código, pero no me funciona bien
If IsError(WorksheetFunction.VLookup(CodArticulo, Matriz2, columna, False)) Then
MsgBox ("El producto no existe en la BdDatos")
precio = 0
Else
precio = Buscar_Art(CodArticulo, CodProveedor, 5)
End If



suponiendo que no hay posibilidad de 'errores' para que las funciones de hoja de calculo por codigo
-> 'interpreten' las variables como argumentos 'validos' ...
prueba a modificar la primera instruccion que expones a...
If Application.WorksheetFunction.CountIf(Matriz2, CodArticulo) = 0 Then [etc. etc. etc.] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares