0

Hola muy buenos días colegas, tengo una pregunta que aun no he podido resolver, resulta que tengo dos libros de excel A y B, en uno de ellos un registro como base de datos y en el otro una lista de códigos de productos y lo que quiero es buscar los datos en el libro B de acuerdo a los código del libro A con macros Vlookup alguna ayuda sera muy agradecido gracias!. Aquí dejo unas lineas de codigo. Application.CutCopyMode = False

conteo As Long
Dim Marca As Variant
Dim Rango As Variant
Dim Archivo As String
Dim bCarpeta As String
Dim codigoBuscado As String
Dim Final As Long

    bCarpeta = ActiveWorkbook.Path & "\"
    Archivo = Dir(bCarpeta & "Maestro Dinet" & "*.xl*")
    Workbooks.OpenText Filename:=Archivo
    Application.ScreenUpdating = False
    Archivo = ActiveWorkbook.Name
    Windows(Archivo).Activate

    ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-5],'[Maestro Dinet.xlsb]01'!C1:C38,31,0)"
    Range("G5").Select
    Selection.AutoFill Destination:=Range("G5:G86") ', Type:=xlFillDefault

MsgBox "Proceso terminado", vbInformation, "Resultado"
1
  • Hola @Federico, bienvenido a Stack Overflow en español, te sugiero completar el recorrido para que te familiarices con el funcionamiento del lugar y de paso ganar tu primera medalla. También puedes revisar la sección de Cómo preguntar para que tus preguntas sean bien recibidas por la comunidad y obtengas respuestas de calidad el 25 may. 2018 a las 9:19

1 respuesta 1

1

El problema es que el código creado por el grabador de macros no funciona bien.

Intenta algo cómo esto:

With Sheets("Hoja_donde_aplicas_buscarv").Range("G5:G86")
    .Formula = "=VLOOKUP(RC[-5],'" & Archivo & "01'!C1:C38,31,0)"
    .Formula = .Value
End With

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.