Сборка данных с листов макросом на VBA

  1. Биржа фриланса
  2. Базы данных
Завершен1 заявка297 просмотров
Найдите исполнителя для вашего проекта прямо сейчас!
Разместите заказ на фриланс-бирже и предложения поступят уже через несколько минут.

Необходимо в определенном файле Excel посредством макросом на VBA вписать (по возможности доработать) уже готовую формулу (ниже) чтобы все работало.

А именно, файл собой представляет реестр контрактов по разным менеджерам (их будет 5 человек, соответственно 5 листов (Боброва,Романов, Мишин,Нилов,Михайлева) и необходимо провести сборку данных с разных листов в один (обобщённый реестр) и сделать эту таблицу автоматической или чтобы этот сбор данных происходил по соответствующей команды.

"Sub CollectDataFromAllSheets()

Dim ws As Worksheet

Set wbCurrent = ActiveWorkbook

Workbooks.Add

Set wbReport = ActiveWorkbook

'копируем на итоговый лист шапку таблицы из первого листа

wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")

'проходим в цикле по всем листам исходного файла

For Each ws In wbCurrent.Worksheets

'определяем номер последней строки на текущем листе и на листе сборки

n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count

'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:

Set rngData = ws.Range("A1:D5") 'фиксированный диапазон или

Set rngData = ws.UsedRange 'всё, что есть на листе или

Set rngData = ws.Range("F5").CurrentRegion 'область, начиная от ячейки F5 или

Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell)) 'от А2 и до конца листа

'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки

rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)

Next ws

End Sub"

VBAExcel
2 года назад
Chesnipolzovatel
Виктор 
39 летРоссия
2 года в сервисе
Был
2 года назад
Выбранный исполнитель
ExcelMaker
Артем 
35 летУкраина
2 года в сервисе
Был
4 дня назад
2 года назад
$10
1 день
RUBUAH
Хороший человек с хорошим уровнем знания VBA и точными сроками выполнения задач. Рекомендую, обязательно обращусь повторно!
Ответственный заказчик. Предельно точно ставит задачу, быстро отвечает, ценит чужой труд. Приятно сотрудничать.
Заявки фрилансеров
ExcelMaker
Артем 
35 летУкраина
2 года в сервисе
Был
4 дня назад
2 года назад
ТОП-10
— Базы данных
  • Похожие заказы

  • MySQL Workbench диаграмма

    Бронирование номеров в гостинице В MySQL Workbench  2. Таблица "Типы номеров" - содержит информацию о типах номеров, например, одноместный, двухместный, люкс и т.д. 3. Таблица "Номера" ...

    MySQL
    Базы данных3 заявки
    Закрыт
    2 года назад

  • Выполнение A/B теста на Phyton

    $35

    Нужно доделать проект в юпитере, применить функции get_conversion для дальнейшего исследования конверсии, провести когортный анализ, посмотреть на конверсию на окончание срока. проект завершен необходимо выполнить доп.задания: Необходимо посмотреть коверсию : ...

    Базы данных1 заявка
    Закрыт
    2 года назад

  • Нужен бот для казино

    Ищу человека который сможет сделать телеграмм бота или что то подобное  Главное условие удобства и практичность этого бота  остальное более детально можно будет обсудить  работа его должна заключаться : присылает уведомления о ...

    Телеграм бот
    Базы данных6 заявок
    Закрыт
    2 года назад

  • Создание отчета в lookerstudio.google по данным из bitrix 24

    необходимо отразить в дата студио информацию по продажам в разрезе менеджеров, оборотов, товаров, активных сделок, проигранных сделок, сделок, которые стоят долго в одной стадии и т.д. Интеграция Дата студио с Битрикс проведена. необходима ...

    Битрикс
    Базы данных1 заявка
    Закрыт
    2 года назад

  • Парсинг 2Gis, Яндекс Карты или других источников

    Необходимо собрать базу юридических лиц потенциальных клиентов из 2Gis и Яндекс Карты также рассмотрю варианты с возможностью парсинга из других источников при возможности предоставить контакты Руководителей, лиц принимающих решение и влияющих на решения ...

    Базы данных3 заявки
    Закрыт
    2 года назад

  • Парсинг ЮЛА

    нужен "софт" для парсинга обьявлений с юлы, с номерами телефонов и остальной инфой, что бы выдавал в эксель ссылки по определённому количеству и по заданным критериям

    Excel
    Базы данных5 заявок
    Закрыт
    2 года назад