エクセル VBA find は別シートを検索できますでしょうか?
こんばんわ。マクロ初心者です。
皆さんいつも親切なご回答ありがとうございます。
早速ですが質問内容を記入いたします。
・ブックA を開いています。
選択している行のC列セルの値を検索キーワードにして、
ブックB 内を検索し、検索結果のセルの3つ左のセルの値を、
ブックA で選択していたセルの同じ行のO列(15列目)に入力したいです。
※ブックBをアクティベートする事無く行えますでしょうか?
(他の処理と組合わせて行い、回数も多いので、
ブックA⇔ブックB アクティベートの往復は避けたいです。)
下のようなマクロを作成してみましたがうまくいきません。
どうかご指導よろしくお願いいたします。
---------------------------------------------------------------
dim 検索品目 as string
dim fcell as object
dim i as integer
i = Selection.Row
'選択行の3列目セルの値を変数『検索品目』に格納
検索品目 = Cells(i, 3).Value
'オブジェクト変数『fcell』に検索したセルを格納
Set fcell = Cells.Find(What:=検索品目, After:=Workbooks("ブックB.xls").Worksheets("sheet1").Range("G2"), LookAt:=xlWhole, searchorder:=xlByColumns)
'検索したセルの3行左のセルの値を変数『オーダ番号』に格納
オーダ番号 = fcell.Offset(, -3).Value
'ブック A の選択行の15列(O列)にデータ入力
Cells(i, 15) = オーダ番号
お礼
DimをPublicに変えたら出来ました! ありがとうございます。