Excel VBA質問箱 IV

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

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


41073 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは。
検索について教えてください!

フォルダの中にファイルが現在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ではなく何か違う方法はございますでしょうか?
ご助言よろしくお願いします。

0 hits

【40743】検索にかけ転記したいのですが。 toy 06/7/22(土) 1:11 質問
【40756】Re:検索にかけ転記したいのですが。 ナイスプログラム 06/7/23(日) 2:20 回答
【40769】Re:検索にかけ転記したいのですが。 toy 06/7/23(日) 16:44 発言
【40771】Re:検索にかけ転記したいのですが。 ナイスプログラム 06/7/23(日) 19:49 回答
【40773】Re:検索にかけ転記したいのですが。 ナイスプログラム 06/7/23(日) 21:27 回答
【40824】Re:検索にかけ転記したいのですが。 toy 06/7/24(月) 19:56 お礼
【40757】Re:検索にかけ転記したいのですが。 kobasan 06/7/23(日) 9:13 発言

41073 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free