Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41635 / 76732

←次へ　｜　前へ→


	【40176】"今日の日付"より前後のデータを分けて転記する

XS - 06/7/7(金) 21:23 -


	引用なし

	パスワード

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

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

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

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

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

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

2 hits

▼

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

≪