マクロでVlookupを使って探し出した値をコピーして別シートに貼り付ける方法

マクロ初心者のため、ネットで検索しながらいろいろ試行錯誤して
マクロを組んでみてはいるものの全くマクロが実行されずに３日が終わろうとしています。
どなたかお助けください！


前提としては
『まとめ』というシートと『チェック結果』というシートがあります。
『チェック結果』のシートのチェック結果の○×はハイパーリンクになっていてクリックすると写真が見れる状況です。


本題としては
『まとめ』のシートのB１の『場所入力欄』のセルに場所（例えば「大阪」）を入力してマクロを起動させると
『チェック結果』のシートの２列目の大阪を探して、チェック１からチェック４までの○×の結果を
『まとめ』のシートのC2のセルからC５のセルまで、ハイパーリンクを活かした状態で貼り付けてくれるようにするマクロはどのようにすればいいでしょうか？


自分としてはVlookup、該当の値をコピーする、貼り付ける 連続で繰り返すといった
マクロを組み合わせるのかなと思い、それぞれのマクロのつなぎ方だったり、
定義付けだったりを見よう見まねでやっているもののまったくマクロが実行されません。。

何卒よろしくお願い致します。

No.1 ベストアンサー 回答者： tom04 回答日時： 2018/01/12 13:45

こんにちは！

一例です。標準モジュールにしてください。

Sub Sample1()
Dim c As Range, wS As Worksheet
Set wS = Worksheets("チェック結果")
With Worksheets("まとめ")
Set c = wS.Range("J:J").Find(what:=.Range("B1"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
wS.Cells(c.Row, "R").Resize(, 4).Copy
.Range("C2").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Else
MsgBox "該当データなし"
End If
End With
Application.CutCopyMode = False
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

tom04様
ありがとうございます！！！

Set C でまとめて、if not nothingでまとめるなんて考えもつきませんでした。

本当に助かりました。
ありがとうございます。m(_ _)m

お礼日時：2018/01/12 17:37