Macro para el botón guardar

Respuesta de
a
ver mapa
Usuario
Hola expertos!
Estoy iniciando en el manejo de excel principalmente en las macros.
Ahorita estoy realizando un programa realmente sencillo, lo que quiero saber es lo siguiente:
Tendo una hoja de excel con dos botones, quiero que al hacerle clic en aceptar me guarde los cambios realizados en el libro. Nada más que los guarde en excel.
Me pueden ayudar
Gracias Moni
Avatar
Experto
Hola la instrucción que necesitas es :
ActiveWorkbook. Sabe
Sub guardar()
'ActiveWorkbook.Save
End Sub
Esta macro se la asignas al botón
Te recomiendo que utilices la grabadora de macro y veas cuales son los movimientos que realizas es sumamente útil.
Saludos
Usuario
Muchas gracias por la ayuda, funciono a la perfección, solo tengo una duda más.
Tengo otro botón para cambiar de Libro, nada más que no se que le haga falta para que a la hora de abrir el otro archivo cierre el primero.
Este es el código que tengo.
Sub Auto_close()
' Auto_close Macro
' Macro grabada el 26/11/2008 por Usuario
MsgBox "SI SUS DATOS SON CORRECTOS, CAPTURE LOS DATOS DEL ACTIVO CIRCULANTE", , "Advertencia"
Workbooks.Open Filename:= _
"F:\DESARROLLO DE PROGRAMAS\CAPTURA DE DATOS INICIALES\INTEGRACION DEL ACTIVO CIRCULANTE.xls"
Sheets("TOTALES").Select
Range("b1").Select
Windows("INTEGRACION DEL ACTIVO CIRCULANTE.xls").Activate
End Sub
Saludos
Avatar
Experto
Prueba con esta opción
Sub Auto_close()
' Auto_close Macro
' Macro grabada el 26/11/2008 por Usuario
Dim nombre_del_fichero As String ' declaro la variable
nombre_del_fichero = ThisWorkbook.Name 'obtengo el nombre del libro actual
' nombre_del_fichero = ThisWorkbook.Name & ".xls" si tu exel no  funciona con el codigo 'anterior prueba añadiendole la extencion ".xls"
MsgBox "SI SUS DATOS SON CORRECTOS, CAPTURE LOS DATOS DEL ACTIVO CIRCULANTE", , "Advertencia"
Workbooks.Open Filename:= _
"F:\DESARROLLO DE PROGRAMAS\CAPTURA DE DATOS INICIALES\INTEGRACION DEL ACTIVO CIRCULANTE.xls"
Sheets("TOTALES").Select
Range("b1").Select
Windows("INTEGRACION DEL ACTIVO CIRCULANTE.xls").Activate
Windows(nombre_del_fichero).Close 'cierro el fichero
End Sub
Usuario
Gracias funciono a la perfección.
Una pregunta más, ¿qué le agregó para que ya no aparezca el cuadro de dialogo de Desea guardar los cambios realizados...?
Saludos
Moni
Avatar
Experto
Podrías activar el libro
Windows(nombre_del_fichero).Activate '
ActiveWorkbook.Save 'guardas
Windows(nombre_del_fichero).close ' lo cierras
Usuario
Excelente. Ya funciono!
Voy a seguir desarrollando el programa, en caso de tener alguna otra duda vuelvo a preguntar.
Saludos