Excel VBA質問箱 IV

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

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


462 / 73639 ←次へ | 前へ→

【78806】worksheetのコピー貼り付け
質問  のんぼ  - 17/2/4(土) 14:35 -

引用なし
パスワード
    よろしくお願いします。

 マスターデータをVBAファイルに取り込みます。項目ごとに最大4種類のシート(シート名、000,001,002,003)に振り分けられデーター集計します。データーによっては2種類や3種類になる場合があります。各シートに集計されました納品金額、返品金額を同じファイルの別シート(請求書鑑)貼り付けたいと思いまして
下記コードを作成しましたがうまくいきません。(000シートの納品金額を貼り付けるコードを書いたつもりです)
 sub 作成 ()
   dim ws
   dim rng
   for ws=1 to worksheets.count
   set rng=cells.find(what:="納品金額",lookin:=xlvalues,lookat:=xlwhole)
   if not rng is nothing then
   if activeworkbook.worksheets(ws).name="000"then
   worksheets(ws).range("h" & rng.row).copy
   worksheets("請求書鑑").select
   range("j7").pastespecial paste:=xlpasteall
   end if
   end if
   next
  end sub
ご教授いただきたく、お願いいたします。

91 hits

【78806】worksheetのコピー貼り付け のんぼ 17/2/4(土) 14:35 質問[未読]
【78807】Re:worksheetのコピー貼り付け β 17/2/4(土) 16:09 発言[未読]
【78808】Re:worksheetのコピー貼り付け のんぼ 17/2/5(日) 7:58 質問[未読]
【78809】Re:worksheetのコピー貼り付け γ 17/2/5(日) 10:09 発言[未読]
【78810】Re:worksheetのコピー貼り付け γ 17/2/5(日) 10:56 発言[未読]
【78811】Re:worksheetのコピー貼り付け のんぼ 17/2/5(日) 13:34 お礼[未読]
【78840】Re:worksheetのコピー貼り付け γ 17/2/9(木) 22:23 発言[未読]
【78851】Re:worksheetのコピー貼り付け のんぼ 17/2/11(土) 15:24 お礼[未読]
【78859】Re:worksheetのコピー貼り付け γ 17/2/12(日) 9:59 発言[未読]
【78877】Re:worksheetのコピー貼り付け のんぼ 17/2/18(土) 7:53 お礼[未読]

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