VBAプログラミング方法について

VBAプログラミング方法について分からない箇所がありご教示頂けないでしょうか。

下記仕様でVBAプログラムを作成しています。
<仕様>
ブックA , ブックB , ブックCがあります。
ブックAのA1セル値と
ブックBのA1セル値を
比較して、同じならば
ブックCのA1セルにOKと記載したいと考えています。

このプログラムを作成する際に、If文を使用して各ブックをActivateにしながらプログラムを構成していく手法を試みましたがエラーが出てしまいました。

もしよろければ上記使用を満たすVBAプログラムをご教示頂けないでしょうか。

お手数ですが宜しくお願い致します。

No.5 回答者： t_fumiaki 回答日時： 2017/09/27 02:35

If Workbooks("ブック1.xls").Worksheets("Sheet1").Range("A1").Value = Workbooks("ブック2.xls").Worksheets("Sheet1").Range("A1").Value Then

Workbooks("ブック3.xls").Worksheets("Sheet1").Range("A1").Value = "OK"
End If

この回答へのお礼

おっしゃる通りマクロ組むと想定通りの動作になりました。
初歩的な質問に対応して下さりありがとうございました。

お礼日時：2017/09/27 22:43

No.4 回答者： GooUserラック 回答日時： 2017/09/27 02:14

No.3 の訂正です。

「ブックC（）で」は「ブックC（BookC.xlsm）で」に修正してください。
申し訳ございませんでした。

No.3 回答者： GooUserラック 回答日時： 2017/09/27 02:12

ブックA （BookA.xlsx）, ブックB（BookB.xlsx） , ブックC（）で、ブックＣにコードを書き込んだとしたら以下のような感じになると思います。

If Workbooks("BookA.xlsx").Worksheets("Sheet1").Range("A1").Value = Workbooks("BookB.xlsx").Worksheets("Sheet1").Range("A1").Value Then ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = "OK"

※ シート名も適当に合わせてください。

No.2 回答者： GooUserラック 回答日時： 2017/09/27 01:41

もう一つ、

・シートはそれぞれ一枚だけ、または、アクティブになっているシートと考えても良いのでしょうか？

No.1 回答者： GooUserラック 回答日時： 2017/09/27 01:39

・全てのブックは開いているとして考えて良いのでしょうか？

・コードはどのブックに書き込む予定ですか？