Macro para buscar en otro libro

[Hernan_g_f]

Hola buen día!

Tengo esta macro que nos permite, utilizando la función vlookup, traer datos desde una hoja a otra hoja de destino. Pero quiero hacer una macro que me traiga desde la hoja 1 del libro 1.xlsm hasta la hoja 2 del libro 2.xls . ¿Qué código tendría que escribir? Muchas gracias!!!

Lo que necesito es qué código puedo escribir para que Sheets("1").Range("E" & Rows.Count).End(xlUp).Row en lugar de
buscar en la hoja 1 del libro 2, busque en la hoja 1 del libro 1

Sheets("1").Select

Dim cont As Long
Dim ultlinea As Long
Dim O As Variant
Dim H As Variant
Dim L As Variant
Dim C As Variant

Dim Fecha As Variant
Dim Rango As Variant
Set Rango = Sheets("1").Range("E16:DH1400")

ultlinea = Sheets("1").Range("E" & Rows.Count).End(xlUp).Row ===> necesito que busque en el libro 1.xlsm

For cont = 17 To ultlinea



Fecha = Sheets("1").Cells(cont, 114)
O = Application.VLookup(Fecha, Rango, 3, False)

If IsError(O) Then
O = 0
End If

Sheets("1").Cells(cont, 115) = O
Next cont

End sub

 

[DanteAmor]

Hola Hernan:

No estoy entendiendo muy bien en dónde está la información, en dónde la vas a buscar, qué dato quieres obtener y en dónde quieres poner el resultado.

Puedes explicar con un ejemplo, lo siguiente:
- En dónde está el dato a buscar (libro-hoja-columna-fila)
- En dónde la quieres buscar (libro-hoja-columna)
- Qué dato quieres de resultado (libro-hoja-columna)
- En dónde quieres poner el resultado (libro-hoja-columna)

Nota XL2BB:
Para poner ejemplos aquí en el foro, puedes utilizar la herramienta XL2BB. Puedes descargarla aquí:
XL2BB Add-in
Para practicar puedes poner tus ejemplos en este hilo:
Test Here

Nota para el código:
Para poner el código en el foro utiliza las etiquetas de código (code tag).
Revisa el siguiente enlace:
How to Post Your VBA Code
Ejemplo:

Sub test()
  Sheets("1").Select
  Dim cont As Long
  Dim ultlinea As Long
  Dim O As Variant
  Dim H As Variant
  Dim L As Variant
  Dim C As Variant
  Dim Fecha As Variant
  Dim Rango As Variant
  Set Rango = Sheets("1").Range("E16:DH1400")
  ultlinea = Sheets("1").Range("E" & Rows.Count).End(xlUp).Row '===> necesito que busque en el libro 1.xlsm
  For cont = 17 To ultlinea
    Fecha = Sheets("1").Cells(cont, 114)
    O = Application.VLookup(Fecha, Rango, 3, False)
    If IsError(O) Then
      O = 0
    End If
    Sheets("1").Cells(cont, 115) = O
  Next cont
End Sub

Saludos

 

[Hernan_g_f]

Hola Dante! muchas gracias.

Ya pudimos solucionarlo. Tienes algún libro que puedas sugerirme de programación en VBA ?
Desde ya muchas gracias,
Hernán

 

[DanteAmor]

Te estaba preparando algo como esto:

Sub BuscarEnOtroLibro()
  Dim wb1 As Workbook, wb2 As Workbook
  Dim sh1 As Worksheet, sh2 As Worksheet
  Dim rng As Range, f As Range
  Dim i As Long, ultlinea As Long
  
  Set sh1 = Workbooks("Libro 1").Sheets("1")    'origen
  Set sh2 = Workbooks("Libro 2").Sheets("2")    'destino

  Set rng = sh1.Range("E16:DH1400")
  
  ultlinea = sh1.Range("E" & Rows.Count).End(xlUp).Row '===> necesito que busque en el libro 1.xlsm

Tienes algún libro que puedas sugerirme de programación en VBA ?

Busca en la red: GRAN TUTORIAL DE MACROS.

Espero te sirva.

 

[Hernan_g_f]

Dale gracias!