Копирование данных с другого листа в сводный лист

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

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

06.02.2022 15:56:05

Добрый день,помогите пожалуйста, мне надо с помощью формулы Excel перенести значения I56,J56(постоянные) с листов ( Цех1, .....) в лист " свод". Связующей формулой не хотелось бы, тк возможно удаление листов или появления в книге новых.

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

данные для формума.xlsx (20.39 КБ)

_Igor_61

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

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

06.02.2022 18:02:38

Формулой навряд ли получится, т.к. формулы ссылаются на существующие в файле данные, а Вы (судя по описанию - добавление и удаление листов) хотите делать ссылки на то что будет и на то, чего уже нет. Может, в последних версиях Excel и научили делать это формулами, не знаю. Если не сможете решить Вашу задачу формулами - на всякий случай макрос:

Код

Sub qqq()
    Dim i&, ws&, rws&
For i = 2 To Worksheets("оглавлениие").Cells(Rows.Count, 1).End(xlUp).Row
 For ws = 1 To Worksheets.Count
  If Worksheets("оглавлениие").Cells(i, 1) = Worksheets(ws).Name Then
     rws = Worksheets(ws).Cells(Rows.Count, 1).End(xlUp).Row
     With Worksheets("оглавлениие")
         .Cells(i, 4) = Worksheets(ws).Cells(rws, 9)
         .Cells(i, 5) = Worksheets(ws).Cells(rws, 10)
     End With
  End If
 Next ws
Next i
End Sub

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

GGR.xlsm (30.62 КБ)

gling

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

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

06.02.2022 18:12:56

Здравствуйте.
Вариант.

Код

=ИНДЕКС(ДВССЫЛ("'"&$A2&"'!I1:I500");ПОИСКПОЗ("Итого";ДВССЫЛ("'"&$A2&"'!A1:A500");))
=ИНДЕКС(ДВССЫЛ("'"&$A2&"'!J1:J500");ПОИСКПОЗ("Итого";ДВССЫЛ("'"&$A2&"'!A1:A500");))

GGR Пользователь Сообщений: 59 Регистрация: 08.02.2021	#4 06.02.2022 18:59:35 _Igor_61,gling спасибо вам за решение.Оба варианта отличные.