Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41077 / 76736

←次へ　｜　前へ→


	【40743】検索にかけ転記したいのですが。

toy - 06/7/22(土) 1:11 -


	引用なし

	パスワード

こんにちは。
検索について教えてください！

フォルダの中にファイルが現在5つあります｡
ファイル名は製造番号１１、製造番号２２・・・製造番号５５とあり、
それぞれ販売期間が違います。
たとえば製造番号11は４月～６月、製造番号22は５～７月・・です。
またその月ごとに売上が書かれていて

製造番号１１の詳細シート
A　　　　　　　 B　　　　C　　　 D　　　　 E　　F・・・・　M
製造番号11　　　4 月　　　5 月　　6 月　　　　　　　　　　　
東京本店　　　 15000　　12000　　 13000
大阪支店　　　 13000　　15000　　12000

製造番号２２の詳細シート
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
製造番号　４月　　５月　　６月　　　７月　　８月　９月　１０月　１１月・・・
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の行から４月を探し出し、４月が見つかればその下２つの値を足した合計を、予算ブックの売上シート"B2"に転記させ、４月がなければ０の値を入れようと
コードを書いてみましたが、データが見つかりませんというエラーが出ます。
同じブック内だと作動したのですが、ブックが違うとだめなんでしょうか？
もしくはfindではなく何か違う方法はございますでしょうか？
ご助言よろしくお願いします。

0 hits

▼

【40743】検索にかけ転記したいのですが。 toy 06/7/22(土) 1:11

≪