macro copiar todas las hojas en UNA SOLA

[malon]

Estimados,

tengo una macro que copia en una hoja el contenido de todas las demas, el problema se presenta cuando lo corro en un archivo que tiene 1017 hojas.

el codigo de la macro en mencion es el siguiente

Sub uoooooooooooooooo()
Sheets("union").Select
ULTIMF = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
For hoja = 2 To Sheets.Count
Sheets(hoja).Select
ufh = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("A1:BA" & ufh).Copy
Sheets("union").Select
ULTIMF = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & ULTIMF).PasteSpecial
Paste = xlPasteAll
Next hoja
MsgBox ("fin proceso")

End Sub

00LBB - NOTAS.xlsm

[Gerson Pineda]

Hola Malon

Este tema te puede interesar

 

Saludos