エクセルVBAで別のシートの値をコピーして指定のセルに貼り付ける方法

質問

• エクセルVBAを使用して、別のシートの条件に沿った数値をコピーして指定のセルに貼り付ける方法について教えてください。
• 作業しているシートのボタンを押すと、別の場所にあるブックを開き、そのシート内の特定の条件に沿った数値をコピーして、作業しているシートの指定されたセルに貼り付けるコードについて教えてください。
• エクセルのVBAで、別のシートの特定の条件に沿った数値をコピーして、作業しているシートの指定されたセルに貼り付ける方法について教えてください。

回答No.2

imogasi

質問者の記述振りを見ていると、こういうイベントを使う課題や、ブックを別にして処理する方法をとるのは、まだ早すぎると思う。
まして質問者以外のものに、使わせようとするなら、もっと経験を積む必要があるだろう。
小生は、小手先調べでやってみたが、うまく伝わるか心配。
うまく行かない時は、この回答は無視してください。
（１）ブックは２つ作る
　　A.検索のためのボタンのあるブック。シートはSheet1とする。
　　　"C:\Users\XXX\Documents\日付で検索.xlsm"　XXXXはユーザー名。
　　B。検索されるデータがあるブック。シートはSheet1とする。
　　　"C:\Users\XXX\Documents\データ例０９２７.xlsx"
（２）AのSheet1に、検索の引き金を引く、ボタン的なものを作る。
　　　下記のように、色々考えられる。
　　　a.図形（四角形）でマクロを登録
　　　開発ー挿入で作るところの
　　　b.コントトールのボタンなど
　c.ActiveXコントロールのボタンなど
　　　ユーザー・フォームを設けてやる
　　　d.ユーザーフォームを設けて、その上にボタンを作る
　　本回答では、aを使った。
　　この図形をクリックした、クリックイベントで検索を実行する。
　　登録するマクロ（処理内容）は、標準モジュールのTest02の名のもとに記述。
（３）Aブックを開くと、最初にAutoOpenでBブックを開く。
　　　Aブックを閉じると、Bブックも閉じて終わる。
＝＝＝＝
データ例
AブックのSheet1
　　F1とF2セルに　日付と区分（小生が命名しただけ）を入力しておく
2019/1/11
い
これは検索する直前までに入力しておく。
この範囲チェックは省略している。
上述の、クリックする図形（四角形）を１つ、Sheet1に張り付けておく。
＝＝＝＝
検索されるデータの例（小生が一部勝手に作成したもの）
BブックのSheet1　B4:I9
日付／区分 2019/1/9 2019/2/13 2019/1/11 2019/1/12 2019/1/13 2019/1/14 2019/1/15
あ 11 21 31 41 51 61 71
い 12 22 32 42 52 62 72
う 13 23 33 43 53 63 73
え 14 24 34 44 54 64 74
お 15 25 35 45 55 65 75
＝＝＝＝＝＝＝
以下はVBAコード関連のこと。
＝＝＝＝
AブックのModule1　に
Sub test02()
MsgBox "検索します"
dt = ActiveWorkbook.Sheets("Sheet1").Range("F1")
MsgBox "日付 " & dt
kbn = ActiveWorkbook.Sheets("Sheet1").Range("F2")
MsgBox "区分　" & kbn
'---
Set wb = Workbooks.Open("C:\Users\惇\Documents\データ例０９２７.xlsx")
Set ws = wb.Worksheets("Sheet1")
'Set wb = Workbooks("C:\Users\惇\Documents\データ例０９２７.xlsx")
'y = Application.WorksheetFunction.Match(dt, ws.Range("C4:I4"), 0)
y = ws.Range("C14:I4").Find(dt).Column
'MsgBox y
x = ws.Range("B5:B9").Find(kbn).Row
'MsgBox x
MsgBox "結果 " & ws.Cells(x, y)
End Sub
＝＝＝＝
自動でデータのあるブックを開いたり、閉めたりするために、
AブックのThisworkbook　に
Private Sub Workbook_Open()
Workbooks.Open "C:\Users\惇\Documents\データ例０９２７.xlsx"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("データ例０９２７.xlsx").Close Savechanges:=True
End Sub
＝＝＝＝
BブックにはVBAコード無し。
＝＝＝＝
利用
AブックのSheet1の
F1に検索する日付
F２に検索する区分
を入力しておく
ー
AブックのSheet1の四角形をクリック
ーー
結果
この回答では、とりあえず、画面表示のみ。
MsgBox "結果 " & ws.Cells(x, y)の箇所。
実際はこの値が後処理で、何かに使われるのだろう。質問には記述無し？

お礼

丁寧にご回答ありがとうございます。

仰るとおり経験不足なので、基礎から学ぼうと思います。