エクセルのマクロについて

質問

マクロのコードについて教えていただきたいと思います。
sheet1のA2に［＝today()］の数式があって、その下の表がであります。表にもオートサムなどの関数 B2～H 70まであります。
sheet2の 1行目が日付欄で、この日付とsheet1のA2が一致した時にB2～H 70の表の数値だけを転記することは可能でしょうか。
わかりにくくて申し訳ありませんがコードがわかれば助かります。

回答No.1

keithin

んーと？
あなたは
「シート１のＡ２に=TODAY()があり、Ｂ２：Ｈ７０に関数を使った表がある
　シート２のＡ１に日付があって、その日付がシート１のＡ２と等しかったら
　シート１のＢ２：Ｈ７０の値をシート２のＢ２：Ｈ７０に転記したい」
と言いたかったのでしょうか。

sub macro1()
　if worksheets("Sheet2").range("A1").value = worksheets("Sheet1").range("A2").value then
　worksheets("Sheet2").range("B2:H70").value = worksheets("Sheet1").range("B2:H70").value
　end if
end sub

「どこから」「どこに」何をしたいのか、マクロはあなた以上のとことん「教えてクン」なので、キチンと情報を出さないと何もしてくれません。
回答で寄せられたそれぞれのマクロを実際にあなたのエクセルで動作させてみて、意図と違う動作をした時は、「どのセルを見て」「どこのセルに何をしたい」のか、目に見えるように説明を書きなおして改めてご相談を投稿するようにしてみて下さい。