Que tal, me gustaría hacer un vlookup en un formulario, que devuelva un dato en un label según el dato ingresado en un textbox.
Tengo lo siguiente:
Private Sub CommandButton1_Click()
Valor = Application.WorksheetFunction.VLookup(Me.TextBox1.Value, Sheets("DATA Maro-2021").Range("a:B"), 2, 0)
Me.Loc.Caption = Valor
End Sub
1 respuesta
Respuesta de Dante Amor
1
¿Cuál problema tienes con tu código?
Intenta también con el siguiente:
Private Sub CommandButton1_Click()
Dim f As Range
Set f = Sheets("DATA Maro-2021").Range("A:B").Find(TextBox1.Value, , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
loc.Caption = f.Offset(0, 1).Value
Else
MsgBox "No existe"
End If
End Sub
Muchas gracias, he seguido tus respuestas a otras preguntas y han sido de mucha utilidad!
.
Encantado de ayudarte.
