他シートの指定項番の行にコピーするマクロを作りたい

現在Sheet1のA２１からQ２１の１７個のセルにデータが入っています。（これは同じシート内の
データが飛ぶようになっているので厳密には計算式が入っています。なぜならその個々のデータのセルが点在しているためです）また、E１４に項番を入力するセルがあります。
そしてSheet2のA列に項番が振られており、B～R列のA行に１７個の項目名が入っています。
このエクセルで、E１４に項番を入れて実行すれば、Sheet1のA２１からQ２１のデータを
Sheet２の先と同じ項番の行のB～R列にコピーするマクロを作りたいのですが
うまくいきません。どのようなコード書けばよいのでしょうか；

No.1 ベストアンサー 回答者： keithin 回答日時： 2012/05/26 13:30

具体的なアナタのエクセルの姿にキチンと正確に合った姿で、マクロは作らないと意味がありません。

それから。項番を入力する「Ｅ１４」には、何か計算式で現れるんじゃなく、実際に手で記入する事が前提です。


たとえば。
「項番」が単純な１，２，３…で、その番号の１，２，３がシート２の２行目、３行目、４行目…に対応しているなら。

手順：
シート１のシート名タブで右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　if target.address <> "$E$14" then exit sub
　if target = "" then exit sub
　worksheets("Sheet2").range("B1:R1").offset(range("E14").value).value = range("A21:Q21").value
end sub

１，２，３番の対応するシート２の行位置がずれてるなら、それに見合った行に転記するようにご自分でマクロを修正してください。



たとえば。
「項番」が何かの言葉？で、シート２のＡ列から該当の値をわざわざ検索して探さなきゃならないようなことなら（ついでに言えば、該当する項番が実際にはシート２のＡ列に記入されていない場合といった事まで考えなきゃならないなら）

手順：
シート１のシート名タブで右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　if target.address <> "$E$14" then exit sub
　if target = "" then exit sub
　set h = worksheets("Sheet2").range("A:A").find(what:=range("E14").value, lookin:=xlvalues, lookat:=xlwhole)
　if h is nothing then
　　msgbox "NOT FOUND"
　　exit sub
　end if
　h.resize(1, 17).value = range("A21:Q21").value
end sub

言わずもがなですがこの手のマクロはシートに１つしか登録できないので、別のマクロを試すときはマクロを消して書き換えます。

この回答へのお礼

keithin様、ご回答ありがとうございます。完璧で非の打ち所のないご回答に
びっくりしました。確かに項番が１から連続で割り振られているのか、そもそも
ない番号も存在するのかといった色々なことを考える必要がありますよね。
前提条件が全然足りない質問で大変申し訳ございませんでした。
ありがとうございました。

お礼日時：2012/05/26 13:55