Hacer la búsqueda de una forma diferente, trate de utilizar código WorksheetFunction.VLookup no me sirvió para lo que quiero.
Solo hace la búsqueda si el dato aparece en la primera columna "como buscarv", pero el problema es que no puedo mover la columna porque la necesito en la tercera posición como mas podría hacer la búsqueda.
Que se haga desde una caja de texto porque se debe introducir el dato, agradecería mucho su ayuda lo necesito realmente.
Private Sub buscar_Click()
On Error Resume Next
nombre.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D450"), 2, False)
cedula.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D450"), 3, False)
fecha.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D450"), 4, False)
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Dante realmente eres un experto. - charito avila
Gracias Charito :) - Dante Amor