|
こんにちは。
検索について教えてください!
フォルダの中にファイルが現在5つあります。
ファイル名は製造番号11、製造番号22・・・製造番号55とあり、
それぞれ販売期間が違います。
たとえば製造番号11は4月〜6月、製造番号22は5〜7月・・です。
またその月ごとに売上が書かれていて
製造番号11の詳細シート
A B C D E F・・・・ M
製造番号11 4 月 5 月 6 月
東京本店 15000 12000 13000
大阪支店 13000 15000 12000
製造番号22の詳細シート
A B C D E F・・・・M
製造番号22 5 月 6 月 7月
東京本店 15000 11000 13000
大阪支店 14000 15000 11000
この情報を別のフォルダに入っている"予算"ブックの"売上"シートに下記のように合計を転記したいと思っております。
A B C D E F G H I
製造番号 4月 5月 6月 7月 8月 9月 10月 11月・・・
11 28000 27000 25000
22 29000 26000 24000
33
44
55
Sub 検索()
Dim status As Range
Set status = Workbooks("詳細表").Worksheets("詳細").Range("B2:M2"). _
Find(what:="4月", lookat:=xlWhole)
If Not status Is Nothing Then
status.Select
Workbooks("予算").Worksheets("売上").Range("B2") = _
(Selection.Offset(1).Value + Selection.Offset(2).Value)
Else
Worksheets("売上").Range("B2") = "0"
End If
End Sub
"詳細"シートB2:M2の行から4月を探し出し、4月が見つかればその下2つの値を足した合計を、予算ブックの売上シート"B2"に転記させ、4月がなければ0の値を入れようと
コードを書いてみましたが、データが見つかりませんというエラーが出ます。
同じブック内だと作動したのですが、ブックが違うとだめなんでしょうか?
もしくはfindではなく何か違う方法はございますでしょうか?
ご助言よろしくお願いします。
|
|