Saltar al contenido

macro copiar todas las hojas en UNA SOLA

publicado

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

Featured Replies

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.