Guardar con valor de celda variable por macros
Hola!
La verdad soy muy principiante en excel así es que si me puedes ayudar te lo agradeceré un montón.
Resulta que por aquí y por allá conseguí poner un código para que una celda me llevara un "correlativo" cada vez que abro mi libro. El problema surge porque con la herramienta autoformas dibujé un botón al que llamé "guardar" y lo que quiero que haga es que guarde sólo la "hoja1" en un libro nuevo con una ruta específica y que ponga el nombre a partir de una celda que es la celda afectada por la Macro "correlativo" que está pegada en un módulo. Probé un par de sugerencias pero no resulta. ¿Podrías orientarme con el código para hacer esto?
De antemano. Gracias.
La verdad soy muy principiante en excel así es que si me puedes ayudar te lo agradeceré un montón.
Resulta que por aquí y por allá conseguí poner un código para que una celda me llevara un "correlativo" cada vez que abro mi libro. El problema surge porque con la herramienta autoformas dibujé un botón al que llamé "guardar" y lo que quiero que haga es que guarde sólo la "hoja1" en un libro nuevo con una ruta específica y que ponga el nombre a partir de una celda que es la celda afectada por la Macro "correlativo" que está pegada en un módulo. Probé un par de sugerencias pero no resulta. ¿Podrías orientarme con el código para hacer esto?
De antemano. Gracias.
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
Podrías probar con esto:
Sub Guardar_hojas()
Dim strHoja, strStartHoja, strRuta As String
Dim i As Integer
Application.ScreenUpdating = False
strStartHoja = Range("TuCelda").Value
'copia la hoja a libro nuevo
Sheets(TuHoja).Activate
strHoja = ActiveCell.Worksheet.Name
Sheets(strHoja).Copy
'donde guardar los archivos creados
strRuta = "C:\excel\vba\ejemplos"
'guarda el libro nuevo
ActiveWorkbook.SaveAs Filename:=strRuta & "\" & strHoja, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close Savechanges:=True
Sheets(strStartHoja).Activate
Application.ScreenUpdating = True
End Sub
Sub Guardar_hojas()
Dim strHoja, strStartHoja, strRuta As String
Dim i As Integer
Application.ScreenUpdating = False
strStartHoja = Range("TuCelda").Value
'copia la hoja a libro nuevo
Sheets(TuHoja).Activate
strHoja = ActiveCell.Worksheet.Name
Sheets(strHoja).Copy
'donde guardar los archivos creados
strRuta = "C:\excel\vba\ejemplos"
'guarda el libro nuevo
ActiveWorkbook.SaveAs Filename:=strRuta & "\" & strHoja, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close Savechanges:=True
Sheets(strStartHoja).Activate
Application.ScreenUpdating = True
End Sub
Hola!
Gracias por responder, Probé el código que me diste pegándolo en un módulo nuevo (¿Está bien?), cambié la celda según me lo indicaba la nota también cambié la ruta donde guardaría el libro nuevo y donde decía (TuHoja) Puse ("Hoja1"), le asigné la macro al botón pero lanzó un error '9' en tiempo de ejecución, Subíndice fuera de intervalo y me destaca en amarillo la linea "Sheets("Hoja1").Activate" ; Me imagino que algo hice mal... Te agradecería si me corriges.
Gracias por responder, Probé el código que me diste pegándolo en un módulo nuevo (¿Está bien?), cambié la celda según me lo indicaba la nota también cambié la ruta donde guardaría el libro nuevo y donde decía (TuHoja) Puse ("Hoja1"), le asigné la macro al botón pero lanzó un error '9' en tiempo de ejecución, Subíndice fuera de intervalo y me destaca en amarillo la linea "Sheets("Hoja1").Activate" ; Me imagino que algo hice mal... Te agradecería si me corriges.
strHoja = strStartHoja
