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

@Aalpha,

Correct, dit is precies de bedoeling!!

Answer 4

@Edwin,

Is het de bedoeling dat, als in D2 bijvoorbeeld dit staat: IO-E-4 , er dan de volgende keer bij openen van het bestand in D2 dit komt te staan: IO-E-5 ?

Answer 5

Erwin,

Misschien?

Range("D2").Value = "IO-E " & Mid(Range("D2").Value, 5) + 1

De 5 moet mogelijks aangepast worden naar 4 al naargelang je nog een spatie na de E plaatst.