datum van opslaan

[Ron321]

Ik heb een bestandje met gegevens en iedere keer als ik een wijziging aanbreng in de gegevens en daarna opsla, zou ik in A1 de datum gewijzigd willen hebben in het moment van opslaan.
Iemand enig idee?

 

[Wigi]

Probeer dit eens

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim iResponse
        iResponse = MsgBox("Wilt u 'laatste update' automatisch wijzigen?", vbQuestion + vbYesNoCancel, "Nieuwe update")
        If iResponse = vbYes Then Worksheets("jouwtabblad").Range("A1") = Now
End Sub

Zet dit in de code bij ThisWorkbook.

Pas jouwtabblad nog aan in de code.

Maak ook A1 op een goede manier op, zowel met datum als tijdsaanduiding.

Wigi

 

[Demeter]

Netjes Wigi (niet dat ik wat anders gewend ben van je )

En ik maar zoeken naar iets van AfterSave.
Je zou Now ook kunnen opmaken met een format, ben je ook van je celeigenschappen af.

Groet,
Ferenc

ps.
De End With moet weg.

 

[Wigi]

ps.
De End With moet weg.

Heb het aangepast, bedankt.

 

[Ron321]

Ik ga hem nog een beetje aanpassen maar kom er zo wel uit.
Heel mooi, bedankt:thumb: