automatische datum vastzetten

[keith]

Ik wil in een cel de datum van de dag van opmaak. maar als ik dit document 2 weken later terug open moet het op de datum staan van opmaak en niet van de dag wanneer ik het bestand terug open. Weet iemand de formule??

Groeten
Keith

 

[Ginger]

keith, Met de toetscombinatie Ctrl + ; (control puntkomma) krijg je de huidige datum in een cel.

Groet, Leo

 

[Warme bakkertje]

Als de cel met automatische datum bv A1 is

Private Sub Workbook_BeforeClose(Cancel As Boolean)
      [A1].Value = [A1].Value
End Sub

Plaats deze code in ThisWorkbook

Mvg

Rudi

 

[jpvs]

Warme bakker,

Je bent nog iets vergeten nl. in cel A1 moet je de formule

=Vandaag()

zetten anders doet de code niets.






Of je kunt automatisch de datum in een cel weergeven zo dat die niet meer veranderd:

Private Sub Workbook_Open()
If Sheets("Factuur").Range("A1") = "" Then
    Sheets("Factuur").Range("A1") = Date
End If
End Sub

Wel nog het tabblad "Factuur" aanpassen en eventueel de cel "A1" en niets in de cel zetten.


of korter?

Private Sub Workbook_Open()
If [Factuur!A1].value="" then [Factuur!A1].value=format(date,"dd-mm-yyyy") 
End If
End Sub

 

[Warme bakkertje]

Angezien er gevraagd wordt om een 'automatische' datum vast te zetten is mijn interpretatie hiervan dat deze sowieso reeds geplaatst is en derhalve niet meer gezet hoeft te worden.
We horen het wel.

Mvg

Rudi

 

[keith]

Waar kan ik "thisworkbook" vinden

 

[Roncancio]

Waar kan ik "thisworkbook" vinden

In de Visual Basic Editor.

Of te wel:
- Ga naar Extra - Macro - Visual Basic Editor (of Alt-F11)
- Ga naar Beeld - Projectverkenner. (of CTRL-R)

In het overzicht (van projectverkenner) staat ook ThisWorkbook.

Met vriendelijke groet,


Roncancio