VBA Using Vlookup to copy and paste rows between workbooks

SBF12345

Well-known Member
Joined
Jul 26, 2014
Messages
614
I would like to be able to use application.worksheetfunction.vlookup to define row values.

I am receiving an object defined error on the line that I am using to set a range value for the table that is used in the vlookup.

The error is showing up on the line below within the context further below. I would like to select both rows as the table range.

Code:
 TblRng = .Range("A:A,B:B")

Code:
For aa = 1 To samples

    sampleVar = wkbk.Sheets("AllDistanceMeasures").Cells(aa + 4, 11).value


    With Workbooks(COMBINED).Worksheets(Contract)
    
    TblRng = .Range("A:A,B:B")
    
    sampleSet = Application.WorksheetFunction.VLookup(sampleVar, TblRng, 2, False)
    
    RowVar = .sampleSet.Row
    
    RowRange = .Cells(RowVar, 1)
    
    End With
    
    Workbooks(COMBINED).Worksheets(Contract).Activate.Range(RowRange, RowRange.End(xlToRight)).Copy
    
    Workbooks("KMEANS_TEMPLATE.xls").Sheets("Destination").Cells(aa + 8, 4).PasteSpecial xlPasteValues
 

Excel Facts

Formula for Yesterday
Name Manager, New Name. Yesterday =TODAY()-1. OK. Then, use =YESTERDAY in any cell. Tomorrow could be =TODAY()+1.
try
Code:
 TblRng = .Range("A:B")
 
Upvote 0
What are combined & Contract?
 
Upvote 0
What is TblRng declared as?
If it's a range you need to add the word Set at the start of that line
 
Last edited:
Upvote 0

Forum statistics

Threads
1,213,544
Messages
6,114,239
Members
448,555
Latest member
RobertJones1986

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top