Auto Filter / Copy-Paste Code

[bschulze]

I have a spreadsheet that I am using an auto filter on. I need to copy the results of this filter into another spreadsheet. Basically I need to select, copy, and paste (Values) of a range.


Dim CopyRng As Range, PasteRng As Range
Set PasteRng = Sheets("Combined_Tax").Range("A65536").End(xlUp).Offset(1, 0)
With Sheets("Local")
Set CopyRng = .Range("A1", .Range("A1").SpecialCells(xlLastCell))
End With
CopyRng.Copy Destination:=PasteRng


I am not sure how to write the CopyRng. I need it to be only for the selection of the auto filter and only for the Columns (E:W). Also, how would I only paste "Values" using a "PasteRng"......... Any help would be greatly appreciated.

 

[bschulze]

Wow this is strange. Neither of these worked. I changed all the data in the column to "0" and the format is Number. None of the data was moved to the other sheet. I tried both of the codes that you gave me and nothing. For some reason it is not reading the 0's. I tried using words but that did not work either.

If SourceSheet.Range("X" & cRow) = "Move" Then



I have no idea

 

[XLGibbs]

Check your PMs

 

[XLGibbs]

Sorry mad, total brain fade.

I inadvertantly use cRow in the Loop instead of x

replace cells("X" & cRow) with Cells("X" & x)

and replace the other cRows (inside the for next loop) with the x as well.

 

[bschulze]

Thanks....it works great....thanks for all your help tonight