Trying to use VLookup across workbook worksheets

[Darren Smith]

I have tried to use a VLookup code on a worksheet to use VLookup function to find prices on worksheet Parts list then fill this into worksheet Job Card Master using code in column D to fill column O to lastrow.
The code won't run the error says "Application-defined or object-defined error"?

Private Sub Up_Date_Prices_Click()

        Dim JCM As Worksheet, PartsList As Worksheet
        Dim JCMLastRow As Long, PartsListLastRow As Long, x As Long
        Dim DataRng As Range
       
        
        
        Set JCM = ThisWorkbook.Worksheets("Job Card Master")
        Set PartsList = ThisWorkbook.Worksheets("Parts List")
        
        JCMLastRow = JCM.Range("A" & Rows.Count).End(xlUp).row
        PartsListLastRow = PartsList.Range("A" & Rows.Count).End(xlUp).row
        
        Set DataRng = PartsList.Range("A2:B" & PartsListLastRow)
        
        For x = 13 To JCMLastRow
        
        On Error Resume Next
        
           JCM.Range("O" & x).Value = Application.WorksheetFunction.VLookup( _
                JCM.Range("D" & x).Value.DataRng, 2, False)
        
        Next x
  
End Sub

 

[rollis13]

You only have a typo in this line of code:
JCM.Range("O" & x).Value = Application.WorksheetFunction.VLookup(JCM.Range("D" & x).Value.DataRng, 2, False)

should be (note the comma instead of the dot):
JCM.Range("O" & x).Value = Application.WorksheetFunction.VLookup(JCM.Range("D" & x).Value, DataRng, 2, False)

If you Debugged the macro without On Error Resume Next you would've noticed the problem.