¿Cómo guardar un archivo de Excel con el valor de una celda?

Cuando usas un libro de trabajo, ¿alguna vez has pensado en guardar el archivo de Excel basándote en el contenido de una celda? Por ejemplo, si tienes “Precio de venta” en la celda A1 y deseas guardar el libro de trabajo con el nombre Precio de venta. Claro, puedes escribir el nombre en el cuadro de diálogo Guardar como y luego guardarlo. Pero este será un método ineficiente si tienes mucho trabajo. Hoy te hablaré de un truco rápido para resolverlo.

Guardar archivo de Excel con un valor específico de celda usando código VBA

Guardar archivo de Excel con un valor específico de celda usando código VBA

El siguiente código VBA puede ayudarte a guardar tu libro de trabajo con un valor específico de celda; por favor, sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Guardar archivo de Excel con un valor específico de celda

Private Sub filename_cellvalue()
'Updateby Extendoffice
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Luego presiona la tecla F5 para ejecutar el código, y tu libro de trabajo se habrá nombrado según el contenido de la celda A1. Ver captura de pantalla:

Notas:

1. Puedes especificar cualquier valor de celda como nombre de archivo simplemente modificando A1 por otra referencia de celda en el código anterior.

2. Tu libro de trabajo activo se guardará en la carpeta C:\Users\dt\Desktop\my information\ (la última barra inclinada debe permanecer cuando pegues tu ubicación para reemplazarla), puedes cambiar la ruta según tus necesidades.

Artículos relacionados:

¿Cómo guardar un archivo con fecha y hora en Excel?

¿Cómo mostrar la ruta del archivo en la barra de título o en la barra de herramientas en Excel?