automatisch opslaan

[cees002]

Ik heb een beveiligde blanco Excel lijst gemaakt die door anderen ingevuld moet worden.
Dat gaat met pijn en moeite. Opslaan na invullen voor mij geen probleem.
Kan dit ook automatisch, zodat na het aanklikken van opslaan of save, deze lijst in de juiste map terecht komt, zonder dat anderen hierbij te veel moeten nadenken.

 

[danny147]

Beste cees002

In welke map moet deze komen te staan ?

Groetjes Danny. :thumb:

 

[Hoornvan]

cees002,

Ook jij mag de functie "Doorzoek dit forum gebruiken"
Heb dit er mee gevonden, er zijn nog meer voorbeelden.

Kijk hier

 

[cees002]

B.v. documenten met als submap, rittenstaten.

 

[Hoornvan]

cees002,

Zou het zo lukken?

Sub Bewaren()
With ActiveWorkbook
     .SaveAs "C:\documenten\rittenstaten\" & ".xls"
    .Close
End With
End Sub

 

[danny147]

Beste Hoornvan

Kan dit ook automatisch, zodat na het aanklikken van opslaan of save

Denk eerder dat hij dit wilt.

Private Sub Workbook_BeforeSave(Cancel As Boolean)
With ActiveWorkbook
     .SaveAs "C:\documenten\rittenstaten\" & ".xls"
    .Close
End With
End Sub

Groetjes Danny. :thumb:

 

[cees002]

Bedankt. Ga dit proberen.
"doorzoek dit forum kan ik niet vinden"

 

[danny147]

Beste cees002

Hoornvan bedoeld hiermee dat je moet kijken bij ZOEKEN.
Dit staat boven Reageer Op Vraag.

Groetjes Danny. :thumb:

 

[Hoornvan]

Kijk eens rechts boven aan de pagina, waar de vragen staan.
Onder Vraag plaatsen