1 respuesta
Respuesta de cai_man
1
Bueno que cuando uno esta caí deja de ser man. Para hacer que un libro se guarde con el valor de una celda especifica, haz lo siguiente.
Editor VBA (Alt+F11)
VBAProject(NombreDelLibro)Microsoft Excel Objetos\This WorkBook Añade el siguiente código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
paco = Range("a1").Value 'Define la celda en la cual se obtiene el nombre
ruta = "C:\Temp\" & paco & ".xls" 'Define el camino donde quieres guardarlo, modifica solo la primera parte encomillada
ThisWorkbook.SaveAs (ruta)
End Sub
Y el libro se guardará siempre con el valor de la celda en el directorio especificado, si ya existe te avisará si quieres sobrescribirlo.
Si tienes alguna duda pregunta
Ta luego
Editor VBA (Alt+F11)
VBAProject(NombreDelLibro)Microsoft Excel Objetos\This WorkBook Añade el siguiente código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
paco = Range("a1").Value 'Define la celda en la cual se obtiene el nombre
ruta = "C:\Temp\" & paco & ".xls" 'Define el camino donde quieres guardarlo, modifica solo la primera parte encomillada
ThisWorkbook.SaveAs (ruta)
End Sub
Y el libro se guardará siempre con el valor de la celda en el directorio especificado, si ya existe te avisará si quieres sobrescribirlo.
Si tienes alguna duda pregunta
Ta luego
