Uitvoering macro vermelding datum laatste aanpassing bestand

[peggydeleeuw]

Goede morgen,

ik ben een absolute leek in het uitvoeren van macro's in excel.
Momenteel werken wij met excel 2016, maar ik vermoed dat dit geen verschil gaan uitmaken om deze macro in dit bestand te krijgen.

Ik heb al gevonden in het forum dat ik via Alt+F11 in het blad "ThisWorkbook" de volgende formule moet plakken :

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Column <> 11 Then Exit Sub
Application.EnableEvents = False
If .Count = 1 Then .Offset(, -7) = Now
Application.EnableEvents = True
End With

End Sub

Echter, mijn blijvende vraag is : wat moet ik vervolgens uitvoeren om mijn datum in de cel A1 te verkrijgen ?

Sorry hoor, maar ben een absolute beginneling hierin.

 

[peggydeleeuw]

Kan ik mijn voorbeeld bestand ergens invoegen ?

 

[snb]

Waarom zou je dat daar zetten ?
Excel houdt dit zelf bij: als je een bestand zoekt in de directory staat daar de naam en het tijdstip van de laatste bewerking.

 

[peggydeleeuw]

Omdat, wanneer ik dit bestand dan ga afdrukken om vooraan in mijn map te steken ter opvolging, het duidelijk is voor mijn collega's wannneer ik de laatste aanpassingen hieraan heb uitgevoerd.

 

[Ad Becude]

Dit kun je ook in de kop of voet tekst zetten.

En als je toch een macro wilt gebruiken:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("blad1").Range("a1").Value = Now
End Sub

Pas wel je cel breedte aan.

 

[peggydeleeuw]

Dank je.

Ik voer dit dan uit aan de hand van :
- ik sta momenteel in cel A1 in dat tabblad
- ik druk alt+f11
- selecteer onder VBAProject -> "ThisWorkbook"
- dubbelklik
- hier plak ik dan de formule die u opgeeft
- sluit dan gewoon af door middel van opslaan van dit bestand alszijnde een excelbestand met macro ?

Komt dan deze datum tevoorschijn in cel A1 ?

 

[peggydeleeuw]

Het mag ook absoluut niet de datum van opening van het bestand zijn, maar wel degelijk de datum waarop er effectief iets is aangepast.

 

[snb]

Omdat, wanneer ik dit bestand dan ga afdrukken om vooraan in mijn map te steken ter opvolging, het duidelijk is voor mijn collega's wannneer ik de laatste aanpassingen hieraan heb uitgevoerd.

Als collega's dat willen weten kunnen ze toch gewoon via de computer zien wanneer het het laatst bewerkt is.

 

[peggydeleeuw]

Nee, dat klopt niet, want als je het bestand opent en terug sluit en je hebt de gewoonte (zoals ik) voor de veiligheid je bestand op te slaan (ook al wijzig je niets) dan is dat niet de correcte datum.

 

[Ad Becude]

Dan leer je die gewoonte toch af, is een mooi voornemen van het nieuwe jaar.

 

[snb]

Dan zul je die gewoonte aan moeten passen: open het bestand als kopie voor raadpleging.
Juist jouw invoer in A1 zal bij iedere opening van het bestand tot wijziging (ook als enige) leiden.

 

[peggydeleeuw]

Kunnen we ook doen natuurlijk
Maar het zou wel mooi geweest zijn als ik die datum in die cel had gekregen.

 

[peggydeleeuw]

Ik heb de volgende oplossing toegepast.
Dit geeft de datum weer waarop laatst is opgeslagen.

Dit geef je in door in de ALT+F11 (Microsoft Visual Basic for Applications) onder ThisWorkbook het volgende in te brengen :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets(1).Range("A2").Value = Now() 'A2'
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub

 

[Cobbe]

Dit doet niet wat gevraagd werd, want dit past ook de datum aan indien je je bestand enkel raadpleegt.