Usar BUSCARV para devolver valores en un TextBox
Para solicitar el por que no me carga datos en un formulario usando este código, la cual la idea es usar un TEXTBOX(Txt_buscapro) en un formulario que al digitar un nombre este me haga cargar o rellenar los otros texbox que están en un formulario y registrados en una hoja "columna2" y me aparezca en el formulario el dato digitado en Txt_buscapro en textbox(Txt_Nompro)
Private Sub Btn_buscapro_Click()
Dim rango As Range
Dim Buscar As Integer
Dim pro As String
On Error Resume Next
Set rango = Sheets("Hoja2").Range("A2").CurrentRegion
Buscar = Me.Txt_buscapro.Value
pro = Application.WorksheetFunction.VLookup(Buscar, rango, 3, 0)
Me.Txt_Nompro.Value = pro
End Sub
2 respuestas
Respuesta de Elsa Matilde
2
En mi canal encontrarás varios ejemplos del método FIND: en videos N° 16, 25, 36 y otros.
Pero especialmente te recomiendo el video N° 28, donde se trata de buscar un dato y mostrar el contenido del registro en el resto de los controles.
Respuesta de Dante Amor
1
Te recomiendo utilizar el método Find en lugar de Vlookup.
Revisa lo siguiente: