With Worksheets("Itog").Range("B15").End(xlToRight)
.Offset(-11, 1).Resize(12, 1).Formula = "=" & iNewListName & "!RC[-1]"
End With
объясните пожалуйста код
объясните пожалуйста код
Да простит меня Павел
Вот файл
Код:
Да простит меня Павел
Вот файл
Артур, тот пример, что Вы мне высылали и этот различаются … тем не менее, мы можем использовать что-то вроде :
Код:
With Worksheets("Itog").Range("IV15").End(xlToLeft)
.Offset(-11, 1).Resize(12, 3).Formula = "=" & iNewListName & "!C4"
End With
.Offset(-11, 1).Resize(12, 3).Formula = "=" & iNewListName & "!C4"
End With