Gem som

Ups, altså når man vil GemSom...

Public Sub GemSom()
navn = Application.GetSaveAsFilename(Worksheets("Ark1").Range("A1").Value, "Excel Files (*.Xls), *.Xls")
If Not navn = "False" Then
ThisWorkbook.SaveAs navn
Else
MsgBox "Mappen er ikke gemt som " & Worksheets("Ark1").Range("A1").Value & ".Xls"
End If
End Sub


her tager den værdien i  Worksheets("Ark1").Range("A1").Value

Koden skal være i et Modul

Den virker som macro, men det jeg godt kunne tænke mig er når jeg går op i menuen "filer" og vælger gem som, så kommer der en dialogboks frem og der foreslå den allerede et navn f.eks, faktura1.xls, da den kommer far en skabelon der hedder faktura. Der skal den foreslå min f.eks. 100003_kurtkarlsen.xls

Man kan ikke styre imellem de 2 måder at gemme på, gemsom vil komme altid, men annuleres den , kommer den og spørger om man vil gemme normal.

Koden skal i ThisWorkbook modulet.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
navn = Application.GetSaveAsFilename(Worksheets("Ark1").Range("A1").Value, "Excel Files (*.Xls), *.Xls")
    If Not navn = "False" Then
        ThisWorkbook.SaveAs navn
    Else
        svar = MsgBox("Mappen er ikke gemt som " & Worksheets("Ark1").Range("A1").Value & ".Xls" & vbCrLf & _
        "Vil du gemme normalt i stedet", vbYesNo)
        If svar = vbYes Then ThisWorkbook.Save
    End If
Application.EnableEvents = True
Cancel = True
End Sub

marker mit navn og tryk accepter, hvis det virkede

Sorry, har lige glemt det...