原因が分かりません。宜しくお願いします。
エクセルVBAで、フィルターを掛けたシートを別シートへコピーしています。
問題なく出来ていたルーチンでしたが、他の作業の影響か、
気がついたらコピー出来なくなっていました。
他のシートでも同じ方法でコピーを行っていますが、問題ありません。
問題のコーディングは以下のとおりです。
Worksheets("work2").Unprotect
Worksheets("work2").Range("A:Z").ClearContents
Worksheets("コピー元").Range("A5").AutoFilter Field:=6, Criteria1:=フィルタ請求年1, Operator:=xlOr, Criteria2:=フィルタ請求年2, VISIBLEDROPDOWN:=True
Worksheets("コピー元").Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("work2").Range("A1")
Worksheets("work2").Protect
Worksheets("コピー元").Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("work2").Range("A1")
の箇所では、エラーメッセージもでませんが、コピーもされていないことを確認しています。
どのような原因が考えられるでしょうか?
または、どのような方法で原因追求が出来るでしょうか?
ご回答お待ちしています。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
上記、コーディングであれば、該当するデータないのではないかと思われます。
オートフィルターでselectしたデータをコピーするのであれば、
1.A5 でなく、A5:F99 とデータの範囲を指定すべきかと思います。
2.フィールドが6を指定しているので、A列から数えてF列にある"フィルタ請求年1"と"フィルタ請求年2"を
selectするのではないでしょうか。
よって、下記のように訂正すれば出来るのではないかと思われます。
Worksheets("コピー元").Range("A5:F99").AutoFilter Field:=6, Criteria1:="フィルタ請求年1", Operator:=xlOr, Criteria2:="フィルタ請求年2", VISIBLEDROPDOWN:=True
書かれている範囲で思い付くのは以上です。
ご回答ありがとうございました。
原因は分かりませんでしたが、
コピー元の範囲指定でコピーを行う事で解決致しました。
<変更後ルーチン>
Worksheets("コピー元").Range("A5").AutoFilter Field:=6, Criteria1:=フィルタ請求年1, Operator:=xlOr, Criteria2:=フィルタ請求年2, VISIBLEDROPDOWN:=True
Worksheets("コピー先").Unprotect
Worksheets("コピー元").Range("A1:Z" & Worksheets("コピー元").Range("A65536").End(xlUp).Row).Copy
Sheets("コピー先").Range("A1").PasteSpecial
Worksheets("コピー先").Paste
これまで、質問のルーチンで問題なかった点と、
コピー出来る時と出来ない時があるという現象に戸惑ったことで、
分かりにくい質問をしてしまい申し訳ありませんでした。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Excel(エクセル) 【マクロ】PasteSpecialメソッドにて、コードが動かない理由が分かりません 2 2023/08/15 20:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipseのコード入力時の、行コ...
-
Access VBAから使用したExcelプ...
-
arduino unoからデータを読み出...
-
エクセルVBA 実行時エラー'...
-
EXCEL VBAで複数行のコピー(...
-
DataTableに入っているデータを...
-
マウントしたディスクにcpで、...
-
C++言語で、構造体のコピーは可...
-
Ctrl + Cなど複数の入力キー...
-
ACCESS VBAでExcelを開き行をコ...
-
【UWSC】WEBページ内コピーした...
-
エクセルのマクロについて教え...
-
文字列の切り出し
-
Listviewに表示された文字のコ...
-
ブラウザからコピペすると文字...
-
OutlookVBAでコピーした文字を...
-
ASP.net でコントロールをコピー
-
Excel VBA キーワードから列を...
-
ROBOCOPYをスペース付きのフォ...
-
VBA 最終行・最終列コピー範囲...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
エクセルのマクロについて教え...
-
DataTableに入っているデータを...
-
Eclipseのコード入力時の、行コ...
-
C++言語で、構造体のコピーは可...
-
プログラムについて。
-
エクセルVBA 実行時エラー'...
-
Ctrl + Cなど複数の入力キー...
-
マウントしたディスクにcpで、...
-
Activesheet.Pasteで困っています
-
一行おきに貼り付ける 可能でし...
-
Listviewに表示された文字のコ...
-
文字列の切り出し
-
arduino unoからデータを読み出...
-
シートに張り付けたボタンがシ...
-
ブラウザからコピペすると文字...
-
ROBOCOPYをスペース付きのフォ...
-
バッチで当日日付で作成される...
-
jakarta poiを使用し、EXCELの...
-
ACCESS VBAでExcelを開き行をコ...
おすすめ情報