Vbusca en VBA de un textbox

Hola!
Tengo un textbox con un valor "idCliente" y dependiendo de ese valor, necesito que busque en un rango el valor "idcliente" y que el resultado sea e "nombre del cliente"
Intente con este procedimiento pero me sale un error:
Private Sub cboLote_Exit(ByVal Cancel As MSForms.ReturnBoolean)
busca
End Sub
Sub busca()
txtNombreIng.Text = Application.WorksheetFunction.VLookup(txtIdClient.Value, Range("Contrataciones!A2:M1500"), 5, False)
End Sub
Mil gracias por su ayuda.
Saludos desde México!

1 Respuesta

Respuesta
1
Te ajusto la rutina 'Busca'
Sub busca()
Dim rgo
Set rgo = Sheets("Contrataciones").Range("A2:M1500")
TextBox2.Text = Application.WorksheetFunction.VLookup(TextBox1.Value, rgo, 5, False)
End Sub
Si aún te sale un error, debes escribirme la línea donde se produce (la de amarillo)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas