Open a closed workbook, Find matching excel values within a column, offset 2 columns to the left and copy the value back to the opened excel sheet

Question

I have a huge task that I don't have the knowledge or any idea on how to start. I have a workbook called "Ink" (C:\Users\admin\Desktop\Ink.xlsm) that gives me the toner count of a set of printers. The printers displayed on this sheet change everyday.

I wish for my macro to navigate/open the Printers.xlsm (C:\Users\admin\Desktop\printers.xlsm) that contains the master list

• find and match the value from column B in Ink.xlsm (row 2 and down) on column H in Printers.xlsm (row 2 and down)
• offset 2 columns to the left and
• copy that value to column G in Ink.xlsm matching the same row.

As of right now I have the starting code I found elsewhere

Dim wbk As Workbook
Set wbk = Workbooks.Open("C:\myworkbook.xls")

' now you can manipulate the data in the workbook anyway you want, e.g. '

Dim x As Variant
x = wbk.Worksheets("Sheet1").Range("A6").Value

Call wbk.Worksheets("Sheet2").Range("A1:G100").Copy
Call ThisWorbook.Worksheets("Target").Range("A1").PasteSpecial(xlPasteValues)
Application.CutCopyMode = False

' etc '

Call wbk.Close(False)

Answer 1

Just to show an example of Index() and match() as apparently it throws an error for the OP...