Hi Jim
This macro will filter sheet1, and copy the filtered range to sheet2. The
filter I applied is non-empty cells in column B.
Sub CopyFilteredData()
Dim FilterRange As Range
Sheets("Sheet1").Activate
LastRow = Range("A3").End(xlDown).Row
Set FilterRange = Range("A2", Cells(LastRow, "C"))
FilterRange.Select
Selection.AutoFilter field:=2, Criteria1:="<>"
Selection.copy Destination:=Worksheets("Sheet2").Range("A2")
Selection.AutoFilter
End Sub
Hopes it helps
Regards,
Per
"Jim Sablan" skrev i meddelelsen news:(E-Mail Removed)...
>I tried to do a filter and then copy the filtered data from another sheet
>to create a chart. Can you please give me an advice or teach me on how to
>do that?
>
> Any help would be greatly appreciated.
>
> Thanks,
>
> Jim
|