エクセルで上書き保存がクリックされたらデ－タをコピーしたい

質問

よろしくお願いします。エクセルで、上書き保存のアイコンがクリックされたら
または、「？？？への変更を保存しますか」に対して「はい」を選択した時に
開いているブックのシートＡのセルＣ３のデ－タをシートＢのＤ５にコピーする
為には、多分ＶＢＡを使わないとだめでしょうが、どんな風に書けばいいのでしょうか。またもしもＶＢＡを使わずにできる方法があれば教えて下さい。
なお、私はベーシックの経験はありますが、ＶＢＡはさっぱり解りません。
ビジュアルベーシックエディターを開いて、ＶＢＡマクロをそっくりコピー
したことはあります。素人に教えるのは大変面倒かとは思いますが、よろしく
ご指導お願いします。

回答No.1

gonta_goma · ベストアンサー

ビジュアルベーシックエディターを開いて、ThisWorkBookに以下のマクロをコピーで良いと思います。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　Worksheets("A").Range("C3").Copy Worksheets("B").Range("D5")
End Sub

お礼

gonta gomaさん教えていただきましてありがとうございます。
明日の朝までに作りたかったのですが、うっかり「暇なときに・・・」に
なってしまって心配してました。
これでどうやら間に合いそうでほっとしました。
どうもありがとうございました。