Crear copia de libros en un excel
Necesito crear desde un libro de libro a partir de una hoja, me explico:
Yo tengo una hoja de excel donde ingreso los datos en la hoja (INGRESOS)y a partir de esos datos necesito que se me rellenen otras dos hojas (FORMULARIO); (INFORME) y que se me guarde una sola.
Qué pena pero no me quedó claro: Desde una hoja del libro activo, necesitas pasar la info a otras 2 hojas... ¿del mismo libro?
El pase puede ser con fórmulas del tipo BUSCARV o con macro y en ese caso se necesitan las referencias para saber dónde ubicar cada campo en las otras 2 hojas.
PD) En el video Nº 71 (COPIAR Y PEGAR) de mi canal dejé una guía completa de como pasar información de una hoja a otra.
Luego viene: '.. que se me rellenen otras dos hojas (FORMULARIO); (INFORME) y que se me guarde una sola....'
Aclárame este último punto por favor.
Hola, Elsa
Si perdona es que es un poco complicado de explicar, pero la macro que estoy diseñando esta compuesta por varios pasos:
1. Crear una carpeta con el nombre de una celda (Eso lo tengo)
2. En la hoja Ingresos (ver imagen adjunta) rellenare datos que se incluirán en la pestaña formulario, (hasta ahí lo tengo).
El paso 3 es el que no consigo realizar y es que lo que necesito básicamente es crear un copia de ese libro de excel y guardarlo en la ruta que yo decida, pero que la copia del nuevo libro sean las pestañas (FORMUALRIO, INFORME Y LAS OCULTAS).
No se si con esto queda claro, se que es un poco complicado.
Mil gracias!
Esta macro te permite elegir una ruta o directorio y dejar allí el libro con las hojas necesarias. Solo ajusta el nombre que le darás al nuevo libro.
ub guardar_Franceiri()
'x Elsamatilde
Dim ruta As String
'buscar la carpeta dónde se va a guardar el libro
Set Direc = Application.FileDialog(msoFileDialogFolderPicker)
If Direc.Show = 0 Then
ruta = ThisWorkbook.Path 'se quedará en la misma ruta del libro activo
Else
ruta = Direc.SelectedItems(1) 'guarda nombre del directorio seleccionado
End If
nombre = "LibroCopia.xlsm" 'AJUSTAR nombre de la copia a gusto
Application.ScreenUpdating = False
'hojas que se van a guardar como nuevo libro
ActiveWorkbook.Sheets(Array("Formulario", "Informe")).Copy
'se crea un libro con las hojas copiadas
Set wb = ActiveWorkbook
With wb
.SaveAs ruta & "\" & nombre, FileFormat:=xlOpenXMLWorkbookMacroEnabled
'cerramos el nuevo libro
.Close
End With
End SubSdos!
Te paso la macro ampliada para incluir también las hojas ocultas.
Sub guardar_Franceiris() 'x Elsamatilde Dim ruta As String 'buscar la carpeta dónde se va a guardar el libro Set Direc = Application.FileDialog(msoFileDialogFolderPicker) If Direc.Show = 0 Then ruta = ThisWorkbook.Path 'se quedará en la misma ruta del libro activo Else ruta = Direc.SelectedItems(1) 'guarda nombre del directorio seleccionado End If nombre = "LibroCopia.xlsm" 'ajustar nombre de la copia a gusto Application.ScreenUpdating = False 'colección de hojas que se van a guardar como nuevo libro Dim hojitas() As Variant Dim cant As Byte cant = 0 For Each sh In Sheets 'se evalúa si están de algún modo ocultas e incluye las 2 solicitadas If sh.Name = "Formulario" Or sh.Name = "Informe" Or sh.Visible = False Or sh.Visible = xlVeryHidden Then ReDim Preserve hojitas(0 To cant) sh.Visible = True 'para incluir en la colección de modo visible hojitas(cant) = sh.Name cant = cant + 1 End If Next sh 'se crea un libro con las hojas copiadas ActiveWorkbook.Sheets(hojitas()).Copy Set wb = ActiveWorkbook With wb .SaveAs ruta & "\" & nombre, FileFormat:=xlOpenXMLWorkbookMacroEnabled 'opcional: cerramos el nuevo libro .Close End With End Sub
Si las hojas están ocultas de modo manual o con la instrucción VISIBLE = FALSE, no hace falta pasarlas a visible antes de copiarlas al nuevo libro (quedarán ocultas allí también).
Pero si fueron ocultas con la instrucción VISIBLE = xlVeryHidden habrá que pasarlas primero a visible para poder incluirlas en la copia. Luego en el libro de origen tendrás que volverlas a ocultar.
Cualquier duda solicitame el libro con el ejemplo a mi correo (aparece en sección Contactos de mi web que dejo al pie).
