【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】

ExcelのVBA初心者です。
簡単な手作業をマクロで保存し、ボタンに登録できる程度の知識量です。
マクロを用いた検索ボタンを作りたく、ご教示お願い致します。

sheet２に検索用セルを用意し、sheet１のリストから対象セルを検索して選択状態にしたいです。

現在はsheet１のA列に６桁のID番号（先頭０を表示するため文字列）を記録してあります。
そこからsheet２のN1セルを検索用セルとして扱いたいです。
sheet２のN1に６桁のID番号を入力しボタンを押すと、sheet１のA列上を検索して、HITした場合は対象セルを選択状態にする。
HITしなければ何もしない、といったものを目標としております。

検索対象が特定の”名前”であれば類似のVBAをネット上で見つけられたのですが、
検索対象が特定のセルの内容を指定するものが見つかりませんでした。

ご回答の程、よろしくお願い致します。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2022/06/16 16:57

こんにちは

詳細が不明ですけれど、こんな感じでしょうか？

Sub Q12999537()
Dim sText As String, fc As Range
sText = Worksheets("Sheet2").Range("N1").Text
If sText = "" Then Exit Sub

With Worksheets("Sheet1")
Set fc = .Range("A:A").Find(sText, , xlValues, xlWhole)
If fc Is Nothing Then MsgBox "見つかりません": Exit Sub
.Activate
fc.Select
End With
End Sub

この回答へのお礼

迅速なご回答をいただき感謝です。
おかげで求めていた理想のボタンが作れました。
ありがとうございました。

お礼日時：2022/06/16 18:06