Excel VBA質問箱 IV

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

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


51697 / 76732 ←次へ | 前へ→

【29897】オートフィルタ
質問  ハッチ  - 05/10/15(土) 21:06 -

引用なし
パスワード
   こんばんわ。
すみませんが、教えてください。

オートフィルタで抽出したデータを他のブックに貼り付けるマクロを考えています。抽出条件は指定期間(例2005/7/1〜2005/7/31)にあうものです。

 名前  国語  数学  社会  理科
 A    7/1   7/6   7/1   7/3
 B    7/3  6/30   7/5  
 C         7/2  6/30   7/1
 D    7/5   7/2   7/3   7/1
 E          6/27   7/1   7/5
 
国語(B列)の指定期間を抽出して貼り付けるマクロはできたのですが、国語で空白セルのところがあった時に、空白セルの行のみ次の数学(C列)にうつって指定期間の抽出、また条件にあわなければ次の列へ・・・という動きをし、結果を他のブックに貼り付けたいのですがどの様に作ればいいのかで悩んでいます。

今の状態です。
Workbooks.Open Filename:=元データ
  Sheets(wsn).Select
  Range("A1").Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=2, Criteria1:=開始年月日, Operator:=xlAnd, _
    Criteria2:=終了年月日
  Selection.CurrentRegion.Select
  Selection.Copy

これをどう変えたらいいのか、教えていただきたいです。

宜しくお願いします。

0 hits

【29897】オートフィルタ ハッチ 05/10/15(土) 21:06 質問
【29899】Re:オートフィルタ ponpon 05/10/15(土) 21:32 発言
【29901】Re:オートフィルタ とまと 05/10/15(土) 23:32 発言
【29902】Re:オートフィルタ とまと 05/10/15(土) 23:33 発言
【29903】Re:オートフィルタ ponpon 05/10/16(日) 0:12 発言
【29905】Re:オートフィルタ Hirofumi 05/10/16(日) 0:30 回答
【29906】Re:オートフィルタ とまと 05/10/16(日) 0:38 発言
【29907】Re:オートフィルタ Hirofumi 05/10/16(日) 9:46 回答
【29910】Re:オートフィルタ yasu 05/10/16(日) 10:50 発言
【29916】Re:オートフィルタ ハッチ 05/10/16(日) 14:12 質問
【29919】Re:オートフィルタ Hirofumi 05/10/16(日) 15:05 回答
【29997】Re:オートフィルタ ハッチ 05/10/17(月) 21:14 お礼
【29928】Re:オートフィルタ とまと 05/10/16(日) 18:22 発言
【29929】Re:オートフィルタ kobasan 05/10/16(日) 18:56 発言
【29931】Re:オートフィルタ とまと 05/10/16(日) 20:58 回答

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