Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19902 / 76732 ←次へ | 前へ→

【62256】Re:AdvancedFilterがうまくいきません
発言  kanabun  - 09/7/4(土) 15:53 -

引用なし
パスワード
   ▼hiro さん:
横から失礼します

>Sub 日付抽出1()
>Worksheets("作業明細").Range("A3").CurrentRegion.Columns(3). _
>AdvancedFilter action:=xlFilterCopy, _
>criteriarange:=Empty, _
>copytorange:=Worksheets("日付集計1").Range("A3"), _
>Unique:=True
>End Sub

>日付集計1シートは空の状態で実行しています。実行するとエラーにはなりませんが、日付集計1シートには何も表示されません。

検索条件がなければ
>criteriarange:=Empty, _
の行は無くてもよいと思いますが、
あっても、検索範囲が正しければちゃんと抽出されるんですね。

いちど、フィルタをかける前に
MsgBox Worksheets("作業明細").Range("A3").CurrentRegion.Columns(3). _
    Address
のデバッグ行をマクロの最初に挿入して、
3行目が先頭行になっているか、とかを、確認されてみてはいかがでしょうか?
たとえば、[A1:A2]が結合されていたり、[A2]セルが空白でなく スペースが
入っていたりすると、
> .Range("A3").CurrentRegion
は、シートの1行目からの表範囲になってしまうので、

> 実行するとエラーにはなりませんが、
> 日付集計1シートには何も表示されません。

状態になります。こちらでも確認できました。
もし CurrentRegion.Columns(3) で範囲を正しく特定できないときは、
  With Worksheets("作業明細")
    .Range("C3", .Cells(.Rows.Count,3).End(xlUp)).AdvancedFilter ...

のように、C列の見出しセルからデータ最終セルまでとかで、範囲を特定
するようにします。

1,096 hits

【62250】AdvancedFilterがうまくいきません hiro 09/7/4(土) 3:17 質問
【62251】Re:AdvancedFilterがうまくいきません かみちゃん 09/7/4(土) 8:13 発言
【62252】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 9:34 発言
【62254】Re:AdvancedFilterがうまくいきません かみちゃん 09/7/4(土) 13:47 発言
【62258】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 19:09 お礼
【62256】Re:AdvancedFilterがうまくいきません kanabun 09/7/4(土) 15:53 発言
【62259】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 19:38 お礼
【62257】Re:AdvancedFilterがうまくいきません kanabun 09/7/4(土) 16:50 発言
【62260】Re:AdvancedFilterがうまくいきません hiro 09/7/4(土) 20:25 お礼

19902 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free