Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


2 fortløbende numre

 Besvar Besvar
Forfatter
Trips Se dropdown
Forum Begynder
Forum Begynder


Medlem: 21-09-2020
Status: Offline
Point: 2
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Trips Citér  BesvarSvar Direkte link til dette indlæg Emne: 2 fortløbende numre
    Sendt: 21-09-2020 kl. 12:22
Hej forum,

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
Til top



Til top
thomasbk Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19-07-2015
Land: Danmark
Status: Offline
Point: 71
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér thomasbk Citér  BesvarSvar Direkte link til dette indlæg Sendt: 21-09-2020 kl. 13:28
Nok ikke uden koden du allerede har.
Til top
Trips Se dropdown
Forum Begynder
Forum Begynder


Medlem: 21-09-2020
Status: Offline
Point: 2
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Trips Citér  BesvarSvar Direkte link til dette indlæg Sendt: 22-09-2020 kl. 10:29
Jeg har brugt denne kode dog ikke som fakturanr men følgeseddel.

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.
Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2020 Dansk Regneark Forum - en del af Excel-regneark.dk