Auto Nummering

[puppie]

zo ben er nu even mee aan het stoeien en het werkt zo als ik in gedachten had.
Zou het nu ook nog mogelijk zijn dat ik de plaats kan bepalen waar het document opgeslagen moet worden.
Het wordt nu opgeslagen en dan zie ik het niet terug.
Of doe ik iets verkeerd??

 

[Roncancio]

Geen idee wat je gedaan hebt maar je kunt het bestand opslaan met behulp van SaveAs zodat je er een locatie aan kunt geven.
Bijv.:

ActiveWorkbook.SaveAs "C:\Puppie\" & ActiveWorkbook.Name

Met vriendelijke groet,


Roncancio

 

[puppie]

Oke
Dan ga ik dat toevoegen in 8 verschillende mappen.

Hartelijk bedankt voor je reactie/oplossing.

 

[Roncancio]

Hoezo 8?
Wellicht is een idee om gebruik te maken van Select Case om te bepalen waar een bestand moet worden opgeslagen.

Met vriendelijke groet,


Roncancio

 

[puppie]

ik heb 8 mappen op een netwerkschijf staan.
deze hebben dan een naam.
in elke map staat 1 zo'n formulier.
Die wordt ingevuld per naam, moet opgeslagen worden in de map, geprint en bij de volgende keer openen een nieuw nummer krijgen.

dus bijvoorbeeld s:/wijkcentra/boei/0001
opslaan in de bovenstaande map dan printen en dan nieuwe openen.

als daar een makkelijker manier voor is dan houd ik mij aanbevolen.
Maar zoals eerder vermeld, hier heb ik geen kaas van gegeten.
Ik vraag naar wat ik zou willen maar weet niet eens of dit allemaal kan.

 

[puppie]

Ben dus een beetje aan klooien net het formulier.
ik krijg het niet voor elkaar dat het bestand opgeslagen wordt met de autonummerg erbij.
het blad heet steeds doordrukbon en daar zou dan automatische de nummering mee moeten komen.
ik stop het blad zoals ik nu de codes erin heb gezet in deze post.

het blad moet dus opgeslagen worden op een netwerkschijf. s:\ob\wijkcentra\boei\blad 0001
en dan steeds met een volgend nummer.