Automatisch doornummeren excel

[Diederik92]

Momenteel werk ik met excel voor het maken van facturen voor klanten. Omdat er meerdere mensen facturen opstellen zou het handig zijn als de factuurnummers automatisch aangepast zouden worden.

Nu is het zo dat ik geen informatie hierover kan vinden.

Heeft iemand van jullie een idee hoe ik dit voor elkaar kan krijgen?
Het factuurnummer moet dus +1 zijn tenopzichte van de laatst gemaakte factuur.


Groeten,

Diederik

 

[edmoor]

Kijk eens hier:
https://www.helpmij.nl/forum/showth...actuurnummer?highlight=factuurnummer+verhogen

En lees ook:
https://www.helpmij.nl/forum/announcement.php?f=5

 

[VenA]

Dat iemand nog facturen maak vanuit Excel... Als ZZP-er kan ik het mij nog voorstellen, maar als er meerdere medewerkers mee mogen rommelen dan zou ik opzoek gaan naar een beter programma.

 

[Diederik92]

Bedankt voor de snelle reacties

Ik heb de macro werkend, maar nog wel een ander probleem.
Het factuurnummer past zich aan alleen het nummer is nog verkeerd. Het factuurnummer zou 201800256 moeten worden maar verspringt naar 2018002256

Sub Auto_openen()

Dim bestandopen As String, counter As Long
 bestandopen = Dir("C:\Users\Diederik Leemhuis\Documents\diederik\werk\facturen\*")
    Do Until bestandopen = ""
      If bestandopen = "" Then Exit Do
        counter = counter + 1
      bestandopen = Dir
    Loop
 Sheets(1).Range("B11").Value = Format(counter, "201800255") + 1

End Sub

 

[ExcelAmateur]

Zet dat getal eens in B11 en in de code,

Sheets(1).Range("B11").Value = Range("B11").value + 1

Test het dan nog eens.

 

[HSV]

Sheets(1).Range("B11").Value = Format(counter, year(date) & "00000") + 1

en sla een kopie van thisworkbook op in dezelfde map.