Copy and Paste in a Filter

[thewoodington]

Hi guys,

I am filtering to Good, Bad, Maybe. When I filter to Good, I want to copy the contents of O to N. As it is filter I am struggle to figure out the VBA code that will paste just the selected Good cells from O and paste into the relevant cells in N.

Can someone help please?

Thanks

 

[pboltonchina]

Try this that I did with the Macro Recorder, change the ranges to suit

Sub FilterandCopy()

    Columns("N:N").Select
    Selection.AutoFilter
    ActiveSheet.Range("$N$1:$N$18").AutoFilter Field:=1, Criteria1:="Good"
    Range("N1:N17").Select
    Selection.Copy
    Range("O1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub