Hej Peter
Det ska inte vara några större konstigheter, jag brukar skapa ett blad som jag döper till inställningar eller dyl, och däri kan man sedan spara ner information som man sedan ska återanvända. Kan dölja bladet så det inte stör...
Om du vill använda koden rakt av utan att göra några ändringar så gör du följande
Börja med att skapa ett blad som heter "Inställningar"
i det bladet så skall :
sökvägen stå i cell A2
Filnamnet utan löpnummer och filnamn i cell A4
Löpnummer i Cell A6 (måste vara en siffra angiven)
Ovan tillåter dig alltså att sätta en överskrift över resp. cell som du använder dig av.
Går att utöka med många fler kontroller på att tex. kontrollera att filen inte existerar etc, nedan kod är rätt basic
Koden är sedan:
With Sheets("Inställningar") 'ändra Inställningar till vad du väljer att döpa din flik till
If (Not (.Cells(2, 1).Value = "") And _
Not (.Cells(4, 1).Value = "")) Then
Dim sökväg As String
Dim filnamn As String
Dim löpnummer As Integer
sökväg = .Cells(2, 1).Value
filnamn = .Cells(4, 1).Value
löpnummer = CInt(.Cells(6, 1).Value)
ActiveWorkbook.SaveAs Filename:= _
sökväg + filnamn + CStr(löpnummer) + "xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
löpnummer = löpnummer + 1
.Cells(6, 1).Value = CStr(löpnummer)
End If
End With