Leonardo1234
Member
Code:
Sub STEP8()
Dim Ary As Variant
Dim i As Long
Dim Dic As Object
Dim Cl As Range
Dim Wbk1 As Workbook
Dim Wbk2 As Workbook
Dim wsh1 As Worksheet
Dim wsh2 As Worksheet
Application.ScreenUpdating = False
Set Wbk1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\1.xls")
Set Wbk2 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\Leverage.xlsb")
Set Dic = CreateObject("Scripting.dictionary")
With wsh1
Ary = .Range("B2", .Range("B" & Rows.Count).End(xlUp).Offset(, 6)).Value2
End With
For i = 1 To UBound(Ary)
Dic(Ary(i, 1)) = Ary(i, 7)
Next i
With wsh2
For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
Cl.Offset(, 5).Value = Dic(Cl.Value)
Next Cl
End With
Application.DisplayAlerts = False
Wbk1.Close SaveChanges:=True
Wbk2.Close SaveChanges:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
this line has been highlighted
Ary = .Range("B2", .Range("B" & Rows.Count).End(xlUp).Offset(, 6)).Value2
and i am getting error while runing the code so plz have a look Sir