• 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.

Datum automatisch na ingave

Status
Niet open voor verdere reacties.

pjseynaeve

Gebruiker
Lid geworden
19 nov 2011
Berichten
149
Beste,

Bestaat er een manier om automatisch een datum te laten invullen na ingave in een cel
In bijlage een testfile
Graag had ik in kolom D automatisch de datum ingevuld krijgen na ingave in Kolom A (bij voorkeur in dezelfde rij :D )
Weet niet of dit mogelijk is, maar geraak er jammer genoeg niet aan.

Bekijk bijlage Test.xlsx
 
Bv.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then Target.Offset(, 3) = Date
End Sub

Als je het ook weer wilt wissen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 Target.Offset(, 3) = IIf(Target.Column = 1 And Target <> "", Date, "")
Application.EnableEvents = True
End Sub
 
Laatst bewerkt:
Kan dit met een formule bereikt worden ook?
Anders macro is OK hoor.

Zet vraag wel reeds als opgelost. Merci voor de macro.
 
Laatst bewerkt:
Met een formule wordt de datum elke keer aangepast als je het bestand opent.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan