ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   subscript out of range error for .csv file and vlookup (https://www.excelbanter.com/excel-programming/353379-subscript-out-range-error-csv-file-vlookup.html)

cultgag[_5_]

subscript out of range error for .csv file and vlookup
 

I'm trying to use vlookup to match some part numbers with data in a .csv
file and so far have been unsuccessful. The highlighted portion keeps
on giving a "Subscript out of Range" and when I scroll over
range_lookup it gives me a message reading "range_lookup = nothing"

lookup_row_value = Sheet3.Cells(row_Numb, 1).Value

*Set Range_Lookup = Workbooks("Inv.csv"). _
Worksheets("Sheet1").Range("a1:g400")*
found_value = Application.VLookup(lookup_row_value, _
Range_Lookup, 5, False)

Sheet3.Cells(row_Numb, 5).Value = found_value

TIA

Matt


--
cultgag
------------------------------------------------------------------------
cultgag's Profile: http://www.excelforum.com/member.php...o&userid=22677
View this thread: http://www.excelforum.com/showthread...hreadid=512718


Dave Peterson

subscript out of range error for .csv file and vlookup
 
Assuming the highlights come through as asterisks...

Set Range_Lookup = Workbooks("Inv.csv").worksheets("Sheet1").Range("a 1:g400")
When you open the .csv file, you'll see that that sheet is named after the
filename.

This may work:
Set Range_Lookup = Workbooks("Inv.csv").worksheets("Inv").Range("a1:g 400")

But I'd use:
Set Range_Lookup = Workbooks("Inv.csv").worksheets(1).Range("a1:g400" )

Since there's only one sheet in that .csv workbook.

cultgag wrote:

I'm trying to use vlookup to match some part numbers with data in a .csv
file and so far have been unsuccessful. The highlighted portion keeps
on giving a "Subscript out of Range" and when I scroll over
range_lookup it gives me a message reading "range_lookup = nothing"

lookup_row_value = Sheet3.Cells(row_Numb, 1).Value

*Set Range_Lookup = Workbooks("Inv.csv"). _
Worksheets("Sheet1").Range("a1:g400")*
found_value = Application.VLookup(lookup_row_value, _
Range_Lookup, 5, False)

Sheet3.Cells(row_Numb, 5).Value = found_value

TIA

Matt

--
cultgag
------------------------------------------------------------------------
cultgag's Profile: http://www.excelforum.com/member.php...o&userid=22677
View this thread: http://www.excelforum.com/showthread...hreadid=512718


--

Dave Peterson


All times are GMT +1. The time now is 12:29 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com