Jump to content
Ame

Función VLookup

Recommended Posts

Estimados,

No logro que la macro se ejecute adecuadamente utilizando VLookup, ya busqué en inter y no encuentro el problema, agradeceré sus ayudas

ADJUNTO CODIGO

Private Sub TextBox1_AfterUpdate()
 
Dim Nombre As Variant
Dim Rango As Range
Dim Codigo As Variant
Set Rango = Worksheets("CLIENTES").Range("A1:b5000").CurrentRegion
Codigo = Me.TextBox1.Value
    
    Nombre = Application.WorksheetFunction.VLookup(Codigo, Rango, 2, 0)
    
With Me
    .TextBox2.Value = Nombre
End With

End Sub

Share this post


Link to post
Share on other sites

Gracias Diego; En la A1 está encabezado Expediente y en la B1 se detalla el nombre del cliente que es el dato que necesito trasladas.

los datos a evaluar estarían desde la A2 a la B10000

 

Expediente Nombre
2 Veronica Esmeralda Alvarenga
9 Nicole Amstrong (fallecio)
16 Reyna Guadalupe Ayala Iraheta
17 Rubia Clelia Ayala 
Edited by Ame

Share this post


Link to post
Share on other sites

solo tengo un ultimo problema y es que mi hoja se llama CLIENTES, así en mayúscula; y al modificar tu "hoja1"  con este nombre me da un erro... como hago referencia adecuadamente a la hoja con ese nombre; ya que me pide definir variables

Share this post


Link to post
Share on other sites

 

@Ame copia y pega nuevamente el código

Set Busqueda = Hoja3.Columns(1).Find(What:=TextBox1)
    If Not Busqueda Is Nothing Then
    TextBox2.Text = Busqueda.Offset(0, 1)
        
    End If

me comentas si ya con esto funciona..

Saludos..

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png