Can`t work out why my Range on a workbook worksheet says = Nothing

[Darren Smith]

The code below has this code saying = Nothing?

 Set PLDataRange = PL.Range("A13:P" & LastRow)

??

Private Sub Up_Date_Prices_Click()


    
Application.ScreenUpdating = False
    
        Dim SrcOpen As Workbook
        Dim Des As Workbook
        Dim JCM As Worksheet
        Dim PL As Worksheet
        Dim FilePath As String
        Dim Filename As String
        Dim PLDataRange As Range
        Dim LastRow As Long

        FilePath = "\\TGS-SRV01\Share\ShopFloor\PRODUCTION\PURCHASING\"
        Filename = "TGS Group Inventory Sheet - Main.xlsx"
    
       
      
        Set SrcOpen = Workbooks.Open(FilePath & Filename)
        Set PL = SrcOpen.Worksheets("Part List")
        LastRow = PL.Cells(PL.Rows.Count, "A").End(xlUp).row
        Set PLDataRange = PL.Range("A13:P" & LastRow)
        Windows("TGS Group Inventory Sheet - Main.xlsx").Visible = True
       
        Set Des = Workbooks("Automated Cardworker.xlsm")
        Set JCM = Des.Worksheets("Job Card Master")
  

        JCM.Range("O15").Value = Application.WorksheetFunction.VLookup(JCM.Range("D15"), PLDataRange, 16, 0)

      
      
      Application.DisplayAlerts = False
      
       SrcOpen.Close
      
      
      Application.DisplayAlerts = True
            
      Application.ScreenUpdating = True


          End Sub

 

[ER_Neha]

can you do debug.print for the variables srclastrow & deslastrow and share the output if it matches your data table

 

[Darren Smith]

The below are right

ScrDataRange = 1238

DesDataRange = 182

 

[RoryA]

The code below says Error = Nothing

Set SrcDataRange = Src.Range("E2:P" & SrcLastRow)

No, it doesn't. That code doesn't say anything, it just assigns a range to a variable. Are you getting an error message? I assume so, so what does the error message actually say, and which line does the debugger highlight?

 

[Darren Smith]

This below says Empty and highlights Yellow

 JCM.Range("O" & x).Value = Application.WorksheetFunction.VLookup(JCM.Range("D" & x).Value, SrcDataRange, 16, False)

 

[ER_Neha]

try replacing this line of code and check
provided the d15 value is a number

 JCM.Range("O15").Value = Application.WorksheetFunction.VLookup(cdbl(JCM.Range("D15").value), PLDataRange, 16, 0)

 

[RoryA]

Empty is not an error message.

 

[ER_Neha]

This below says Empty and highlights Yellow

 JCM.Range("O" & x).Value = Application.WorksheetFunction.VLookup(JCM.Range("D" & x).Value, SrcDataRange, 16, False)

in your main query its pldatarange rather then one you just posted containing srcdatarange

 

[MARK858]

SrcDataRange is columns E:P which is only 12 columns but you are trying to lookup the 16th column?

 

[ER_Neha]

in the main query (initial), it was written A:P then it would have worked i suppose ?

SrcDataRange is columns E:P which is only 12 columns but you are trying to lookup the 16th column?

 

[MARK858]

in the main query (initial), it was written A:P then it would have worked i suppose ?

Depends if the value is there but I am looking at where the OP is stating the error is now.