違うシートにコピー＆ペースト

質問

EXCEL2000を使っているのですが、以下のような問題で悩んでいます。
sheet1のF7セルにある値をsheet2のC1セルにコピーしたくて、先ずマクロの記録で行ったところ以下のようなコードが出来ました
Range("F7").Select
Selection.Copy
Sheets("Sheet2").Select
Range("C1").Select
ActiveSheet.Paste
実際出来たマクロの実行をすると問題なく動くのですが、shee1にコマンドボタンを配置してそれに上記のコードを記入すると「Range("C1").Select」の個所で止まってしまいます。
上の問題だけを解決するのでしたら代入式を使って解決できるのですが、実際には上の形を応用したものになるので、コピーしたものを貼り付けるという形式はどうしても取りたいのです。
何か解決方法はあるのでしょうか？宜しくお願いします

回答No.2

kuma3f · ベストアンサー

思われていることと違っていましたらすみませんが、質問内容から推測しますと
コントロールツールボックスのコマンドボタンをSheet1に貼り付けて、記録したマクロコードを貼り付けて実行されていると思うのですが、この場合、Sheet1内にコードを貼り付けて実行しているので、「Range("C1").Select」の部分がSheet1を見ています。
なので、「Sheets("Sheet2").Select」でSheet2をSelectした後、Sheet1のC1をSelectしようとするので止まってしまいます。
これをうまく実行させるには、「Range("C1").Select」のところを「Sheets("Sheet2").Range("C1").Select」にするとよいと思います。
もし修正する手間が面倒でしたら、そのマクロを呼んでくるようにしたら簡単に済むと思います。
（例）
Private Sub CommandButton1_Click()
Call Macro1
End Sub

お礼

言われたとおりやってみたら（「Sheets("Sheet2").Range("C1").Select」）巧くいきました。どうもありがとう御座います。それと、マクロがCALLで呼び出せることも知り、大変役に立ちました。
どうもありがとう御座いました。

回答No.1

jo-zen

コマンドボタンを配置する際、表示→ツールバー→フォームで現れるツールバーで右側上段にある「ボタン」を選択し、シート上のボタンを配置したい場所にマウスアクションすると、マクロの登録という画面がでるので、一覧からマクロの名前を選択してOKをすれば、ボタンが配置されます。ボタンの名は、ボタン１とかいうところをマウスで押して、そのあと左を押したまま引っ張るとはんてんしますので、その状態で好きな名前をキーボードから入力してやれば変更できます。
この方法でボタンを配置しましたか？

お礼

実際にはVBAの一部分の不明点でしたので、ご解答頂いた方法では解決できないものでしたが、今まで知らなかった方法を教えて頂き大変為になりました。何かで使ってみようかと思っております。どうも有難う御座いました。