Buenas, en excel, se podría hacer que una celda cambiase el nombre del mismo archivo de excel?

¿Quisiera saber si es posible hacer que una celda cambiase el nombre del mismo archivo de excel?

Que una celda de nombre al archivo, si se cambiase la celda que se cambiase el archivo de nombre, ¿no es posible verdad?

1 respuesta

Respuesta
2

Si se puede.

- Entra al Editor de macros (con atajo de teclado ALT y F11)

- Selecciona con doble clic el objeto HOJA donde vas a ingresar el dato (Hoja1 o la que fuese)

- Copia el siguiente código y ajusta la celda que quedó en A1

Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'solo se controla cambios en A1 -----Ajustar celda
If Target.Address <> "$A$1" Then Exit Sub
'si la celda queda vacía no se ejecuta
If Target.Value = "" Then Exit Sub
'guarda libro activo en la misma carpeta y con nombre = A1
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & [A1] & ".xlsm"
End Sub

Sdos y no olvides valorar la respuesta (opciones: excelente o buena) si el tema queda resuelto, sino comenta. 

Disculpa, algo hago mal, he seguido los pasos y he cambiado la celda... luego lo guardo como .xlsm pero no funciona... Muchas gracias!!

¿Qué no funciona? Cuando entrego una maco primero la pruebo... así que revisa nuevamente las instrucciones:

- Verifica dónde colocaste la macro (debe estar en el objeto HOJA donde estés trabajando)

- El cambio en la celda debe ser 'manual' no como resultado de alguna fórmula.

- ¿Con qué versión trabajas? ¿Acepta xlsm?

- Deja escrita aquí la macro tal como te ha quedado

- O enviame el libro solo con 1 hoja y la macro que has adaptado.

Sdos!

Es la versión de 2010, si acepta xlsm

Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'solo se controla cambios en A1 -----Ajustar celda
If Target.Address <> "$F$2" Then Exit Sub
'si la celda queda vacía no se ejecuta
If Target.Value = "" Then Exit Sub
'guarda libro activo en la misma carpeta y con nombre = A1
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & [F2] & ".xlsm"
End Sub

Como te puedo enviar el archivo con solo la hoja? Por mail?
Muchas gracias!!

Si (cibersoftPUNTOarg de gmail.com), para ver dónde está colocada la macro el contenido de la celda y qué significa que no funciona.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas