Guardar hoja
Hola.
Mi pregunta se trata de lo siguiente:
Tengo un libro con 51 hojas y de ellas solo quiero que se guarde una, la que yo especifique. Se trata de una hoja en la que modifico datos y los tengo que archivar (guardar) para posteriores consultas (sólo consultas), pero no deseo guardar todo el libro pues me ocupa mucho espacio. ¿Es posible?
Un saludo.
Mi pregunta se trata de lo siguiente:
Tengo un libro con 51 hojas y de ellas solo quiero que se guarde una, la que yo especifique. Se trata de una hoja en la que modifico datos y los tengo que archivar (guardar) para posteriores consultas (sólo consultas), pero no deseo guardar todo el libro pues me ocupa mucho espacio. ¿Es posible?
Un saludo.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Aquí te dejo un código de Adrian que tal vez te sirva:
Sub GenerarLibro()
Dim NombreLibro As String
NombreLibro = "Ayuda" 'aca pues poner el valor de una celda
Sheets("Materiales").Select
Sheets("Materiales").Activate
Sheets("Materiales").Copy
ActiveWorkbook.SaveAs Filename:=NombreLibro
Windows("TuLibro.xls").Activate
Sheets("Hoja1").Select
End Sub
[email protected]
Sub GenerarLibro()
Dim NombreLibro As String
NombreLibro = "Ayuda" 'aca pues poner el valor de una celda
Sheets("Materiales").Select
Sheets("Materiales").Activate
Sheets("Materiales").Copy
ActiveWorkbook.SaveAs Filename:=NombreLibro
Windows("TuLibro.xls").Activate
Sheets("Hoja1").Select
End Sub
[email protected]
