Automatisch unieke ID-nummering in excel sjabloon

[ronaldjedc]

Ik wil een excel sjabloon maken, maar iedere keer als ik het sjabloon open, dan wil ik dat het een nieuw oplopend nummer aanmaakt. En ik wil het opslaan als volgt : bestandsnaam=unieke ID-code.

Kan iemand me vertellen hoe ik dat kan doen?

Ronald

 

[jpvs]

Ik wil een excel sjabloon maken, maar iedere keer als ik het sjabloon open, dan wil ik dat het een nieuw oplopend nummer aanmaakt

Dit kun je oplossen met in ThisWorkbook dit te zetten :

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

Wat bedoel je met "En ik wil het opslaan als volgt : bestandsnaam=unieke ID-code."
Geef eens een vb ... .xls.

Pierre

 

[Wigi]

En ik wil het opslaan als volgt : bestandsnaam=unieke ID-code.

ThisWorkbook.SaveAs Filename:=Range("A1").Value & ".xls"

Wigi

 

[beertje]

dit zocht ik ook.

Krijg alleen een foutmelding.
nu is mijn vraag of dit goed is:

Private Sub Workbook_Open()
Range("F1").Value = Range("F1").Value + 1
SaveAs Filename:=Range("F1").Value & ".xls"
End Sub

Ik krijg namelijk een foutmelding op de derde regel.
weet iemand hier een oplossing voor?
Kan ik in deze formule ook aangeven waar ik het bestand naar toe kan schrijven, zoals nu gaat hij standaard naar "mijn documenten"


Alvast bedankt en ik hoop dat het een beetje duidelijk is.

Beertje

 

[Wigi]

- Kan je aub verder gaan in dezelfde thread?
- Kan je ook code posten tussen code tags? Dat maakt het beter leesbaar.


Over de vraag:

Je bent ThisWorkbook vergeten voor de SaveAs.

Verder:

Private Sub Workbook_Open()
Range("F1").Value = Range("F1").Value + 1
ThisWorkbook.SaveAs Filename:="C:\Excel\" & Range("F1").Value & ".xls"
End Sub

of iets dergelijks.

 

[koosl]

aub op je eigen vraag verder gaan anders wordt het een beetje verwarrend

http://www.helpmij.nl/forum/showthread.php?t=258094



koosl