• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Automatische datum vastzetten in logboek

Status
Niet open voor verdere reacties.
R

Ridegroot

Gebruiker
Lid geworden
25 mei 2016
Berichten
30
Bekijk bijlage LOGBOEK-Versie 0.0.xlsm

Voor het logboek in de bijlage is het de bedoeling dat bij een nieuwe regel automatisch de datum en tijd van het invoermoment er achter komt.

Dit werkt al (let op tijd bij invoeren nieuwe regel (minimaal 1 minuut later)).

Echter:

- bij opslaan bestand en opnieuw openen wijizigt de tijd/datum
- bij toepassen filter wijizigt de tijd/datum

Heeft iemand hier een oplossing voor? (ctrl + ; = niet automatisch)

Alvast bedankt
 
Zet dit in ThisWorkbook:
Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cl As Range
For Each cl In Sheets("Gegevensinvoer").Range("L3:L" & Range("L" & Rows.Count).End(xlUp).Row)
 If IsDate(cl) Then cl = cl.Value
Next
End Sub
 
Volgens mij kan je het beter met een change event doen. De datum en tijd wordt dan gelijk als waarde in de cel gezet.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(1)) Is Nothing And Target.Count = 1 Then Target.Offset(, 4) = Now
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan