automatisch opslaan

[senten]

Hallo,

Weer een probleem waar ik niet uit kom.
Ik heb een excel bestand om facturen mee te maken.
Nu wil ik steeds mijn facturen opslaan om toch altijd een goede backup te hebben.
Ik wil dus het werkblad waar de factuur in staat opslaan met als bestandsnaam het factuur nummer.
Is dit mogelijk met een macro?
Ik wil niet het hele bestand opslaan omdat het verbonden staat met veel werkbladen en dat is niet overzichtelijk.

Alvast bedankt voor jullie hulp
Barend

 

[Wigi]

Barend

Je kan niet slechts een stuk van de file opslaan. Het is alles of niets.

Wigi

 

[robdgr]

Barend,

Je kunt toch een kopie van je factuur maken zonder alle verwijzingen en dat bestand opslaan als je factuur. Dat is in een macro te vatten.

Groet,

 

[arafy]

Pdf

een andere mogelijkheid is om je factuur op te slaan als PDF-file. je hebt dan wel acrobat writer nodig.

steven

 

[robdgr]

Inderdaad. Kijk hier maar eens: http://www.google.nl/search?sourcei...TF-8&rls=GGLD,GGLD:2005-15,GGLD:nl&q=free+pdf

Groet,

 

[FrankB]

Kijk hier eens naar
Is een bijgewerkte versie van Verkoopfactuur5 van microsoft(ook bijgevoegd)
De factuur wordt opgeslagen op C:\
Is aan te passen op het Tabblad Debiteuren in cel E6


Is de eerste keer voor mij op dit forum,hoop dat ik U hiermee een beetje vooruit help:thumb:
Beste wensen aan iedereen

 

[Wigi]

Beste Frank

welkom op het forum!

Bedankt voor de moeite die je hebt uitgetrokken om de vraag te beantwoorden.

Kijk wel naar de datum van de vraag, als die al redelijk lang geleden is, kan je beter recente vragen beantwoorden. Er wordt waarschijnlijk toch niet veel met jouw antwoord gedaan anders.

In ieder geval, dat je nog velen mag helpen...

Beste wensen ook voor jou.

Wigi

 

[jpvs]

Frank,

Bedoel je dit:

Sub SaveFile()
Dim path
Dim fname
path = ActiveSheet.Range("A1")
fname = ActiveWorkbook.Name
ActiveWorkbook.SaveAs path & "\" & fname
End Sub

zet in A1 uw path, bv C:\Test

of

een dialoogvenster aan roepen?

Sub Opslaan() 
Application.Dialogs(xlDialogSaveAs).Show 
End Sub

Pierre

Beste wensen aan iedereen.

 

[FrankB]

Beste JVPS
Bijgesloten vind je een beetje meer uitleg over hoe dit doe
De code "path = ActiveSheet.Range("A1") "gebruik ik niet omdat jede code die ik gebruik eigenlijk zou kunnen gebruiken voor elk werkblad in een bestand
Plaats de code in een gewone module zoals in voorbeeld en wijs deze toe aan opdrachtknop die je gelijk waar inhet bestand kan plaatsen
Als je nog vragen hebt dan geef je maar een gil

By The Way Happy NewYear aan iedereen ophetforum


Groetjes

 

[jpvs]

Frank,

Bedankt voor de uitleg.

Pierre