Nombrar archivo

On 15 dic, 13:23, "José" wrote:

Quisiera que, al guardar un archivo, éste tome como 'nombredearchivo' el
contenido de una o varias celdas que yo defina... ¿Es posible? Gracias.

Hola.

Una manera es la siguiente:

Sub guardarfichero()

ChDir "R:\tirar" 'identificar directorio para guardar los datos
Application.DisplayAlerts = False 'si el fichero existe evita
mostrar mensaje confirmación guardado
ActiveWorkbook.SaveAs Filename:=[a2].Value 'capta el nombre del
fichero de la celda A2
Application.DisplayAlerts = True 'reestablece las alertas
End Sub

Saludos,

Benito
Barcelona

Gracias Benito por tu atención. No tengo idea de visual basic, que supongo
tendre que utilizar... ¿Podrías guiarme con los pasos a seguir para
introducir de forma efectiva esa formula? Gracias de nuevo.
Jose

"Benito Merino" escribió en el mensaje
news:
On 15 dic, 13:23, "José" wrote:

Quisiera que, al guardar un archivo, éste tome como 'nombredearchivo' el
contenido de una o varias celdas que yo defina... ¿Es posible? Gracias.

Hola.

Una manera es la siguiente:

Sub guardarfichero()

ChDir "R:\tirar" 'identificar directorio para guardar los datos
Application.DisplayAlerts = False 'si el fichero existe evita
mostrar mensaje confirmación guardado
ActiveWorkbook.SaveAs Filename:=[a2].Value 'capta el nombre del
fichero de la celda A2
Application.DisplayAlerts = True 'reestablece las alertas
End Sub

Saludos,

Benito
Barcelona

On 15 dic, 14:49, "José" wrote:

Gracias Benito por tu atención. No tengo idea de visual basic, que supongo
tendre que utilizar... ¿Podrías guiarme con los pasos a seguir para
introducir de forma efectiva esa formula? Gracias de nuevo.
Jose

"Benito Merino" escribió en el mensajenews:
On 15 dic, 13:23, "José" wrote:

> Quisiera que, al guardar un archivo, éste tome como 'nombredearchivo' el
> contenido de una o varias celdas que yo defina... ¿Es posible? Gracias.

Hola.

Una manera es la siguiente:

Sub guardarfichero()

    ChDir "R:\tirar" 'identificar directorio para guardar los datos
    Application.DisplayAlerts = False 'si el fichero existe evita
mostrar mensaje confirmación guardado
    ActiveWorkbook.SaveAs Filename:=[a2].Value 'capta el nombre del
fichero de la celda A2
    Application.DisplayAlerts = True 'reestablece las alertas
End Sub

Saludos,

Benito
Barcelona

Hola.

Se trata de una macro que debes añadir a tu documento.
Con la combinación de teclas {alt}{F11} vas al editor de visual basic.
Con las opciones de menú: Insertar/Módulo creas el módulo donde
trabajarás.
Pegas la macro (desde sub hasta end sub)

La ejecutas desde excel a través del menú Herramientas/Macro/ejecutar.

Antes de todo esto debes modificar lo siguiente:

- Directorio donde guardar el documento (ChDir "Unidad:\directorio")
- La celda de donde captes el valor sea la correcta (substituye [a2]
por la celda donde tengas ese valor)

Saludos,

Benito
Barcelona