Betinget udtræk

Laver et filter og kopierer dataen over i nyt ark som værdi.

Lavede en makro med et filter, men får ikke lov til at paste. Makroen stopper ved ActiveSheet.Paste. Kan du se hvorfor?

Range("Q1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.AutoFilter
    Selection.AutoFilter
    Selection.AutoFilter
    ActiveSheet.Range("$Q$1:$U$20").AutoFilter Field:=3, Criteria1:="<>0", _
        Operator:=xlAnd
    Range("P2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ActiveSheet.Range("$Q$1:$U$20").AutoFilter Field:=3
    Range("B2").Select
    ActiveSheet.Paste
    Range("Q1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub

Hvorfor overhovedet lave en makro?

Men du bør nok paste i nyt ark, det forekommer mig at du ikke kan i eksisterende filtreret data? Tilføj evt. sheets(sheet2).activate
Jeg synes også det ser ud til at du filtrerer på 0 og ikke 3?
Hvis du alligevel sletter dataen efterfølgende, så hellere paste i nyt ark og slette gammelt ark?

du skal bruge advanseret filter

Brug Autofilter