|
ありがとうございます。
検索しまして、ご教示の内容を入れて、下記のような別のプロシージャーを組んでみたところ、なんとなく分かってきました。
相変わらずエラーになるのですが、第一引数の
.Cells("D2")
には、マクロを実行しているメインのブックを参照させたいのですが、
プロダクトマスターのブックを参照していまいた。
そうしますと、データは「文字列」になりますので、型が合わない
というエラーも納得です。
恐らくこの辺が怪しいかなと思います。
第一引数と、第二、第三引数の参照ブックが違う場合に
どのように記載すればいいのかということを少し研究してみます。
取り急ぎ、ご報告させて頂きます。
Dim Results As Variant
'ファイルパス
Dim filePath As String
filePath = ThisWorkbook.Path & "\pm.xls"
'Excelブックオブジェクト
Dim book As Workbook
Set book = Workbooks.Open(filePath) '他Excelブックを開く
'レコードの行数を取得する pm側
Dim rowCountpm As Long
rowCountpm = book.Sheets(1).Range("A2").End(xlDown).Row
'レコードの行数を取得する Main側
Dim rowCountmain As Long
rowCountmain = ThisWorkbook.Sheets(3).Range("A2").End(xlDown).Row
Results = Application.WorksheetFunction.VLookup(.Cells("D2"), _
book.Sheets(1).Range(book.Sheets(1).Cells("A2"), book.Sheets(1).Cells("V", rowCountpm)), 22, False)
If Not IsError(Results) Then
MsgBox Range("D2").Value & " was found, results: " _
& Results
Else
MsgBox "Not found"
End If
|
|