Volgend nummer genereren

Question

Hallo Allemaal,

Ik wil een opvolgend nummer genereren in een cel bij openen van het bestand. Nu is dit gelukt met onderstaande VBA code echter wil ik hier nog een tekst aan vooraf laten gaan IO-E- Dit lukt echter niet. Heeft iemand een oplossing?

Private Sub Workbook_Open() Range("D2").Value = Range("D2").Value + 1``End Sub

Groeten,

Edwin

Answer 1

@Jan,

Mijn opmerking dat het niet zou uitmaken of die slash er wel of niet staat is gebaseerd op het feit dat ik de macro die ik vandaag in dit topic als voorbeeld plaatste (in het bericht dat begint met "Stel dat:") zowel heb getest met:

mijnmap = "C:\Users\Gebruikersnaam\Documents\Facturen" (=mét slash op het eind);

als met

mijnmap = "C:\Users\Gebruikersnaam\Documents\Facturen" (=zónder slash op het eind).

Die macro werkt in beide gevallen goed.

Niettemin ben ik het met je eens dat de slash best wél wordt geplaatst (en in mijn macro staat die er ook).

Het uitroepteken schreef de vragensteller in deze regel:

"Het bestand "PDF bestanden***!***E-21121Company name.pdf" word aangemaakt..."

Het komt mij wat vreemd over.

Answer 2

De macro in mijn vorig bericht moet je handmatig uitvoeren. Wil je dat het getal in D2 automatisch bij openen van het bestand wordt opgehoogd, dan moet de macro uiteraard staan in het vba-blad behorend bij "ThisWorkbook". Die macro ziet er dan zo uit:

Private Sub Workbook_Open() 

With Sheets(1).Range("D2") 

.Value = Left(.Value, 5) & Right(.Value, Len(.Value) - 5) + 1 

End With 

End Sub

Answer 3

Edwin,

Vermoedelijk moet je in je code de string mijnmap aan het eind nog voorzien van een scheidingsteken (""), zo dus

mijnmap = "C:\Users\Edwin-FPS-\OneDrive -Gezamelijk\Onedrive Edwin\Inkooporders\2021\PDF bestanden"

Jan

Answer 4

Die W1 en W3 moeten er van mij niet in! Die heb jijzelf in een vorig bericht vermeld en daarom heb ik die opgenomen. Als lezer van dit forum heb ik er vaak maar het raden naar wat vragenstellers bedoelen. Als je consequent zou zijn in je berichtgeving, dan zouden dergelijke onduidelijkheden niet voorkomen.

Answer 5

Hoi Alpha,

Enige wat ik gewijzigd heb is het pad en heb de W1 en W3 verwijderd. Ik begreep niet wat ik hier in zou moeten vullen? Ik hoef toch enkel cel D2 (IO-E-4) en cel D3 (Company name) in te vullen. Wat hoort er dan in W1 en W3 te staan?

 Filename:=mijnmap & _ .Range("W1").Value & .Range("W3").Value & .Range("D2").Value & _ .Range("D3").Value & ".pdf"