エクセル マクロについて

質問

Book1で入力データ作成し、保存次第、添付画像の黄色部分に、自動転記する様マクロを組みたいと考えています。

現在、勉強中で、簡単な下記の様なマクロはできました。
これを応用して実践してみたいのですが、何を加えればよいのか、アドバイス頂けたら幸いです。

---------
Sub Macro1()
'
' Macro1 Macro
'

'
a = ActiveCell.Value
Range("A2").Select
ChDir "C:\Users\takana\Desktop"
Workbooks.Open Filename:="C:\Users\takana\Desktop\転記.xlsx"
Sheets("Sheet2").Select
ActiveCell.FormulaR1C1 = ""
Range("B2").Select
ActiveCell.FormulaR1C1 = a
Range("B3").Select
End Sub

-----------

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

hallo-2007 · ベストアンサー

>Book1で入力データ作成し、保存次第、添付画像の黄色部分に、自動転記する様マクロを組みたいと考えています。
マクロの流れですが
Book1にボタンを配置
ボタンを押すと
Book1を上書き保存
転記.xlsxを開いて
Book1の指定したセルの値を
転記.xlsxの指定したセルへ入れる
転記.xlsxを上書き保存する。

こういった流れになると思いますが、どうでしょか。

Sub Macro1()
Workbooks.Open Filename:="C:\Users\takana\Desktop\転記.xlsx"
ActiveWorkbook.Sheets("転記するシート名").Range("転記するセル").vlue=ThisWorkbook.Sheet("値が入っているシート名").Range("値が入っているセル).Value

ActiveWorkbook.Save
ActiveWorkbook.Close
ThisWorkbook.Save
End Sub