データ検索について

質問

条件詳細
・シートは、シートＡ／シートＢ。
・シートＡにユーザーフォームを表示するボタンを置く。
・シートＢに商品データ。
・ユーザーフォームのオブジェクト名は、商品登録。
・ ユーザーフォームにある項目は、商品番号／商品名／重さの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～が機能してないようです。
どのようにしたら良いかお願いします。

回答No.2

Masa2072 · ベストアンサー

>Set SearchArea = .Sheets("商品データ").Range(.Range("A1"), .Range("A1").End(xlDown))

すいません、この部分に間違いがありました。
Set SearchArea = .Range(.Range("A1"), .Range("A1").End(xlDown))
としてください。

お礼

ありがとうございます。
反応しました！
1歩前へ進むことができました。

また、If～部分もできました。

そこで一つ質問なのですが、
If～部分で　文字（りんご、みかん等）を
数字で入力させることも可能なのでしょうか？

例　りんご＝0、みかん＝1、いちご＝3

よろしくお願いします。

回答No.1

Masa2072

>下記がデバック（黄色）が出てしまいます。
>
>Set SearchArea = Sheets("商品データ").Range(Range("A1"), Range("A1").End(xlDown))

商品データシートが表示されている状態であれば問題ありませんが、別シートが表示された状態ではエラーになります。
With Sheets("商品データ")
Set SearchArea = .Sheets("商品データ").Range(.Range("A1"), .Range("A1").End(xlDown))
End With
と変更する

> If～が機能してないようです。
10kg 10Kg 10KG １０ｋｇ など全て別の文字として扱われます。
Sheet中の表記を統一するのはもちろんのこと、万が一別表記が現れても対応するのであればStrConvを用いて同一表記に変換したのちＩｆ文で評価という流れを取ります。

Weight = Sheets("シートＡ").Cells(lRow, "G").Value
Weight = StrConv(Weight, vbNarrow) '半角化
Weight = StrConv(Weight, vbLowCase) '小文字化
If Weight = "10kg" Then
txt重さ.Value = "0"
ElseIf Weight = "20kg" Then
txt重さ.Value = "1"
ElseIf weight = "100kg" Then
txt重さ.Value = "2"
End If

お礼

Masa2072さん、ありがとうございます。
しかし、
>商品データシートが表示されている状態であれば問題ありませんが、別シートが表示された状態ではエラーになります。
With Sheets("商品データ")
Set SearchArea = .Sheets("商品データ").Range(.Range("A1"), .Range("A1").End(xlDown))
End With
と変更する

が変更させたのですが、どうしてもデバックエラーがまだ出てしまいます。なぜなのでしょうか？
お手数お掛けしますが、よろしくお願いします。

ちなみにIf～はまだ確認取れていません。
すみません。上記エラーが前提になってしまうので・・・。