Turn the Autofilter Off

[nniedzielski]

I am running this code, but when its done the worksheet yc is still left filtered, and i have to turn it off, im currently running this:

    With yc
        .Range("A1:F1").AutoFilter Field:=6, Criteria1:="Red Tag"
        .AutoFilter.Range.Copy Sheets("Red Tag").Range("A1")
    End With
    
    With Sheets("Red Tag").UsedRange.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Sheets("Red Tag").UsedRange.EntireColumn.AutoFit

i tried to just add an autofilter by doing:

.autofilter

but that didnt work

 

[My Aswer Is This]

Show us all the code.

Like I do not know what Yc is

 

[nniedzielski]

Dim yc As Worksheet
Set yc = Sheets("Yard")

    With yc
        .Range("A1:F1").AutoFilter Field:=6, Criteria1:="Red Tag"
        .AutoFilter.Range.Copy Sheets("Red Tag").Range("A1")
    End With
    
    With Sheets("Red Tag").UsedRange.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Sheets("Red Tag").UsedRange.EntireColumn.AutoFit

 

[My Aswer Is This]

Try this:
As a example:

Sub Filter_Me()
With Sheets(1)
.Range("A1:F1").AutoFilter Field:=6, Criteria1:="Red Tag"
        .AutoFilter.Range.Copy Sheets("Red Tag").Range("A1")
        .Range("A1:F1").AutoFilter
End With
End Sub

 

[nniedzielski]

that did the trick, thank you

 

[My Aswer Is This]

that did the trick, thank you

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[Michael M]

for future reference, you can also use

With yc
        .Range("A1:F1").AutoFilter Field:=6, Criteria1:="Red Tag"
        .AutoFilter.Range.Copy Sheets("Red Tag").Range("A1")
        .autofilter.showalldata
    End With

 

[My Aswer Is This]

for future reference, you can also use

With yc
        .Range("A1:F1").AutoFilter Field:=6, Criteria1:="Red Tag"
        .AutoFilter.Range.Copy Sheets("Red Tag").Range("A1")
        .autofilter.showalldata
    End With

But doing it your way you still have all those Filter down arrow icons showing.
My way eliminates all that.

 

[Michael M]

Agreed, but it depends on the needs of the OP... ...which is why I posted the option !