Bestand opslaan met datumnotatie uit een werkblad

[medak]

Hallo iedereen,

Ik maak wekelijks een verslag voor onze dansclub, hiervoor gebruik ik een vast werkblad en hierin wordt de datum automatisch ingevuld door "=VANDAAG()-1" vraag is hoe kan ik door druk op een knop het wekblad opslaan in bv C:/OEFENAVONDEN/OEFENAVOND (EN HIER DE DATUM UIT DE CEL "=VANDAAG()-1")
Is dit mogelijk?

Dank voor uw hulp

 

[Pre]

Volgens mij kost het iedereen hier meer moeite om dat te verzinnen en te typen dan dat jij een datum typt....

 

[medak]

Dat klop maar dan leer je ook niets bij

 

[CorVerm]

medak,
Zet deze code in een module, maak een knop op je werkblad en hang deze code er aan. Of wijs een sneltoets toe aan de macro. Je hoeft dan uiteraard geen knop te maken. Je moet wel even de Range aanpassen, is nu F5.

Sub Bewaren()
Dim CelMetNaam As String
Application.DisplayAlerts = False
CelMetNaam = ActiveSheet.Range("F5").Value
ThisWorkbook.SaveAs Filename:="C:\" & CelMetNaam
Application.DisplayAlerts = True
End Sub

 

[medak]

Bedankt Cor,

nog een klein probleempje. De datumnotatie wordt weergegeven als 11/01/2006 en dit formaat is niet geldig in een filenaam, kan de notatie bv 11 jan 2006 worden?

 

[jheesterbeek]

Sub Bewaren()
Dim CelMetNaam As String
Application.DisplayAlerts = False
CelMetNaam = ActiveSheet.Range("F5").Value
ThisWorkbook.SaveAs Filename:="C:\" & format(CelMetNaam,"dd mmm yyyy")
Application.DisplayAlerts = True
End Sub

 

[CorVerm]

Sub Bewaren()
ThisWorkbook.SaveAs Filename:="C:\" & format(CelMetNaam,"dd mmm yyyy")
Application.DisplayAlerts = True
End Sub

Jhon,
Niet bij stilgestaan bedankt voor de aanvulling.

 

[medak]

Cor en John hartelijk bedankt het werkt :thumb: :thumb:

 

[franç]

Eén opmerking: de gegeven oplossing zal waarschijnlijk alleen werken als het bestand reeds bestaat.

 

[BennyBang]

beste forummers
Is het ook mogelijk deze code uit te voeren bij het verlaten van het doel veld d.m.v. bv. focus verloren of iets dergelijks.

Alvast bedankt.
Benny