Guardar como y anteceder con texto de una celda
Realizo servicio a computadoras mi trabajo es más técnico que del lado del software, realicé un ticket en excel que le entrego a mis clientes por cada equipo que me dejan a servicio, en la celda A12 registro el nombre de mi cliente, habrá forma de que al momento de que yo use la opción Guardar Como (Alt+A+M) al aparecer el cuadro de dialogo y justo en el nombre que le quiero poner a mi archivo aparezca el contenido de dicha celda (nombre de mi cliente), además no quiero que se guarde automáticamente si no que adelante del nombre del archivo debo colocar una muy breve descripción del servicio (manualmente), espero puedan ayudarme, saludos al foro.
1 Respuesta
H o l a:
Para ello se requiere de una macro.
Pon la siguiente macro en un módulo.
Sub GuardarComo() 'Por.Dante amor Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" ThisWorkbook.Save With Application.FileDialog(msoFileDialogSaveAs) .Title = "Guardar archivo como" .AllowMultiSelect = False .InitialFileName = [A12] .FilterIndex = 2 If .Show Then arch = .SelectedItems(1) ActiveWorkbook.SaveCopyAs arch MsgBox "Archivo guardado" End If End With Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
Sigue las Instrucciones para poner la macro en un módulo
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
Ahora vamos a asignar la macro a un método abreviado de teclas.
- Entra al menú de Programador
- Selecciona la opción Macros
- Selecciona la macro GuardarComo
- Presiona el botón Opciones
- En la ventana de Opciones en la tecla de método abreviado escribe la letra m (minúscula)
- Presiona el botón Aceptar
- Por último presiona el botón Cancelar
Listo! Ahora presiona las teclas Contro + m
La macro se ejecutará y te presentará el nombre que tengas en la celda A12, presiona Guardar para crear una copia del archivo con el nombre que pongas, o presiona Cancelar para cancelar el proceso.
':) ':)
Agradezco infinitamente tu respuesta, muy detallada y clara, desafortunadamente no he podido probar la macro por la carga de trabajo pero el miércoles reviso, de antemano agradezco tu tiempo ¡Mil Gracias!
