Hej
,
Metoden jeg valgte var simpel, simpelthen ved at få Excel til at gemme filen som netop fakturanummeret og først checke om nummeret allerede var optaget. Hvis nummeret ikke var ledigt, vil koden lægge 1 til indtil næste ledige nummer findes.
Koden ser således ud, men virker desværre ikke på Mac, er der nogen som kan hjælpe?
Jeg tror selv at fejlen ligger i den måde jeg checker on filen eksisterer, men jeg ved det som sagt ikke.
Sub Fakturanummer()
NummerPlacering = Ark1.Range("A2").Address
FakturaArkiv = ThisWorkbook.Path
Naeste:
If Dir(FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".xls") <> "" Then
Range(NummerPlacering) = Range(NummerPlacering) + 1
GoTo Naeste
Else
ThisWorkbook.SaveAs (FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".xls")
MsgBox "Fakturanr. " & Range(NummerPlacering) & " er nu gemt i mappen:" & vbNewLine & FakturaArkiv
End If
End Sub
//Allan