Saltar al contenido

Copiar hojas en un libro nuevo

Featured Replies

publicado

Prueba con esta macro:

Sub CopiarSinFórmulas()
Dim Hoja As Worksheet
'--
Application.ScreenUpdating = False
'--
For Each Hoja In Sheets
   Hoja.UsedRange.Value = Hoja.UsedRange.Value
Next
'--
Application.ScreenUpdating = True
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Nota: Haz una copia antes de ejecutar la macro, por si acaso.

Guárdalo como xlsx si quieres eliminar las macros.

Archivado

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