データ検索について
条件詳細
・シートは、シートＡ／シートＢ。
・シートＡにユーザーフォームを表示するボタンを置く。
・シートＢに商品データ。
・ユーザーフォームのオブジェクト名は、商品登録。
・ ユーザーフォームにある項目は、商品番号／商品名／重さの3種類。
※テキストボックス
・重さは、3種類（(1)10kg／(2)20kg／(3)100kg）。
・検索ボタンを押すと、検索フォームが表示される。
上記条件の下、ユーザーフォームに検索したデータを表示させたいのですが、
私のコードだと、デバックが出てしまい、うまく機能しません。
どのように追加または改造すれば、機能するのか
ご教授願います。
私のコードは下記の通りです。
Private Sub cmd検索_Click()
Dim SerchKey As String
Dim SerchArea As Range
lRow = Sheets("商品データ").Cells(65536, "A").End(xlUp).Row + 1
SearchKey = Application.InputBox( _
Prompt:="商品コードを入力して下さい。", Type:=2)
If SearchKey = "" Or SearchKey = "False" Then
Exit Sub
End If
Set SearchArea = Sheets("商品データ").Range(Range("A1"), Range("A1").End(xlDown)) ⇒このコードが黄色でデバック！
Set FoundCell = SearchArea.Find( _
What:=SearchKey, _
SearchOrder:=xlByRows, _
LookAt:=xlWhole, _
MatchCase:=False)
If FoundCell Is Nothing Then
MsgBox "見つかりません", vbCritical
GoTo ExitHandler
End If
With FoundCell
商品登録.txt商品コード.Value = .Value
商品登録.txt商品名.Value = .Offset(0, 1).Value
商品登録.txt重さ.Value = .Offset(0, 2).Value
End With
With Sheets("シートＡ")
If .Cells(lRow, "G").Value = "10kg" Then
txt重さ.Value = "0"
ElseIf .Cells(lRow, "G").Value = "20kg" Then
txt重さValue = "1"
ElseIf .Cells(lRow, "G").Value = "100kg" Then
txt重さ.Value = "2"
End If
End With
ExitHandler:
Set SearchArea = Nothing
Exit Sub
End Sub
下記がデバック（黄色）が出てしまいます。
Set SearchArea = Sheets("商品ータ").Range(Range("A1"), Range("A1").End(xlDown))
また、10kg／20kg／100kgが数字（(1)(2)(3)）に変換されません。
If～が機能してないようです。
どのようにしたら良いかお願いします。
お礼
私のパソコン又はソフトの設定の不備によるものと思っていましたので他の方が検索してみても少ないと聞いて安心しました。本来私が問い合わせなくてはならないのにわざわざサポートにまで問い合わせていただき心から感謝しています。ありがとうございました。