Filterér data fra de seneste 30 dage

Du kan blot skrive

=IDAG()

I den første celle og så skrive

=A1-1

Og så kopiere det 29 "dage" ned i regnearket - hvis jeg altså har forstået dig korrekt.

Jeg tænkte at jeg ville bruge makroen til at kopiere alle data til et nyt Ark og filtrere de rækker der indeholder en dato der er over 30 dage væk.

Så prøv med nedenstående:

Sub KopierFilterData()
    Sheets.Add
    Sheets("Ark2").Range("A1:C62").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Ark2").Range("F1:G2"), CopyToRange:=Range("A1"), _
        Unique:=False
End Sub

Det antages at alle data ligger i Ark2 i området A1:C62. Det skal du selvfølgelig ændre til dit ark.

Derudover antages at du skriver følgende kriterier i Ark2 i cellerne
F1:G2

F1: Dato                      G1: Dato
F2: =">=" &IDAG()-30          G2: ="<=" &IDAG()

"Dato" antages at være navnet på din dato-kolonne. Du kan selfølgelig flytte dem et andet sted hen, men så husk at rette det i makroen.