エクセルＶＢＡのＦＩＮＤの質問です。
エクセルＶＢＡのＦＩＮＤの質問です。
シート１
A B C D
1 コード１ コード２ コード３ 名 称
2 4 1 1
3 4 2 2
4 4 3 1
シート２
A B
1 コード１ 名 称
2 1 名称１
3 2 名称２
やりたいことは、シート１のＤ列に、シート１のコード３をもとにシート２から名称を取得したいのです。
下記に記したプログラムだと最初のＦＩＮＤＮＥＸＴは動くのですが、
2回目でエラーになってしまい、次を読んでくれません。
どなたか、ご教授頂けますでしょうか。
シート１の検索条件はコード１の"4"です。
シート１のコード１は重複キーで、一レコードずつ読んで行き、各レコード毎にシート２を読みたい
のです。
Dim シート1 As Worksheet
Dim シート2 As Worksheet
Dim obj As Object
Dim Lin As Integer
Dim mykey As Integer
Dim obj1 As Object
Dim Lin1 As Integer
Dim mykey1 As Integer
Dim st_Lin As Integer
Set シート1 = ThisWorkbook.Worksheets("シート１")
Lin = シート1.Cells(シート1.Rows.Count, 1).End(xlUp).Row
mykey = "4"
Set obj = シート1.Range("A1", "A" & Lin).Cells.Find(What:=mykey, _
LookIn:=xlValues, _
lookat:=xlWhole, _
SearchOrder:=xlByColumns)
If obj Is Nothing Then
MsgBox ("異常です")
Exit Sub
Else
st_Lin = obj.Row
Do Until obj.Row <> st_Lin
Set obj = シート1.Range("A1", "A" & Lin).FindNext(obj)
If obj Is Nothing Then
Exit Do
Else
Set シート2 = ThisWorkbook.Worksheets("シート２")
With シート2
Lin1 = .Cells(シート2.Rows.Count, 1).End(xlUp).Row
mykey1 = シート1.Cells(obj.Row, 3).Value
Set obj1 = .Range("A1", "A" & Lin1).Cells.Find
(What:=mykey1,LookIn:=xlValues,lookat:=xlWhole,SearchOrder:=xlByColumns)
If obj1 Is Nothing Then
MsgBox ("名称取得できませんでした")
Exit Sub
Else
シート1.Cells(obj.Row, 4).Value = .Cells(obj1.Row, 2).Value
End If
End With
End If
Loop
End If
お礼
ありがとうございます。 やってみましたがコンパイルエラーになりました～。 やはり参照設定をしないとダメなんだと思いますが何を設定したら良いのでしょうか。 すみません。