Snasui Excel Forum

sakajohn wrote: Fri Jun 22, 2018 10:35 pm OFFSET(R9C30,1,0,

Dim row As Integer
row = 10
Do While Cells(row, 30).Value <> ""
Application.Goto Reference:="OFFSET(R10C30,0,0,1,31)"
Selection.Copy
Workbooks.Open Filename:="\\ACCOUNT\Data (D)\SALE\SaleData.xlsx"
ThisWorkbook.Activate
Application.Goto Reference:= _
"OFFSET('[SaleData.xlsx]RAT'!R1C1,MATCH(R10C30,INDEX('[SaleData.xlsx]RAT'!R2C1:R50000C1,0),0),0)"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

row = row + 1
Loop
ThisWorkbook.Saved = True
ThisWorkbook.Close

End Sub