Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Guardar libro de excel con fórmulas como sólo valores.

  • Autor del tema Autor del tema fen1
  • Fecha de inicio Fecha de inicio

fen1

New member
Registrado
21 Abr 2014
Mensajes
14
Buenas noches!

Se puede editar la siguiente macro que es para guardar un libro con fórmulas como sólo valores sin tener que indicarle el nombre del libro y que también de la opción de guardarlo...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Solución
Hola @Miltiño,
Te puede servir:
Código:
Sub CopiaLibroValores()
For Each Sheet In ThisWorkbook.Worksheets
    If Sheet.Name = "SEG" Or Sheet.Name = "MEMORIA" Or Sheet.Name = "RESUMEN" Then
        With Sheet.UsedRange
        .Copy:
        .PasteSpecial xlPasteValuesAndNumberFormats
        End With
    Else
        Application.DisplayAlerts = False
        Sheet.Delete
    End If
Next Sheet
Nombre = ThisWorkbook.Path & "\" & Replace(Format(Now, "yyyy-mm-dd hh:mm"), ":", "·") & "_" & _
    Replace(ThisWorkbook.Name, "xlsm", "xlsx")
ActiveWorkbook.SaveAs Filename:=Nombre, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
Application.Quit
End Sub

Si puedes colocar siempre las 3 Hojas que se deben copiar en las posiciones...
Volver
Arriba