
マクロ初心者のため、ネットで検索しながらいろいろ試行錯誤して
マクロを組んでみてはいるものの全くマクロが実行されずに3日が終わろうとしています。
どなたかお助けください!
前提としては
『まとめ』というシートと『チェック結果』というシートがあります。
『チェック結果』のシートのチェック結果の○×はハイパーリンクになっていてクリックすると写真が見れる状況です。
本題としては
『まとめ』のシートのB1の『場所入力欄』のセルに場所(例えば「大阪」)を入力してマクロを起動させると
『チェック結果』のシートの2列目の大阪を探して、チェック1からチェック4までの○×の結果を
『まとめ』のシートのC2のセルからC5のセルまで、ハイパーリンクを活かした状態で貼り付けてくれるようにするマクロはどのようにすればいいでしょうか?
自分としてはVlookup、該当の値をコピーする、貼り付ける 連続で繰り返すといった
マクロを組み合わせるのかなと思い、それぞれのマクロのつなぎ方だったり、
定義付けだったりを見よう見まねでやっているもののまったくマクロが実行されません。。
何卒よろしくお願い致します。

No.1ベストアンサー
- 回答日時:
こんにちは!
一例です。標準モジュールにしてください。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のシートのクリ...
-
Excelで数字を入れたら対応する...
-
「マクロが含まれているファイ...
-
マクロ1があります。 A1のセル...
-
【エクセル】「実行時エラー’10...
-
セルの一部分だけを太字にする方法
-
エクセル シート内の一番下のセ...
-
エクセルで特定の行だけ行削除...
-
エクセルのワークシート(テン...
-
Excel VBAでのWorksheet_Change...
-
「元に戻す」キーが働かない
-
エクセル マクロ 一定時間おき...
-
エクセルファイルを開いた回数...
-
excelVBAの実行時エラー'1004'...
-
エクセル:セル内の文字列の最...
-
エクセル:シート1のセルA1が...
-
excel定数の違いについて。xlAu...
-
EXCELのダイアログシートって、...
-
エクセルVBA プログレスバー表...
-
【エクセル】フリーワード検索...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
エクセルで複数のシートのクリ...
-
マクロ1があります。 A1のセル...
-
Excelのシート上のShapeにイベ...
-
EXCELのダイアログシートって、...
-
エクセルファイルを開いた回数...
-
エクセルで特定の行だけ行削除...
-
【エクセル】フリーワード検索...
-
Excelで数字を入れたら対応する...
-
長い時間かかるマクロが実行中...
-
エクセル シート内の一番下のセ...
-
指定値をマクロで検索&シート移動
-
セルの一部分だけを太字にする方法
-
エクセル:セル内の文字列の最...
-
【エクセル】「実行時エラー’10...
-
Excelでセル内の文字をファイル...
-
前月分を次月シートに繰越でき...
-
複数のテキストデータ(文章)を...
-
シートではなくBOOK間で重複し...
-
エクセルのマクロ実行後にカー...
おすすめ情報