Добрый вечер. Нужно что-бы макрос добавлял на каждую страницу формулу которая будет содержать значение листа в соответствии с названием текущей страницы. т.е формула на листе 1.11.19 дожна выглядеть как
Код
=ИНДЕКС('C:\[1.xlsx]1.11.19'!C3:C3;)
на 2.11.19 и т.д
Код
=ИНДЕКС('C:\[1.xlsx]2.11.19'!C3:C3;)
Пример прилагаю. Так-же буду благодарен за вариант корректного завершения макроса при достижении конца документа.
Sub link_add()
Dim WB As Workbook, sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Range("B2").FormulaR1C1 = "=INDEX('C:\[1.xlsx]" & sh.Name & "'!R[1]C[1]:R[1]C[1],)"
If sh.Name = "О" Then GoTo st
Next
st:
End Sub