こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VBA セルの値と同じ、別ブックのシートに貼付け

いつもお世話になります。

シートをコピーし、閉じたブックのシートに貼付けしたいのですが、詳細は次の通りです。

ブックA…マクロがあり、Sheet1のA1プルボタンから店舗名を選択すると、その店舗の在庫が表示されます。
ブックB…シートが100枚ほどあり、シート名が各店舗名になっています。

ブックAを開き、A1から店舗を選択し、在庫数を手入力で修正し、マクロボタンを押したら、ブックB(閉じた)の同じシート名に、値で貼付ける

ブックAは上書きしないで閉じる

決算時期で困っています。よろしくお願いします。

投稿日時 - 2012-03-21 19:10:50

QNo.7375691

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

質問内容がよく理解できませんので、
次のように解して答えます。
<質問内容>
ブックA…マクロがあり、Sheet1のA1プルボタンから店舗名を選択する→A1の値=店舗名
在庫数を手入力で修正し→セルA2~セルA10に新データが入力されている。
ブックBのPath=C:\AAA\BBB\ZZZ.xls
ブックBのセルB1~セルJ1がブックAのセルA2~セルA10に対応している。
ブックAは上書きしないで閉じる→ユーザーの操作に委ねる。
<マクロ>
Dim AA,BB
AA=Range("A1").Value
BB=ActiveWorkbook.Name
Workbooks.Open Filename:= "C:\AAA\BBB\ZZZ.xls"
Sheets(AA).Select
Range("B1")=Workbooks(BB).Sheets(Sheet1).Range("A2").Value
Range("C1")=Workbooks(BB).Sheets(Sheet1).Range("A3").Value
・・・
Range("J1")=Workbooks(BB).Sheets(Sheet1).Range("A10").Value
ActiveWorkbook.Save
ActiveWorkbook.Close False

投稿日時 - 2012-03-22 09:50:15

補足

説明不足で申し訳ございません。補足させていただきます。

A1の値=店舗名 です。

ブックAのSheet1のA列に商品名、B列に在庫数、C列が空欄でそこに手入力で在庫数を入力します。
選択する店舗によって、在庫アイテム数が異なり、A~C列の値がある最下行もことなります。

したがって、Sheet1をシートごとコピーし、ブックBの店舗名シート(A1の値=店舗名)にまるまる値で貼付けをしたいと考えています。

投稿日時 - 2012-03-22 12:09:14

お礼

YON56さん

ご教示いただきありがとうございました。
なんとかできました。

投稿日時 - 2012-03-23 17:59:26

あなたにオススメの質問