Manejo de Error en Búsqueda VLOOKUP.
Hola a Todos...
Tengo una busqueda definida de la siguiente forma: Range("P" & xyz).Value = Application.VLookup(Sheets("Pedidos").Range("H" & xyz), Sheets("FZFACMOV").Range(RanRConc), 1, 0) y requiero que si la busqueda no encuentra un elemento correspondiente, pueda mover un texto a una celda determinada.
Ya hice varios intentos, pero ninguna me funciona.
Saludos y gracias anticipadas.
1 Respuesta
Respuesta de Dante Amor
1
La estructura puede ser así:
Sub buscar()
'Por.Dante Amor
res = Application.VLookup(Sheets("Pedidos").Range("H" & xyz), Sheets("FZFACMOV").Range(RanRConc), 1, 0)
If IsError(res) = True Then
' No lo encontró
'celda(determinada) = "texto"
Else
Range("P" & xyz).Value = res
End If
End SubPrimero pones en una variable "res" el resultado de vlookup, si la variable es error, entonces no lo encontró.
Saludos. Dante Amor
Si es lo que necesitas.
