Hacer una copia de un libro sin fórmulas

[Antoni]

Copiar un libro sin fórmulas

¡ Ave !

Copiar la macro en un libro nuevo y ejecutar la macro.

Sub GuardarComoLibroSinFórmulas()

   If Not Application.Dialogs([COLOR=#0000ff][B]xlDialogOpen[/B][/COLOR]).Show = False Then

      For Each hoja In Sheets

         hoja.Activate

         hoja.UsedRange.Value = hoja.UsedRange.Value

      Next

      Application.Dialogs([B][COLOR=#0000ff]xlDialogSaveAs[/COLOR][/B]).Show

   End If

End Sub


[/CODE]

Solo para el libro activo, copiar la macro en un módulo y ejecutarla.

[CODE]Sub GuardarComoLibroSinFórmulas()


For Each hoja In Sheets
hoja.Activate
hoja.UsedRange.Value = hoja.UsedRange.Value
Next
Application.Dialogs([B][COLOR=#0000ff]xlDialogSaveAs[/COLOR][/B]).Show


End Sub
[/CODE]

¡ Salve !