EXCELでデータを抽出してコピペしたいです

質問

指定した日付より、それ以前の誕生日（指定日も含む）の人だけを抽出してコピペしたいのですが
WORKBOOK1のSHEET1（名簿）のH列に生年月日（他の列にもデータあります）
データは、1200件（行）あります。
WORKBOOK2のSHEET1（該当者）名簿と配列は同じです。
A1に指定の日付をいれます。
WORKBOOK1のSHEET1（名簿）より抽出したデータのペースト位置は、A3からです。
VBAで可能でしょうか？

回答No.4

xls88 · ベストアンサー

オートフィルタを使った抽出操作を「マクロの記録」すれば参考になるコードが得られます。

当方、Excel2007で確認していますが
(1)、フィルタモードに設定
(2)、フィルタドロップボタンをクリック
(3)、日付フィルタ
(4)、指定の値に等しい
(5)、オートフィルタオプションダイアログボックスに
(6)、日付入力　「と等しい」
(7)、「OR」
(8)、日付入力　「より前」
(9)、「OK」
(10)、抽出データセル範囲(項目行を含む？)を選択
(11)、Ctrl＋C、で抽出データをコピー
(12)、貼り付け先シートを選択
(13)、貼り付け先セルを選択
(14)、Ctrl＋V、で抽出データを貼り付け

といった操作を「マクロの記録」して、記録されたコードを掲載してみてください。

回答No.3

noname#176215

> できれば、フォームのボタンをクリックすることにより自動処理
> させたいのです。
であれば kokoroneさんの書いている作業を記録マクロにすればいい
です。

回答No.2

higekuman

> VBAで可能でしょうか？

可能です。
頑張ってください。

回答No.1

kokorone

ＶＢＡを使わなくても、
名簿の各列にオートフィルタを設定し、
Ｈ列のオートフィルタのオプション条件に、生年月日のしきい値
を入力し、その日にち以下という設定をすれば、お望みの情報が
抽出されるので、結果を該当者シートにコピペすれば可能なはずです。

補足

早々の回答をありがとう御座います。
できれば、フォームのボタンをクリックすることにより自動処理させたいのです。