Сделать реестр из данных с разных листов

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сделать реестр из данных с разных листов (Формулы/Formulas)

fanta

Дата: Среда, 20.01.2016, 06:10 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Добрый день! Помогите составить формулы для реестра, в котором будет собрана информация с различных листов документа, в прикрепленном файле есть листы с данными по организациям, мне надо собрать в лист "Реестр" информацию, указанную в шапке. Возможно ли написать формулы, которые будут автоматически ее собирать в лист "Реестр"? Если не понятно расписала вопрос, спрашивайте. Заранее благодарна!

К сообщению приложен файл: 0675327.xlsx (12.6 Kb)

Ответить

mathiax90

Дата: Среда, 20.01.2016, 06:53 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 202

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

1. Не уверен на счет формулы. ВПР не подходит имхо, т.к. источник данных не один диапазон (лист), а три разных листа (а значит и три разных диапазона).
2. И еще хотел уточнить изначально лист реестра пуст?
3. Вы просто хотите со всех листов компаний все агрегировать на один лист "Реестр"?
Т.е. ,грубо говоря, просто автоматизированный копипаст?
Или есть какая-то логика?
4. И сразу подводный камень, формула может не сработать так же, если у вас акты будут с неверными названиями (не цифры) и/или если номера актов будут пересекаться в разных компаниях.

webmoney: R242692021885
ЯД:410013877261817

Ответить

mathiax90

Дата: Среда, 20.01.2016, 06:53 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 202

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

Макрос может спасти дело. Только нужно ответить на вышеперечисленные вопросы.

webmoney: R242692021885
ЯД:410013877261817

Ответить

fanta

Дата: Среда, 20.01.2016, 07:19 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Номера актов пересекаться с разными компаниями не будут, нумерация актов будет единая для всех организаций и только цифры по порядку, поэтому в листе "Реестр" сразу прописала номера актов по порядку с 1 и далее. В листе "Реестр" мне надо, чтобы автоматически заполнялись столбцы "дата акта", "организация" и "объем".

Ответить

китин

Дата: Среда, 20.01.2016, 07:52 | Сообщение № 5

Группа: Модераторы

Ранг: Экселист

Сообщений: 7043

Репутация: 1080 ±

Замечаний: 0% ±

Excel 2007;2010;2016

а может ЭТО подойдет?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

mathiax90

Дата: Среда, 20.01.2016, 08:01 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 202

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

Вот очень простой вариант. Сделан на коленке. Но для решения вашей задачи думаю пойдёт. В прикреплённом файле макрос уже на месте осталось только его запустить.
Что делает макрос:
1. Создаёт новый лист по текущей дате и времени
2. Данные со всех листов (кроме нового) копируются на новый лист
Копирование идёт со второй строки
Копирование продолжается до тех пор, пока в первом столбце не встретиться пустая ячейка.
3. Внимательно!!! Запустили один раз макрос, не забудьте удалить созданный лист, а то он тоже в сводную попадёт.

[vba]

Код

Sub agragate()

Dim ash As Worksheet
Dim awb As Workbook
Dim shCount As Long

Set awb = ActiveWorkbook
shCount = awb.Worksheets.Count

awb.Sheets.Add(After:=awb.Sheets(awb.Sheets.Count)).Name = Format(Now, "yyyy-mm-dd HH-MM-ss")
Set ash = awb.ActiveSheet

j = 1
For shi = 1 To shCount
    i = 2
    Do
        ash.Cells(j, 4) = awb.Sheets(shi).Cells(i, 1)
        ash.Cells(j, 3) = awb.Sheets(shi).Cells(i, 2)
        ash.Cells(j, 2) = awb.Sheets(shi).Cells(i, 3)
        ash.Cells(j, 1) = awb.Sheets(shi).Cells(i, 4)
        i = i + 1
        j = j + 1
    Loop While awb.Sheets(shi).Cells(i, 1) <> ""
Next shi

End Sub

[/vba]

К сообщению приложен файл: 0675327.xlsm (23.6 Kb)

webmoney: R242692021885
ЯД:410013877261817

Сообщение отредактировал mathiax90 - Среда, 20.01.2016, 08:04

Ответить

mathiax90

Дата: Среда, 20.01.2016, 08:03 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 202

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

А дальше сортируйте по номерам актов организациям и т.п.

webmoney: R242692021885
ЯД:410013877261817

Ответить

mathiax90

Дата: Среда, 20.01.2016, 08:11 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 202

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

немного подправил

К сообщению приложен файл: 9471499.xlsm (21.8 Kb)

webmoney: R242692021885
ЯД:410013877261817

Ответить

fanta

Дата: Среда, 20.01.2016, 10:34 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Спасибо, с макросами не знакома, но смысл поняла, сбор инфы со всех листов в один лист. А с помощью формулы никак? Есть еще такой момент, необходимо отследить, что ни один акт по организациям не выпал из общей нумерации. Т е, например, по какой-то организации забыли данные по акту внести в листе данной организации и в листе "реестр", где я изначально всю нумерацию от 1 и далее проставила будет видно что акт пропущен (потерян). А с помощью макроса необходимо будет постоянно самой просматривать пропущен акт или нет. Но если другие варианты не возможны, то макрос буду использовать) Еще раз спасибо!