Guardar varias hojas en libro

28/03/2006 - 16:57 por Antonio | Informe spam

Haber me explico, he preparado con vuestra ayuda un libro con 5 hojas. En
dos de ellas se colocan los datos que rellenan la hoja "TITULAR",
"DISTRIBUIDORA" e "INSTALADORA". Lo que yo quiero que hacer un boton para
guardar estas tres hojas con los datos en un nuevo libro con un nuevo
nombre.

Saludos

Siga el debate

17 respuestas

Tengo una respuesta

Preguntas similare

Guardar hojas en nuevo libro y enviar por outlook express

Leer las respuestas

#16 Héctor Miguel

04/04/2006 - 23:05 | Informe spam

hola, Antonio !

... un detalle, el nuevo libro... que al escribir el nombre se cierre el nuevo libro y se mantenga abierto el anterior.

con los datos conocidos [hasta ahora]... prueba con la siguiente macro...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=Sub Nuevo_libro()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Estas_hojas
Estas_hojas = Array("titular", "distribuidora", "instaladora")
For Each Hoja In Worksheets(Estas_hojas)
Hoja.Visible = True
Hoja.Unprotect "pon aqui la clave" ' <= MODIFICA
Next
Worksheets(Estas_hojas).Copy
For Each Hoja In Worksheets
Hoja.UsedRange.Value = Hoja.UsedRange.Value
Next
For Each Hoja In ThisWorkbook.Worksheets(Estas_hojas)
Hoja.Protect "pon aqui la clave" ' <= MODIFICA
Hoja.Visible = xlSheetVeryHidden
Next
Guardalo:
If Not Application.Dialogs(xlDialogSaveAs).Show Then GoTo Guardalo
Activeworkbook.Close
ThisWorkbook.Worksheets("datos").Activate
End Sub

Responder a este mensaje

#17 Antonio

05/04/2006 - 09:51 | Informe spam

Bueno Hector gracias por toda la ayuda que me has prestado. Si no surge
ninguna otra incidencia de momento ya me funcionan las cosas como queria en
un principio. Si tuviese algun problemilla ya pedire mas ayuda.

saludos
"Héctor Miguel" escribió en el mensaje
news:

hola, Antonio !

... un detalle, el nuevo libro... que al escribir el nombre se cierre el
nuevo libro y se mantenga abierto el anterior.

con los datos conocidos [hasta ahora]... prueba con la siguiente macro...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=> Sub Nuevo_libro()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Estas_hojas
Estas_hojas = Array("titular", "distribuidora", "instaladora")
For Each Hoja In Worksheets(Estas_hojas)
Hoja.Visible = True
Hoja.Unprotect "pon aqui la clave" ' <= MODIFICA
Next
Worksheets(Estas_hojas).Copy
For Each Hoja In Worksheets
Hoja.UsedRange.Value = Hoja.UsedRange.Value
Next
For Each Hoja In ThisWorkbook.Worksheets(Estas_hojas)
Hoja.Protect "pon aqui la clave" ' <= MODIFICA
Hoja.Visible = xlSheetVeryHidden
Next
Guardalo:
If Not Application.Dialogs(xlDialogSaveAs).Show Then GoTo Guardalo
Activeworkbook.Close
ThisWorkbook.Worksheets("datos").Activate
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3 4

Busqueda sugerida