Forum Discussion

11392's avatar
11392
Copper Contributor
Nov 04, 2020

Excel VBA: Filter, cut, and paste to another sheet

1st sheet named src while the 2nd one is dst which is an empty sheet at the moment. My plan is to filter string x in column B, cut it and paste it to 2nd sheet dst     VBA code Sub filter_...
Macros and VBA
HansVogelaar's avatar
HansVogelaar
MVP
Nov 04, 2020

11392 

The code runs without error when I try it, but see if this version works for you:

Sub filter_copy_paste()
    With Sheets("src").Range("A1").CurrentRegion
        .AutoFilter Field:=2, Criteria1:="x"
        .SpecialCells(xlCellTypeVisible).EntireRow.Copy _
            Destination:=Sheets("dst").Range("A1")
    End With
End Sub

Resources