Excel VBA質問箱 IV

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

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


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

3558 / 76735

←次へ　｜　前へ→


	【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
ご教授いただきたく、お願いいたします。

1 hits

▼

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