[[20080514101849]]　『オートフィルタ』（れいまま）　ページの最後に飛ぶ

『オートフィルタ』（れいまま）

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

 表紙のシートを見ている状態で
(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さん　ありがとうございます。
やってみますね。(れいまま）

 出来ました。ありがとうございます。（れいまま）

コメント返信：

[ 一覧(最新更新順) ]

[[20080514101849]] 『オートフィルタ』（れいまま） ページの最後に飛ぶ

[[20080514101849]]　『オートフィルタ』（れいまま）　ページの最後に飛ぶ