『オートフィルタ』（れいまま）
 こんにちは。
オートフィルタをかけた状態をコピーして
別のシートに貼り付けるコードを考えています。
オートフィルタのシートを開いた状態にしないと作動しないものなのでしょうか？

 表紙のシートを見ている状態で
(Sheet1)をオートフィルタにかけコピーして(sheet2)へ貼り付けようとしています。
が、オートフィルタのコードで黄色くなってしましました。
Sub Macro1()
    With Worksheets("1")
        With .Columns("A:O")
        .AutoFilter Field:=10, Criteria1:="3"
        .AutoFilter Field:=11, Criteria1:="2"
        .Copy
        End With
    End With
With Sheets("2").Paste
    Application.CutCopyMode = False
End With
End Sub

----
 >With .Columns("A:O")
 ここをアバウトにしないで
 Range("A3")
 とか明確に指定すれば良いと思います。
 BJ




----
 BJさん　ありがとうございます。
やってみますね。(れいまま）
----
 出来ました。ありがとうございます。（れいまま）