Botón Guardar

La pregunta es así porque esta instrucción eliminia las demás hoja de excel, es decir excel trae 3 hoja pero cuándo ejecuto esta instrucción guardar como y se abre el libro el solamente contiene 1 sola hoja. Se puede dejar las otras 2 hojas también
BOTÓN GUARDAR COMO (Indicar la Ruta)
Private Sub guardar_Click()
Dim wb
Dim ruta, carpeta, libro, texto As String
ruta = "C:\Documents and Settings\All Users\Documentos\AGROMETEOROLOGIA\"
carpeta = ActiveSheet.Range("H3").Value
libro = ActiveSheet.Range("A1").Value
texto = ruta & carpeta & "\" & libro & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
'por error (ya existe archivo o nombre invalido) muestra ventana para cambiar nbre o ruta
On Error Resume Next
With wb
.SaveAs texto
Application.DisplayAlerts = True
.Close True
End With
Set wb = Nothing
Sheets("Hoja1").Select 'reemplaza por tu hoja
End Sub

1 Respuesta

Respuesta
1
Mis comentarios se encuentran en negrilla.
Private Sub guardar_Click()
Dim wb
Dim ruta, carpeta, libro, texto As String
ruta = "C:\Documents and Settings\All Users\Documentos\AGROMETEOROLOGIA\"
carpeta = ActiveSheet.Range("H3").Value
libro = ActiveSheet.Range("A1").Value
texto = ruta & carpeta & "\" & libro & ".xls"
Application.ScreenUpdating = False
'ActiveSheet.Copy 'Por esto es que salva sólo una hoja
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
'por error (ya existe archivo o nombre invalido) muestra ventana para cambiar nbre o ruta
On Error Resume Next
With wb
.SaveAs texto
Application.DisplayAlerts = True
.Close True
End With
Set wb = Nothing
Sheets("Hoja1").Select 'reemplaza por tu hoja
End Sub
Ok esta bien esta, pero no me indica donde lo deseo guardar. Que cada vez que lo modifique me indique donde lo dese guardar
De esta forma podrías hacerlo, no se si lo que buscas es algo más elaborado como una ventana para hallar la dirección, pues de ser así me parece que es lo mismo simplemente darle guardar como:
Private Sub guardar_Click()
Dim wb
Dim ruta, carpeta, libro, texto As String
ruta = InputBox("Ingrese la ubicación")
'ruta = "C:\Documents and Settings\All Users\Documentos\AGROMETEOROLOGIA\"
carpeta = ActiveSheet.Range("H3").Value
libro = ActiveSheet.Range("A1").Value
texto = ruta & carpeta & "\" & libro & ".xls"
Application.ScreenUpdating = False
'ActiveSheet.Copy 'Por esto es que salva sólo una hoja
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
'por error (ya existe archivo o nombre invalido) muestra ventana para cambiar nbre o ruta
On Error Resume Next
With wb
.SaveAs texto
Application.DisplayAlerts = True
.Close True
End With
Set wb = Nothing
Sheets("Hoja1").Select 'reemplaza por tu hoja
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro guardar como.. (2)

Otra vez acudo a ti, en busca de ayuda. Es en relación a la pregunta anterior, para la macro de Guardar como... La macro me funciona perfectamente, aunque no tanto, pues algo me he descuidado, te explico: Utilizo en mi proyecto, una libro principal...
1 respuesta

Macro para guardar una hoja de un libro

Elsa, muy buenas noches, tengo el siguiente problema: En excel yo genero con una tabla dinámica 200 estados de cuenta, los cuales tengo que individualizar, es decir, cada una de estas hojas tiene un nombre, por ejemplo: LUIS BARRAGAR LOPERENA, es una...
1 respuesta

Macro para copiar y pegar hoja

Mi problema es que quisiera crear una macro para una factura que se encuentra en una hoja de un libro de Excel, pues bien quisiera que al ejecutar dicha macro, Copiara la hoja del libro y la guardara sola en un nuevo libro con el nombre del Cliente....
2 respuestas

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

¿Cómo guardar sólo una hoja de excel con un nombre predefinido mas la fecha?

Quisiera saber como lo puedo hacer para guardar una hoja de excel en el escritorio con un nombre predefinido mas la fecha correspondiente al mes en que se guardo mas el año ej: hoja de cuenta noviembre 2012 o hoja de cuenta diciembre 2012... Etc.
1 respuesta

Crear la copia de un libro sin sus macros

He creado un botón de Guardar en una hoja para que esta solo funcione como "plantilla", el problema es que cuando pulso el botón guardar si lo hace bien pero me di cuenta que también se pasaban las Macros, y lo que quisiera es que solo se creara la...
1 respuesta

¿Macro para mandar mail con outlook al hacer click en un Commandbutton?

Estoy terminado un macro que consiste en una secuencia de preguntas el punto es que al momento de terminar las preguntas aparece en un UserForm un CommandButton con la opción de Guardar/Enviar, resulta que al hacer click en el, se debe guardar una...
1 respuesta

Guardar como pdf excel

Estoy realizando una macro que pueda unificar el contenido de varias hojas en un solo PDF, quiero que automáticamente seleccione un rango diferente en cada hoja para que solo imprima ese rango seleccionado en el PDF final. Ej: tengo 4 hojas...
1 respuesta

Macro para vincular una celda a un archivo pdf

Utilizo excel 2007, en mi sistema de facturación tengo varias macros, al pulsar un botón me guarda en pdf, imprime, crea siguiente numero de factura y manda la información a una tabla dinámica que lo organiza por numero de albarán, hasta ahí, todo...
1 respuesta

Envío masivo de outlook por medio de macros de excel.

Necesito ayuda necesito enviar varios mails por medio de una macro de excel ya tengo algo avanzado pero me marca error de variable y después al adjuntar un archivo tbn marca error, espero y me puedas ayudar, te anexo los datos de lo que llevo en la...
1 respuesta