Macro que desde libro balances, active libro1 abierto, copie hoja1 y la pegue en libro balances hoja Importaciones
Hago importaciones que siempre me van a generar fichero con nombre libro1 y necesito que seleccione éste, copie los datos importados en hoja1 y los pegue en libro tambien abierto, en la hoja balances
He probado con Application.workbooks("hoja1).Activate , workbooks([1].activate y no hay forma, siempre me da el error fuera del intérvalo.
Si me podéis echar una mano, os lo agradeceré
Muchas gracias y un abrazo para todos los expertos que tanto nos ayudáis
1 Respuesta
Te paso un ejemplo, lo que está entre paréntesis son las variables que tienes que adaptar, si te das cuenta lleva comillas, por que en tu planteamiento que haces en "hoja1, te falta cerrar comillas, checa que primero va el nombre del libro y luego el nombre de la hoja
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _
Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")
Hola Cecilio, buenos días
Primero darte las gracias por tu ayuda.
He probado la macro con tu código y me sigue dando el error de subíndice fuera del intérvalo.
mira si te fuera posible a qué se puede deber este error que ya he probado de diferentes formas y no hay manera
Muchas gracias
¿Puedes enviarme tus archivo junto con tu macro para checarlo?
Sub copiar()
Application.ScreenUpdating = False
Dim L1 As Workbook: Set L1 = ThisWorkbook
Dim h1 As Worksheet: Set h1 = L1.Sheets("importaciones")
Dim L2 As Workbook: Set L2 = Workbooks("libro1.xlsx")
Dim h2 As Worksheet: Set h2 = L2.Sheets("hoja1")
h2.Range("B6").Copy
h1.Range("B6").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End SubSaludos, en caso de que te sea útil recuerda valorar mi trabajo
Hola Cecilio, siento volver a molestarte.
En esta línea: Set L2 = Workbooks("libro1.xlsx"), sigue dando el error fuera del intervalo.
Mira si por favor lo puedes probar.
Ya probé la macro te adjunte los 2 archivos de prueba con los que trabajé, por lo general este tipo de error se debe cuando no existe el archivo con ese nombre asegurate que exista tu libro de nombre "Libro1.xlsx" tal vez en tu caso sea "Libro1.xls"
Sub copiar()
Application.ScreenUpdating = False
Dim L1 As Workbook: Set L1 = ThisWorkbook
Dim h1 As Worksheet: Set h1 = L1.Sheets("importaciones")
Dim L2 As Workbook: Set L2 = Workbooks("libro1.xlsm")
Dim h2 As Worksheet: Set h2 = L2.Sheets("hoja1")
h2.Range("a1:j100").Copy
h1.Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Workbooks("libro1.xlsm").Close savechanges:=False
End Subno sé donde revises primero, pero de cualquier manera te lo mande a tu correo y a qui te dejo la macro corregida.
