Makro og VBA - 2 fortløbende numre

2 fortløbende numre

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4370
Udskrevet den: 16.Apr.2024 kl. 17:52

Emne: 2 fortløbende numre

Besked fra: Trips
Emne: 2 fortløbende numre
Posteringsdato: 21.Sep.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

Svar:

Besked fra: thomasbk
Posteringsdato: 21.Sep.2020 kl. 13:28

Nok ikke uden koden du allerede har.

Besked fra: Trips
Posteringsdato: 22.Sep.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.