Jeg sidder og skal lave nogle følgesedler og har benyttet en kode fra dette forum til at generere et fortløbende følgeseddelsnummer (Har brugt den der laver fakturanummer, vist nok lavet af Allan) og det fungerer perfekt.

Nu kunne jeg så godt tænke mig at få den til også at generere et nyt ordrenummer i samme omgang, men det kan jeg ikke få til at virke.

Er der nogen der kan hjælpe, så den både generere det næste følgeseddelsnummer & ordrenummer?

/Anne

Sub Fakturanummer()
'Denne funktion genererer fortløbende fakturanumre i Excel
'2011 Allan Thustrup Mortensen

NummerPlacering = Range("B1").Address 'Her står fakturanummeret på din faktura

FakturaArkiv = ThisWorkbook.Path 'Dette kunne også være f.eks "C:\faktura"
 
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

Og det jeg mangler er at den også generer et forløbende ordre nr.