IF .. then DATE comparison

[instanceoftime]

I'm looking to use a macro and not a formula to do delete old invoices automatically. please help

if today is greater than 2/1/2019 then delete column A

 

[Yongle]

ONE of these lines should be all you need

Test on a COPY of your workbook!

Do you want to delete values or the column ?
Is 2/1/2019 2nd January (UK) or 1st February (USA) ?

DELETE VALUES

[I][COLOR=#006400]2nd January 2019[/COLOR][/I]
    If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").ClearContents
[I][COLOR=#006400]1st February 2019[/COLOR][/I]
    If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").ClearContents

DELETE COLUMN

[I][COLOR=#006400]2nd January 2019[/COLOR][/I]
   If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").Delete
[I][COLOR=#006400]1st February 2019[/COLOR][/I]
    If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").Delete

 

[instanceoftime]

Awesome... worked perfect

ONE of these lines should be all you need

Test on a COPY of your workbook!

Do you want to delete values or the column ?
Is 2/1/2019 2nd January (UK) or 1st February (USA) ?

DELETE VALUES

[I][COLOR=#006400]2nd January 2019[/COLOR][/I]
    If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").ClearContents
[I][COLOR=#006400]1st February 2019[/COLOR][/I]
    If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").ClearContents

DELETE COLUMN

[I][COLOR=#006400]2nd January 2019[/COLOR][/I]
   If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").Delete
[I][COLOR=#006400]1st February 2019[/COLOR][/I]
    If Date > DateSerial(2019, 1, 2) Then ActiveSheet.Columns("A").Delete

 

[Yongle]

thanks for your feedback