Copiar rango en otro libro

09/07/2007 - 16:47 por maap | Informe spam
Buenas,
Me gustaría saber como puedo con vba, copiar un rango de la hoja
activa a una hoja determinada de un libro que no está abierto, es
decir que excel lo abra automáticamente, copie el rango y cierre el
libro que yo tenía abierto, dejandome en pantalla el que ha abierto
con la macro.
Gracias.
Saludos,
 

Leer las respuestas

#1 Juan M
09/07/2007 - 17:23 | Informe spam
"maap" escribió
Buenas,
Me gustaría saber como puedo con vba, copiar un rango de la hoja
activa a una hoja determinada de un libro que no está abierto, es
decir que excel lo abra automáticamente, copie el rango y cierre el
libro que yo tenía abierto, dejandome en pantalla el que ha abierto
con la macro.
Gracias.
Saludos,



Hola,

Él siguiente código hace lo que quieres más o menos,
Copia el rango A1:A5 de la hoja activa del libro que contiene el código al
rango de igual dimensión empezando en B1 del libro2

Impide la ejecución de macros de apertura del libro2.

Un saludo,
Juan

Inicio Código

Sub CopiaRango()

Dim Destino As Workbook

Application.ScreenUpdating = False
Application.EnableEvents = False
Set Destino = Workbooks.Open("c:\libro2.xls")
Application.EnableEvents = True
ThisWorkbook.Activate
Range("A1:A5").Copy Destino.Worksheets(1).Range("B1")

Destino.Close savechanges:=True
Set Destino = Nothing
Application.ScreenUpdating = True
End Sub

Fin Código

Preguntas similares