Copy/Paste from a filter

[Mashtonsmith]

Hello...

I'm sure this has a simple answer..

I'm trying to copy and paste from a large filtered workbook.

When I paste all the rows that the filter removes are pasted also.

How can I just copy and paste the filtered selection?

Thanks

 

[John Davis]

Hello...

I'm sure this has a simple answer..

I'm trying to copy and paste from a large filtered workbook.

When I paste all the rows that the filter removes are pasted also.

How can I just copy and paste the filtered selection?

Thanks

Maybe something like this?

Sub Mashtonsmith()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row
'
    Columns("B:B").AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="YOUR CRITERIA"
    Range("A2:C" & lr).EntireRow.SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A1")

End Sub

 

[Mashtonsmith]

Thanks for responding John

I was hoping for a simpler answer! Is there not a paste or copy function that can do this?

 

[John Davis]

Thanks for responding John

I was hoping for a simpler answer! Is there not a paste or copy function that can do this?

I've never had that problem with filtered data. I only select the range, copy and paste. Only the visible cells are copied and pasted. Therefore I don't know why that doesn't work for you.