Problema copiando libro de excel mediante macros
Saludos experto, te doy el código y después detallo el problema:
Dim origen, origen2, destino As String
origen = "\origen.xls"
origen2 = "origen"
destino = "destino"
'Abrir el archivo Origen
Workbooks.Open Filename:=ActiveWorkbook.Path & origen
'Seleccionar y Copiar Celdas con datos
Workbooks(origen2).Activate
Range("B7", ["F11"]).Copy
'Activar Archivo Destino
Workbooks(destino).Activate
ActiveWorkbook.Application.Goto Reference:="R6C2"
ActiveCell.PasteSpecial
El código se ejecuta sin dar errores de compilación, pero en el momento de ejecutar la orden de copiar, no lo copia del libro activo (origen), si no del mismo rango indicado, pero del libro destino, ¿Alguna Idea?
Dim origen, origen2, destino As String
origen = "\origen.xls"
origen2 = "origen"
destino = "destino"
'Abrir el archivo Origen
Workbooks.Open Filename:=ActiveWorkbook.Path & origen
'Seleccionar y Copiar Celdas con datos
Workbooks(origen2).Activate
Range("B7", ["F11"]).Copy
'Activar Archivo Destino
Workbooks(destino).Activate
ActiveWorkbook.Application.Goto Reference:="R6C2"
ActiveCell.PasteSpecial
El código se ejecuta sin dar errores de compilación, pero en el momento de ejecutar la orden de copiar, no lo copia del libro activo (origen), si no del mismo rango indicado, pero del libro destino, ¿Alguna Idea?
