Tijd vasthouden

[ronaldje]

Ik werk met een bestelformulier voor materiaal , en als het excelbestand wordt geopend staat er in een cel een tijd ( =nu() ) Is het mogelijk dat deze tijd dan op het tijdstip van openen blijft staan . Het bestand wordt via mail naar een andere afdeling gestuurd en daar wordt het uitgeprint . Maar als het daar wordt geopend dan staat er de huidige tijd.
En ik wil graag de tijd dat het formulier werd ingevuld .
Is dit mogelijk?

Ronald

 

[Hof1607]

re tijd in sheet vastleggen

Ronald heb je hier misschien iets aan, plaats deze code met de VBA editor rechtstreeks in het workbook

voor de goede order code is niet van mijzelf maar werkt perfect

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
        Cancel As Boolean)
    Sheets("Blad1").Select
    Range("B3").Select
    Range("B3") = "Last Save :"
    ActiveCell.Offset(0, 1).Formula = Date
    ActiveCell.Offset(0, 2).Formula = Time
    Range("A1").Select
End Sub

suc6 Willem

 

[Wigi]

Ik ga voor

Private Sub Workbook_Open()
    With Sheets("Blad1").Range("B3")
        .Value = "Last opened :"
        .Offset(, 1).Value = Date
        .Offset(, 2).Value = Time
    End With
End Sub

D.i. code van Hof1607 wat aangepast.

Wigi

 

[ronaldje]

Dat is hem

Dank jullie wel , voor jullie kennis .
Zo krijgt mijn formulier precies wat ik moest hebben


Ronald