Excel VBA質問箱 IV

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

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


41635 / 76732 ←次へ | 前へ→

【40176】"今日の日付"より前後のデータを分けて転記する
質問  XS  - 06/7/7(金) 21:23 -

引用なし
パスワード
   こんばんは。
いつも拝見しております。
質問があります。
    A列
1  2006年7月25日
2  2005年12月30日
3  2007年1月31日
4  2006年7月31日
5  2006年6月30日
6  2005年4月30日

シートに上記のような日付が書いてあり、
"今日の日付"を基準に
プロジェクト継続中か完了済に分け、
2つのシートに転記したいと思っております。

Sub 継続完了()
  Worksheets("練習").Range("A1:A6").Selection
  Selection.AutoFilter field:=1, Criteria1:="< 2006年7月7日"
End Sub

これでは7月7日を指定してしまっているのでダメだと思うのですが
"今日の日付"として、ここからコードを変更することができませんでした。

A1は7月7日時点では継続中ですので、
継続中シートに転記させておき
7月26日になると完了済となるため
今度は完了済シートに転記させたいのですが・・・

オートフィルタを使うのは間違っているんでしょうか?
よろしくお願いします。

1 hits

【40176】"今日の日付"より前後のデータを分けて転記する XS 06/7/7(金) 21:23 質問
【40184】Re:"今日の日付"より前後のデ... Ned 06/7/7(金) 23:51 発言
【40186】Re:"今日の日付"より前後のデ... XS 06/7/8(土) 1:01 発言
【40187】Re:"今日の日付"より前後のデ... Ned 06/7/8(土) 1:13 発言
【40188】Re:"今日の日付"より前後のデ... かみちゃん 06/7/8(土) 1:14 発言
【40189】Re:"今日の日付"より前後のデ... Ned 06/7/8(土) 1:26 発言
【40210】Re:"今日の日付"より前後のデ... XS 06/7/9(日) 2:48 お礼

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