Aanpassen macro

[verluc]

Heb volgende macro, die uitstekend werkt.
Toch wil ik deze handeling uitschakelen door dit te plaatsen in de Workbook_Open, zodat dit dagelijks automatisch kan gebeuren.

Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Range("A65536").End(xlUp).Offset(1, 0).Activate
If target.Column = 4 Then
   Cancel = True
   target.Offset(, -3).Value = DateAdd("yyyy", 1, target.Offset(, -3).Value)
End If
Application.ScreenUpdating = True
End Sub

Heeft iemand enig idee hoe dit kan aangepast worden ?
Met dank.

 

[verluc]

Sorry, indien dit in Workbook_Open komt te staan, moet er ook een voorwaarde aan verbonden zijn :

Mag worden uitgevoerd als kolom D niet leeg is en kolom A een datum heeft die jonger is dan vandaag.

Dit als aanvulling op mijn eerste vraag !!

 

[trucker10]

Ik was aan dit bezig

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A65536").End(xlUp).Offset(1, 0).Activate
    Selection.Formula = "=text(now(),""dd mm jjjj"")"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    Selection.Columns.AutoFit
Application.ScreenUpdating = True
End Sub

 

[Warme bakkertje]

Zoiets misschien ?

Private Sub Workbook_Open()
With Sheets("Blad1").Range("A65536").End(xlUp)
    If .Offset(, 3) <> "" And .Value < Date Then
        .Value = DateAdd("yyyy", 1, .Value)
    End If
End With
End Sub

 

[verluc]

Bedankt, hier kan ik verder mee stoeien !!