Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Объединение записей в одной книге с разных листов
 
#1
06.03.2013 17:46:50
Доброго времени суток. Прошу помощи у сообщества. Облазил весь форум и не нашел ответа на мой вопрос. Есть одна книга, в ней присутствует 20 листов. Шапка таблицы на всех листах одинакова. Нужно со всех листов собрать определенное количество столбцов на один лист. Хотелось бы, что бы была кнопка, при нажатии на которую данные из всех 20 листов пополнялись на одном общем листе. Может не совсем объяснил. Суть в прикрепленном файле.
Накопал на просторах Interneta макрос, который отчасти решает мои вопросы... сам в VBA не бум-бум... помогите, пожалуйста!
 
 
 
#2
06.03.2013 19:56:28
А Вы файл не перепутали? Это ведь файл-пример с дружественного сайта, где показывается возможность разделения листов/диапазонов для пользователей.
 
 
 
#3
07.03.2013 09:34:31
Как раз это разделение мне и нужно для листов/пользователей.  Есть 20 пользователей, которые пользуются одним Excel файлом в общем доступе. Общий доступ начинает "глючить" (много пользователей в одно время и кол-во записей перевалило за 10 000). Для разделения листов и пользователей был взят данный файл. 20 таблиц были оформлены и разбиты по пользователям. Сейчас задача все это собрать на одном листе. Вот и обращаюсь к помощи сообщества.  Сам, к сожалению, в макросах не силен и как собрать информацию с 20 листов на один не знаю.
 
 
 
#4
07.03.2013 09:39:21
А не проще создать базу данных в Access?
There is no knowledge that is not power
 
 
 
#5
07.03.2013 10:33:39
Тема называется "Объединение записей в одной книге с разных листов" - так и покажите файл с листом-приёмником и тремя листами-донорами. Зачем тут файл Дмитрия (The_Prist)?
 
 
 
#6
07.03.2013 10:38:43
Показываю файл Дмитрия, в связи с тем, что на скрытых листах в данном файле созданы таблицы, которые нужно собрать, они скрыты, согласно макросу. Хотелось бы объединить данные таблицы, когда они скрыты, в один лист.
Ниже сама структура
Изменено: cad - 07.03.2013 10:45:11 (Прикрепление файла)
 
 
 
#7
07.03.2013 11:06:15
cad, это Вы сейчас пошутили? Что собирать на лист? - нет НИ ОДНОЙ ячейки с данными.
 
 
 
#8
07.03.2013 11:29:45
сорри, случайно как то вышло... :oops:
 
 
 
#9
07.03.2013 11:46:53
Да... лень вперёд Вас родилась - все данные одинаковые - как бы Вы определили, что собраны данные именно с этих листов?
В примере макрос соберёт данные с первого по предпоследний лист. А вообще - таких примеров на форуме - вагон и маленькая тележка.
 
 
 
#10
07.03.2013 11:57:41
Спасибо, можно ли этот макрос приделать к макросу Дмитрия, что бы сбор происходил из скрытых листов?
 
 
 
#11
07.03.2013 12:02:35
В данном случае без разницы - скрыты листы или нет.
 
 
 
#12
07.03.2013 12:05:30
Выдает ошибку 1004, что это может быть?
 
 
 
#13
07.03.2013 12:13:54
Скрыл один из листов - никакой ошибки нет. Проверяйте диапазоны в Ваших листах - где-то не так, как в примере. Макрос писался под конкретные таблицы.
 
 
 
#14
07.03.2013 12:19:03
Юрий, вы простите, в данном случае идет дублирование записей и не все записи попадают в основную таблицу  :(
Получается так : взял для начала две таблицы в табл.1 занес 3 записи, а во вторую 1 запись, в итоге получается так, что из табл. 1 подтягивается 2 записи 2 раза подрят а из табл2 подтягивает 1 строчку
Изменено: cad - 07.03.2013 12:24:39
 
 
 
#15
07.03.2013 12:25:55
Действительно - мой косяк.
Найдите строку RW = 41 и исправьте на RW = 40
А эту: Range(.Cells(41, 1), .Cells(LastRow, 32)).Copy Cells(RW, 1)
Запишите так:
Range(.Cells(41, 1), .Cells(LastRow, 32)).Copy Cells(RW + 1, 1)
 
 
 
#16
07.03.2013 12:43:29
Спасибо
Возвращаясь к файлу Дмитрия, где все эти таблицы будут находится получается вот такая картина (файл прикреплен). Из листа Users подтягивает последнюю заполненую строчку с пользователями (там их 19), а из таблицы WARNING так же последнюю строчку (строка 3).
И идет дублирование записей.
Как можно избавиться от этого?
Изменено: cad - 07.03.2013 12:44:39
 
 
 
#17
07.03.2013 12:46:58
Цитата
cad пишет:
Возвращаясь к файлу Дмитрия...
Я не буду к этому файлу возвращаться - у Вас есть работающий пример.
 
 
 
#18
07.03.2013 12:55:58
Спасибо за помощь
 
 
 
#19
07.03.2013 13:00:57
Проверьте - для корректной работы макроса все таблицы должны начинаться с ячейки А41.
 
 
 
#20
07.03.2013 13:10:42
Спасибо, все таблицы начинаются с ячейки А41
 
 
 
Страницы: 1
Читают тему
Наверх