ユーザーフォームを使った検索について

質問

仕事で使うために、VBAを勉強中ですが、検索の段階でつまずいてしまいました。自分なりに色々やってみたのですが、どうしてもうまくいきません。自分の知識不足が原因なのですが、どこをいじったらよいのかわからないでいます。
　シート"一覧"にA列から整理No、職員番号、職種、氏名・・・・という風に、40列、130行程度データが入ります。　ユーザーフォームに複数のテキストボックスを作り、氏名を入力することで、任意のテキストボックスにその行のデータを返すようにしたいのですが、検索すると、アクティブセルの値が表示されます。
　よろしくお願いします。

Private Sub cmb検索_Click()
Dim frange As Range
Dim frow As Long
If (txt検索氏名 = "") Then
MsgBox "氏名を入力して下さい。", vbExclamation
Exit Sub
End If
Set frange = Worksheets("一覧").Columns(4).Find(what:=txt検索氏名.Text,LookIn:=xlValues, lookat:=xlWhole,searchorder:=xlByRows)
If (frange Is Nothing) Then
MsgBox "入力された氏名が見つかりませんでした。", vbExclamation
Exit Sub
End If
frow = frange.Row
txt検索整理番号.Value = Cells(検索データ行, 1).Value
txt検索職名.Value = Cells(検索データ行, 2).Value
txt検索職員番号.Value = Cells(検索データ行, 3).Value
txt検索氏名.Value = Cells(検索データ行, 4).Value
txt検索フリガナ.Value = Cells(検索データ行, 5).Value
’以下40行程度
End Sub

回答No.1

hana-hana3 · ベストアンサー

＞Cells(検索データ行, 1).Value

？

＞frow = frange.Row

ってなんのため？

Cells(frow , 1).Value
じゃないの？

お礼

Dim　frow As Long　を削って、frow=frange.Rowを、
検索データ行=frange.Row　としたところ、何とか正常に動くようになったようです。ありがとうございました。　本当に単純なことですが、それがわからないのが歯がゆいですね。　今後とも試行錯誤しながら勉強したいと思います。また、わからなくなったときは、質問させていただきます。

補足

早速のご教授ありがとうございます。　"検索データ行"は、サンプルとして使ったコードに　
Dim 検索データ行 As Long
Private Sub cmb検索_Click()
Dim frange As Range
Dim frow As Long
とあったので、それをそのまま書いたものです。