エクセル2000VBA 情報の検索について

質問

いつもお世話になります。

sheet1は商品情報検索画面で、sheet2は、データのマスターです。

sheet1のセル"D4"に商品コードを入力し、マクロを起動することで、sheet2の商品コード（A列）の同じ情報を検索し、その次のセルの商品コードを表示させたいのです。（ややこしくてすみません）

自分なりに考えてコードを作ってみたのですが・・・
Dim sh2, sh3 As Worksheet
Dim temp As Variant

Set sh2 = Worksheets("sheet2")
Set sh3 = Worksheets("sheet1")

d = sh2.Range("A1").CurrentRegion.Rows.Count

Set temp = sh2.Range("A2:A" & d).Find(What:=sh3.Range("D4").Value)

For l = 2 To d
If Not temp Is Nothing Then
sh3.Range("D4").Value = sh2.Cells(l, 1).Offset(1, 0).Value
ElseIf temp Is Nothing Then
sh3.Range("D4").Value = sh2.Range("A2").Value
End If

Next l
以上だと、次々に情報が更新され、結局最終行の空白が答えになってしまいます。

以上宜しくお願い致します。

回答No.1

yans11 · ベストアンサー

＞For l = 2 To d
＞If Not temp Is Nothing Then
＞sh3.Range("D4").Value = sh2.Cells(l, 1).Offset(1, 0).Value
＞ElseIf temp Is Nothing Then
＞sh3.Range("D4").Value = sh2.Range("A2").Value
＞End If

を

If Not temp Is Nothing Then
firstAddress = temp.Address
Do
If temp.Value = sh3.Range("D4").Value Then
sh3.Range("D4").Value = sh2.Cells(temp.Row, 1).Offset(1, 0).Value
Exit Do
End If
Set temp = sh2.Range("A2:A" & d).FindNext(temp)
Loop While Not temp Is Nothing And temp.Address <> firstAddress
Else
sh3.Range("D4").Value = sh2.Range("A2").Value
End If

に変えてみて下さい。

うまく動きますように！

お礼

上記の方法で、うまくいきました。

コードの意味は今の所さっぱり分かりませんが、後々勉強させていただきます。

ありがとうございました。