Opslagen met unieke nummer

[Noord2011]

Beste mensen,

Ik ben bezig om een factuur te maken. Mijn idee is om het factuur op te slagen in een map FACTUUR op C schijf, en de opgeslagde ecxel met de nummer die staat in cel L4.

Ik opzoek naar een code VBA

Alvast bedankt

Mv/Gr

 

[danny147]

Beste Noord25

Kijk eens naar de volgende topic hier.

Of zoek eens op het forum naar automatische nummering, factuurnummers doorvoeren enz...

Groetjes Danny. :thumb:

 

[Gielleke]

Beste Noord25,

Een tijdje geleden heb ik voor een ander forumlid deze oplossing meegegeven.

Maak een "Button" op jou factuur of formulier en met het click event plaats je deze code.

Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs "C:\Users\Loeke.x\Desktop\" & Range("D8").Value & ".xls"
End Sub

Zoals je kan zien de link naar een bestandsmap maar sluit wel af met een "\".
En de "D8" is hier de cel waar je een naam of nummer kan intypen. Bij een voorbeeld van me was dat cel D8 bij jou kan dat gerust cel A1 zijn.

En ".xls" is het bestandstype van Excel.

P.S. die "Loeke.x is de naam van de pc van mij.
Ben je niet zeker van jou bestandslocatie, maak dan een map op de plaats waar je wil. klik op rechtermuisknop en eigenschappen, dan zie je daar de juiste locatie van jou bepaalde map.

Bij vragen horen wij het graag!!

Veel succes