Как добавить имя листа в макрос, который собирает данные с листов книг на один лист

Avgust2047

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

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

09.08.2020 22:31:02

Всем привет!!!

Итак суть:
При работе данного макроса, в первый столбец при собирании данных из разных книг и листов на одном отдельном листе, он выставляет в первый столбец только имя книги откуда было копирование

вставляем имя книги, с которой собраны данные

Код
If lCol Then wsDataSheet.Cells(lLastRowMyBook, 1).Resize(rCopy.Rows.Count).Value = oAwb

Подскажите пожалуйста как написать чтобы было ещё и имя листа, либо второй столбец с именем листа из скопированной книги.

Спасибо за внимание.

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

КЛЁНv.2.xlsm (23.5 КБ)

Mershik

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

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

10.08.2020 10:38:26

Avgust2047, ДД.
Тема: Как вывести имя листа с которого скопированы данные

Код
If lCol Then wsDataSheet.Cells(lLastRowMyBook, 1).Resize(rCopy.Rows.Count).Value = oAwb & " " & wsSh.Name

Изменено: Mershik - 10.08.2020 10:39:44

Не бойтесь совершенства. Вам его не достичь.

Avgust2047 Пользователь Сообщений: 8 Регистрация: 23.04.2019	#3 10.08.2020 10:49:35 Большое спасибо! Заработало и красиво так стало, аж сердце защемило. Хорошего дня!

Mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#4 10.08.2020 10:51:50 Avgust2047, удачи! (вот видите когда конкретный вопрос задаете - получаете конкретный ответ) Не бойтесь совершенства. Вам его не достичь.