Gem som, med dato og celleværdier

Public Sub GemSom()
ThisWorkbook.SaveAs (Range("A1") & Range("B1"))' osv.
End Sub

Eller:

Sub GemSom()
Filnavn = Range("a1") & Date & Range("c1") & Range("d1") & Range("E1")
Debug.Print Filnavn
ActiveWorkbook.SaveAs Filnavn
End Sub

Så behøver du ikke at tænke på formatering af datoen.

Hvad så med det der med at datoen blive lavet om til et femcifret tal?
Og kan jeg få brugernavnet med automatisk?

Public Sub GemSom()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
ThisWorkbook.SaveAs  = wshNetwork.UserName & Date & Range("c1") & Range("d1") & Range("E1")
End Sub

Tak for hurtigt svar.
I får begge point.
Kan man vælge hvilken mappe filen skal ligge i?
Bare lige et tillægsspørgsmål.

ThisWorkbook.SaveAs  = wshNetwork.UserName & Date & Range("c1") & Range("d1") & Range("E1")

fjern lige = i ovenstående, det er en fejl

I min løsning kan du sætte stien ind i filnavnet.

Fx Filnavn = "C:\Dokumenter\" & Range("a1") & Date & Range("c1") & Range("d1") & Range("E1")

Jeg bruger også ofte denne:
With Dialogs(xlDialogSaveAs)
    .Name = "C:\Dokumenter\" & Range("a1") & Date & Range("c1") & Range("d1") & Range("E1")
    .Show
End With

Der blot åbner gemsom dialogen, men lader brugeren selv gøre arbejdet færdigt.

tjek lige denne

Public Sub GemSom()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
  fileTosave = wshNetwork.UserName & "_" & Date & "_" & Range("c1") & "_" & Range("d1") & "_" & Range("E1")
Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn = False Then GoTo Afbryd
    If fileTosave <> False Then
    ActiveWorkbook.SaveAs Filnavn
    End If
Afbryd:
End Sub

Kan man få datoen til at gemmes som f.eks: 2003-08-26

sådan

Public Sub GemSom()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
  fileTosave = wshNetwork.UserName & "_" & Format(Date, "yyyy-mm-dd") & "_" & Range("c1") & "_" & Range("d1") & "_" & Range("E1")
Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn = False Then GoTo Afbryd
    If fileTosave <> False Then
    ActiveWorkbook.SaveAs Filnavn
    End If
Afbryd:
End Sub

Jamen jeg siger tusind tak.
Jeg har hvad jeg skal bruge.