Hej, 

Jag  försöker skapa ett ett makro där jag kan radera framtida datum från en kolumn. Hittade ett makro i ett annat forum men där det raderar tidigare datum från ett specifikt valt datum. Det jag skulle vilja göra är alltså att kunna använda "today" istället för ett specifikt datum.

Tacksam för all hjälp,

Allt gott

Option Explicit

Sub DeleteDateWithAutoFilter()

Dim MySheet As Worksheet, MyRange As Range

Dim LastRow As Long, LastCol As Long

'turn off alerts

Application.DisplayAlerts = False

'set references up-front

Set MySheet = ThisWorkbook.Worksheets("Sheet1")

'identify the last row in column A and the last col in row 1

'then assign a range to contain the full data "block"

With MySheet

    LastRow = .Range("H" & .Rows.Count).End(xlUp).Row

    LastCol = .Range("H" & .Columns.Count).End(xlToLeft).Column

    Set MyRange = .Range(.Cells(1, 1), .Cells(LastRow, LastCol))

End With

'apply autofilter to the range showing only dates

'newer than january 1st, 2013, then deleting

'all the visible rows except the header

With MyRange

    .AutoFilter Field:=1, Criteria1:=">/1/2013"

    .SpecialCells(xlCellTypeVisible).Offset(1, 0).Resize(.Rows.Count).Rows.Delete

End With

'turn off autofilter safely

With MySheet

    .AutoFilterMode = False

    If .FilterMode = True Then

        .ShowAllData

    End If

End With

'turn alerts back on

Application.DisplayAlerts = True

End Sub