VlookUp

Hola amiga, tengo un problemita no se si sera factible evitar el mensaje de error que salue al no encontrar un dato buscado, utilizando el siguiente código:
Private Sub CommandButton1_Click()
Dim valor1, valor2 As Variant
valor1 = TextBox1.Text
valor2 = Application.WorksheetFunction.VLookup(valor1, Sheets("Hoja1").Range("C2:H166"), 6, False)
TextBox2.Text = valor2
End Sub
¿Es posible utilizar el =IF(ISERROR similar a como se utiliza en una hoja de cálculo, y como sería? Gracias.
Respuesta
1
No es posible utilizar la función If... podrías agregar un control de error de esta manera:
On Error GoTo errando
valor2 = Application.WorksheetFunction.VLookup(valor1, Sheets("Hoja3").Range("G13:H17"), 1, False)
'otras instrucciones
errando:
valor2 = ""
'quizás tengas que agregar un goto para seguir en tu proceso....
Espero te sirva y lo resuelvas
No es posible utilizar con el If, una solución sería agregar un control de error.
On Error GoTo errando
valor2 = Application.WorksheetFunction.VLookup(valor1, Sheets("Hoja3").Range("G13:H17"), 1, False)
'otras instrucciones
errando:
valor2 = ""
'quizás tengas que utilizar un goto para seguir con tu proceso
Espero puedas resolverlo así

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas