Como grabar con nombre de celda desplegable
Hola, tengo esta macro.
Sub GUARDAR()
Dim NombreArch As String
Dim fecha As String
fecha = Range("E3")
fecha = Replace(fecha, "/", "-")
fecha = Replace(fecha, ":", "-")
NombreArch = Range("E5") & Range(" lista desplegable ") & fecha
carpeta = "c:\clientes\"
ActiveWorkbook.SaveAs carpeta & NombreArch
Sheets("hoja1").PrintOut
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Quit
End Sub
El rango de (" lista desplegable ") no se lo que debo poner para que cuando se grabe ponga también el nombre que pone en la lista desplegable.
Gracias.
Saludos.
Sub GUARDAR()
Dim NombreArch As String
Dim fecha As String
fecha = Range("E3")
fecha = Replace(fecha, "/", "-")
fecha = Replace(fecha, ":", "-")
NombreArch = Range("E5") & Range(" lista desplegable ") & fecha
carpeta = "c:\clientes\"
ActiveWorkbook.SaveAs carpeta & NombreArch
Sheets("hoja1").PrintOut
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Quit
End Sub
El rango de (" lista desplegable ") no se lo que debo poner para que cuando se grabe ponga también el nombre que pone en la lista desplegable.
Gracias.
Saludos.
1 respuesta
Respuesta de duainsulch
1