Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Renombrar

Fxckbry

New member
Registrado
11 May 2021
Mensajes
15
Hola! Mi pregunta es muy sencilla, ¿se puede renombrar el propio archivo .xltm en el que ejecuto la macro?
¿De ser así cual sería la macro?
He probado con la instrucción name (poniendo los...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
Prueba poner en el código de la Hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Path, filename As String
If Target.Row = 9 And Target.Column = 2 Then
Path = "I:\Administracion02\EXCEL\FACTURACIÓN\"
filename = Range("B51")
ActiveWorkbook.SaveAs filename:=Path & Year(Now) & "-FacturaciónPO-" & filename & "-" & Format(Now(), "YYYY-MM-DD")
End If
End Sub
Al final lo he conseguido al guardar antes de guardarcomo os adjunto el código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Path As String
Dim Nombre As String
Dim Celda As String
Dim Año As Integer

Año = Year(Date)
Path = "I:\Administracion02\EXCEL\FACTURACIÓN\"
Celda = Range("b51")
Nombre =...
En la macro puedes decirle también que elimine el Libro con el nombre anterior. Y el efecto se parece a lo que planteabas: ¿se puede renombrar el propio archivo .xlsm en el que ejecuto la...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
He pensado en guardar el libro cuando se cambie la celda del nº de pedido, de esta forma cuando le den a guardar como debería salir el nombre en cuestión ¿sabrían que macro tendría que usar para ello?
 
Volver
Arriba