Добрый день всем, Подскажите хочу взять данные с открытого excel файла "plan", помогите разобрать синтаксис кода, что не так
[vba]
Код
Sub zhas() Dim i As Long, f As Long, s As String, n As Long, sh As Worksheet, skm As Workbooks Set skm = Workbooks("plan.xlsm" Set sh = Worksheets("ТРУ") For i = 2 To 7 For f = 2 To 5 n = sh.Rows(1).Find(what:=Cells(1, f).Value).Column Cells(i, f) = Application.VLookup(Cells(i, 1).Value, skm.sh.Range("A:G"), n, False) Next f Next i MsgBox "Конец!", vbInformation, "Конец" End Sub
[/vba] Спасибо всем
Добрый день всем, Подскажите хочу взять данные с открытого excel файла "plan", помогите разобрать синтаксис кода, что не так
[vba]
Код
Sub zhas() Dim i As Long, f As Long, s As String, n As Long, sh As Worksheet, skm As Workbooks Set skm = Workbooks("plan.xlsm" Set sh = Worksheets("ТРУ") For i = 2 To 7 For f = 2 To 5 n = sh.Rows(1).Find(what:=Cells(1, f).Value).Column Cells(i, f) = Application.VLookup(Cells(i, 1).Value, skm.sh.Range("A:G"), n, False) Next f Next i MsgBox "Конец!", vbInformation, "Конец" End Sub