VBA. Добавление в формулу имени страницы

Пользователь

Сообщений: 35 Регистрация: 26.03.2016

16.11.2019 20:27:12

Добрый вечер. Нужно что-бы макрос добавлял на каждую страницу формулу которая будет содержать значение листа в соответствии с названием текущей страницы. т.е формула на листе 1.11.19 дожна выглядеть как

Код
=ИНДЕКС('C:\[1.xlsx]1.11.19'!C3:C3;)

на 2.11.19 и т.д

Код
=ИНДЕКС('C:\[1.xlsx]2.11.19'!C3:C3;)

Пример прилагаю. Так-же буду благодарен за вариант корректного завершения макроса при достижении конца документа.

Прикрепленные файлы

22.xlsm (18.36 КБ)

Изменено: Phurba - 16.11.2019 20:30:38

doober

Пользователь

Сообщений: 2326 Регистрация: 09.04.2013

16.11.2019 20:51:06

Добрый.
Так?

Код

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

Изменено: doober - 16.11.2019 23:09:45

Phurba Пользователь Сообщений: 35 Регистрация: 26.03.2016	#3 16.11.2019 21:06:39 doober, Благодарю, работает.