指定文字列が該当するA列をアクティブセルにするには

いつもお世話になります。
　OSはwin11 エクセルはoffice365 です。

j1の郵便番号 = A列の郵便番号
一致するA列のセルをアクティイブセル(図参照:赤四角枠)にしたい、

　図参照　赤色
　一致のセルはアクティイブセルにする
　アクティブセルは４段目にする

　　　下記のコードはようやくサイトで見つけたものです。
　　　メッセージボックスで該当の行番が表示されます。

ご指導を仰ぎたいのは一致するセルをアクタィプセルにするには
どんなコードが必要ですか。


Sub Sample1()
Dim SearchRange As Range
Dim ResultRange As Range
Dim KeyItem As String
Set SearchRange = Range("A1:A124524") '検索したいデータ範囲
KeyItem = Cells(1, 10)　　'2310806 = 〒
Set ResultRange = SearchRange.Find(KeyItem, LookAt:=xlWhole)
If ResultRange Is Nothing Then
MsgBox "検索文字列はありませんでした"
Exit Sub
End If
MsgBox ResultRange.Row & "行目" 'このコードで「41522行目」と表示
End Sub

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2022/08/17 13:35

こんにちは。

If ResultRange Is Nothing Then
　　MsgBox "検索文字列はありませんでした"
　　Exit Sub
else
　　ResultRange.Select
End If

とか。

この回答へのお礼

早速のご指導、誠にありリがとうございます。

お陰様でうまくできました。

お礼日時：2022/08/17 14:33

No.3 回答者： KenKen_SP 回答日時： 2022/08/17 14:05

上から4番目の行になる様に、、を見落としました。

Application.Max(f.Row - 3, 1)

なるほど。エレガントな例外処理ですね。

No.2 回答者： fujillin 回答日時： 2022/08/17 13:42

こんにちは

こんな感じのことでしょうか？

Sub Sample()
Dim f
Set f = Columns(1).Find(Cells(1, 10), lookat:=xlWhole)
If f Is Nothing Then MsgBox "見つかりません": Exit Sub
f.Activate
ActiveWindow.ScrollRow = Application.Max(f.Row - 3, 1)
End Sub