Crear un libro desde otro libro

Tengo un libro en excel 2013, con una serie de hojas, una de ellas se llama "EXTRACTO MODELO" y que contiene fórmulas, con una macro, creo otra hoja que se llama "EXTRACTO FINAL", que es copia exacta de los datos de la anterior, pero sin fórmulas.

Mi pregunta es como puedo crear otro libro que solo contenga la hoja "EXTRACTO FINAL", que por supuesto no contenga los módulos de VBA de la original y que pueda ser abierta en excel 2003-2007

Les agradezco por anticipado su ayuda

Cordiales saludos

Raúl

1 respuesta

Respuesta
1

Te anexo la macro para copiar la hoja "EXTRACTO FINAL" con todo y fórmulas.

Sub CopiarHoja()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = ThisWorkbook.Path & "\"
    Sheets("EXTRACTO FINAL").Copy
    ActiveWorkbook.SaveAs ruta & "EXTRACTO FINAL.xlsx"
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    MsgBox "Copia terminada"
End Sub

Si quieres solamente valores sin fórmulas, entonces utiliza la siguiente macro:

Sub CopiarHojaValores()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = ThisWorkbook.Path & "\"
    Sheets("EXTRACTO FINAL").Copy
    ActiveWorkbook.SaveAs ruta & "EXTRACTO FINAL.xlsx"
    Cells.Copy
    [A1].PasteSpecial Paste:=xlValues
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    MsgBox "Copia terminada"
End Sub

Saludos. Dante Amor

Recuerda valorar la respuesta.

¡Gracias!  Dante Amor, ha sido perfecta tu contestación y ahora paso a valorarla, no optante y fue por mi culpa que pedi que fuera para excel 2003-2007, pero a donde lo mando solo tienen 2003 y les dice que fue creada con un excel más moderno, que si quieren descargarse  un programa para poderla abrir. Es decir la terminación solo para excel 2003 cual sería?

Prueba así:

Sub CopiarHojaValores()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = ThisWorkbook.Path & "\"
    Sheets("EXTRACTO FINAL").Copy
    ActiveWorkbook.SaveAs ruta & "EXTRACTO FINAL.xls", FileFormat:=xlExcel8
    Cells.Copy
    [A1].PasteSpecial Paste:=xlValues
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    MsgBox "Copia terminada"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como copiar unas hojas de un libro a otro nuevo como valores, almacenarlo en una ruta especifica con el nombre de una celda.

Quiero copiar sólo 3 hojas de un archivo a un archivo nuevo como valores manteniendo el formato, y almacenarlo en una ruta especifica con el nombre que aparece en una celda.
1 respuesta

Macro para crear nuevos archivos, no me funciona

Los expertos, Les escribo pidiendoles ayuda. Tengo una macro que copia varias hojas de un archivo como valores en un archivo nuevo, y lo guarda.. La macro me ha funcionado bien hasta ahora que no corre, se queda cargando pero no corre nunca.. Cuando...
1 respuesta

Copiar una hoja en una carpeta creada automáticamente

Estoy haciendo una macro que me copie una hoja llamada código en una carpeta en el directorio donde se encuentra el libro, esta carpeta debe crearse automáticamente sino existe, y debe guardarse por mes, ejemplo si estamos en el año 2015 en el mes de...
1 respuesta

Macro eliminar botones

Tengo una macro que copia una determinada hoja de un archivo a otro solo que en esa hoja tiene botones para correr determinadas macros. ¿Qué código puedo agregar para que la hoja a donde se copie no contenga dichos botones ni las macros?
1 respuesta

Macro para enviar por correo una hoja de excel

Me podrían ayudar con una macro para enviar una hoja de excel por correo, estoy intentando hacer la macro pero no me sale.
1 respuesta

Sobre una archivo excel con macro se puede general uno si macro

Tengo un archivo con una macro que me maneja un numero y la fecha, cuando lo envío por mail a otra persona y lo abre se le cambia el numero colocado y a esa persona que le envíe le queda el informe con otro numero. Como puedo solucionar el tema que...
1 respuesta

Copiar hoja de un libro a otro

Para DANTE Hola Quisiera saber como puedo copiar una hoja de un libro a otro con una macro Tengo este código para imprimir y quisiera que desde el pueda también copiar la hoja "datosm1" a otro libro y la hoja se guarde con el mismo nombre "datosm1" y...
1 respuesta

Macro al cerrar libro que cree hojas en directorios

Busco ayuda, ya que quiero generar una macro que al cerrar el libro de excel: Me guarde los cambios.Genere un libro por cada hoja de calculo que tengo en ese libroMe copie los libros que yo elija en los directorios de la red que le diga (en la macro...
1 respuesta

Guardar Hoja(hoja3) En Una Carpeta Especifica(C:\Excel\) Con Botón Macro Ubicado en Una Hoja Diferente A La Que Se Va A Guardar

Mi amigo necesito de tu ayuda! Primero quiero darte las gracias por responder el post y luego quiero preguntarte algo: Primero quiero decirte que este código me sirve a la perfección: Sub crearcarpeta2() 'Por.DAM ruta = "C:\Excel\" arch = Range("A2")...
2 respuestas

Macro para enviar hoja de excel como archivo adjunto por medio del correo gmail

Necesito un apoyo. Necesito un macro que me permita enviar una hoja excel como archivo adjunto, con asunto "Planilla Electrónica", sin texto el correo solo tiene que enviar como archivo adjunto la hoja de excel, El destinatario solo será una persona...
2 respuestas