マクロ 修正 （初心者です）

質問

Option Explicit
Private lastRow As Long
Private Index As Integer
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub あいまいボタン_Click()
Dim last As Long
If 検索名前テキストボックス.Text = "" Then
MsgBox "あいまい抽出する名前を入力してください。"
Exit Sub
End If

last = Range("A500").End(xlUp).Row
Range("A2:D" & last).AutoFilter Field:=2, Criteria1:="=*" & 検索名前テキストボックス.Text & "*"
End Sub
Private Sub UserForm_Activate()
Dim i As Long
lastRow = Worksheets("顧客情報").Cells(Rows.Count, 1).End(xlUp).Row + 1
If lastRow <= 3 Then
Exit Sub
End If
For i = 4 To lastRow
名前リストボックス.AddItem Cells(i, 2)
Next
End Sub
Private Sub 検索ボタン_Click()
Dim searchName As String
searchName = 検索名前テキストボックス.Text
If searchName = "" Then
MsgBox "検索する名前を入力してください。"
Else
Dim i As Long
Dim no As Long
For i = 0 To 名前リストボックス.ListCount - 1
If 名前リストボックス.List(i) = searchName Then
no = i
名前リストボックス.ListIndex = no
Exit For
ElseIf i >= 名前リストボックス.ListCount - 1 Then
MsgBox "該当なし。"
Exit For
End If
Next
Index = no + 3
Rows(Index).Select
End If
End Sub

B列に名前を入力しています
B3から検索してくれるマクロを作成しました（インターネット見ながら）
別の検索も作りたくてどこをいじればいいのかわからず書き込みました
G3列（住所を検索）から下側を検索したいのですがどこをいじればいいでしょうか？

回答No.1

f272 · ベストアンサー

(1)
Range("A2:D" & last).AutoFilter Field:=2, Criteria1:="=*" & 検索名前テキストボックス.Text & "*"
ここでField:=2にしているのでB列をAutoFilterで絞り込んでいます。G列にしたいのならばField:=7にしましょう。
(2)
名前リストボックス.AddItem Cells(i, 2)
ここでCells(i, 2)にしているのでB列の項目を名前リストボックスに追加しています。G列にしたいのならばCells(i, 7)にしましょう。

お礼

助かりました
ありがとうございます