Copiar información de un archivo a otro en excel con V
La situación es la siguiente: Tengo un reporte que envía información a un consolidado mensual por medio de una macro, esto funciona bien; solo que como el código lo obtuve mediante grabación, cada que copia y pega un segmento tiene que moverse entre un archivo y otro.
Lo que necesitaría saber es:
Cual son las instrucciones que necesito ejecutar para copiar y pegar información desde un workbook a otro (si es posible), sin tener que moverme entre uno y otro.
¿Se pueden copiar 2 o más rangos a la vez en el archivo origen?
Como tendría que consultar si el archivo origen o destino están abiertos, para que en caso contrario abrirlos y evitar un error.
Gracias de antemano.
Slds.
Lo que necesitaría saber es:
Cual son las instrucciones que necesito ejecutar para copiar y pegar información desde un workbook a otro (si es posible), sin tener que moverme entre uno y otro.
¿Se pueden copiar 2 o más rangos a la vez en el archivo origen?
Como tendría que consultar si el archivo origen o destino están abiertos, para que en caso contrario abrirlos y evitar un error.
Gracias de antemano.
Slds.
1 respuesta
Respuesta
1
Vamos por parte
Cual son las instrucciones que necesito ejecutar para copiar y pegar información desde un workbook a otro (si es posible), sin tener que moverme entre uno y otro.
Que yo sepa no se puede pero lo que podes hacer es evitar el refresco de pantalla para que esto sea "transparente" para el usuario, mediante algo como
Application.ScreenUpdating = False
'tu código
...
Application.ScreenUpdating = True
¿Se pueden copiar 2 o más rangos a la vez en el archivo origen?
NO (que yo sepa)
Como tendría que consultar si el archivo origen o destino están abiertos, para que en caso contrario abrirlos y evitar un error
Te dejo esta función
Function revisarLibroAbierto(nombreDelArchivo As String) As Boolean
Dim nombre As String, Libro As Workbook
On Error Resume Next
Set Libro = Workbooks(Dir(nombre))
On Error GoTo 0
revisarLibroAbierto = (Not Libro Is Nothing)
End Function
Cual son las instrucciones que necesito ejecutar para copiar y pegar información desde un workbook a otro (si es posible), sin tener que moverme entre uno y otro.
Que yo sepa no se puede pero lo que podes hacer es evitar el refresco de pantalla para que esto sea "transparente" para el usuario, mediante algo como
Application.ScreenUpdating = False
'tu código
...
Application.ScreenUpdating = True
¿Se pueden copiar 2 o más rangos a la vez en el archivo origen?
NO (que yo sepa)
Como tendría que consultar si el archivo origen o destino están abiertos, para que en caso contrario abrirlos y evitar un error
Te dejo esta función
Function revisarLibroAbierto(nombreDelArchivo As String) As Boolean
Dim nombre As String, Libro As Workbook
On Error Resume Next
Set Libro = Workbooks(Dir(nombre))
On Error GoTo 0
revisarLibroAbierto = (Not Libro Is Nothing)
End Function
Gracias por tus comentarios.
Probé la función y realiza lo que necesito.
Muchas gracias por tu tiempo.
Slds.
Probé la función y realiza lo que necesito.
Muchas gracias por tu tiempo.
Slds.