Всем привет!!!
Срочно нужна помощь.
Суть проблемы такова:
Есть книга Excel в которой несколько листов (предположим 5)
в каждом листе есть некая таблица состоящая из 9 столбцов (A, B, C, D, E, F, G, H, I) и 5000 строк.

Мне требуется собрать все эти таблицы (из 4 листов) в пятый лист, но так чтобы сначала вставилась из первого листа, затем в следующие строки вторая и т.д.
И чтобы вставлялись только те строки в которых в Столбце "G" любое значение не равное "0"

Заранее Всем спасибо!!!

PlanBnikalex2, запрос пишите к листам. так будет проще всего и быстрее (если кол-во листов не миллион, конечно).
но, если работа одноразовая - то ручками. потом просто ставите фильтр на столбик G "выводить равное 0" и сносите все видимые строки.

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

Hugo121nikalex2,

MsQuery помучайте, может подойти, даже может быть идеально.

забыл сказать, я новичок и даже без понятия что такое MsQuery

Hugo121nikalex2, 3 года на SQL, и всё ещё жизнь не заставила изучить?
C:\Program Files\Microsoft Office\Office\MSQRY32.EXE запустите, если есть...

ок, спасибо, щас попробую разобраться???
ну а вообще с помощью VBA возможно это сделать???

zchvvnikalex2,

вот тебе мое решение.
Кое-что можно вынести на формочку для универсальности.
Не считаю это решение оптимальным, но работает прекрасно. Я использую часто, только без цикла.

СПАСИБО!!! Это то что мне нужно!!!

Hugo121nikalex2, 3 года на SQL, и всё ещё жизнь не заставила изучить?
C:\Program Files\Microsoft Office\Office\MSQRY32.EXE запустите, если есть...

и Вам спасибо!!! Сижу читаю Help по MsQuery ))) пока ещё не въехал)))

Возник другой вопрос!!!
А как теперь эту таблицу экспортировать в Word ???

Hugo121nikalex2, получилось с MsQuery?
Насчёт Excel2Word - вот тут в конце есть информация, можно переделать.

с MsQuery не разобрался ещё, я так понял эта примочка для создания запросов, надо help читать))) спасибо за ссылку, щас гляну)))

Всем ещё раз привет!!!

С экспортом из Excel в Word не разобрался :(
Но возник другой вопрос
Как применить код предложенный zchvv ,но чтобы если в листах есть формулы, то при экспорте эти формулы оставались???

Заранее благодарю!

Hugo121Хотя я сейчас проверил - мне не помогает, всё равно при Union формулы пропадают.

я тоже проверил, пропали (

zchvvHugo121,

согласен. Тогда код немного изменяется:

zchvv , вы супер!!! То что нужно!!!
А почему в первом случае копировалось вместе со структурой (у меня строки были сгруппированы)
А в этом случае группировка пропадает???

zchvvВ догонку: надеюсь, Вы исследовали код и поняли, что он всего лишь заготовка. Для достижения вашей цели его нужно творчески переработать. Например, на форму вынести номера 1-го (это необязательно буквально 1-й!) и последнего листа, с которых копируем. Также можно задавать номер листа, на котором собираем итоговую таблицу. И т.п.. Желаю успеха!

Да да Спасибо! Исследовал! Сижу уже дорабатываю!!!
Вот мне тока не понятно, сижу сравниваю оба кода, в первом случае со структурой копирует, а во втором без))) Непонятна... :-)

zchvv сделал как вы посоветовали!!! Теперь копирует вместе со структурой!!!

zchvvnikalex2,

ОК. Всегда рад помочь.

zchvv а вы не в курсе возможно ли сделать следующее:

я присвоил ячейкам например A1 некое имя например SYSTEM1, ячейке A2 имя SYSTEM2, ячейке A3 имя SYSTEM3 и т.д. которые используются в формулах.
создал UserForm на которую поместил TextBox
так вот чтобы при запуске макроса Копирования (который Вы написали) выскакивала моя UserForm где в TextBox я бы вводил например SYSTEM2
и после этого во всех формулах ссылки менялись на SYSTEM2 ???

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

забыл прикрепить)))

zchvv!

Здравствуйте! Ваш код в принципе то что мне и нужно. Спасибо!
Попробовал применить в своей таблице, но возникла ошибка
в вашем примере на Листе1 я добавил формулу и вот на ней то и выдает ошибку
Ещё что заметил, так это то что меняются значения в формулах (которое я ввожу в TextBox) и на Листе1 и Листе10 А в моем случае необходимо чтобы на Листе1 не менялось а только копировалось с заменой на Лист10

Здравствуйте!

То что вы предлагаете подходит в моем случае, но есть одно но
мне необходимо чтобы он менял значения только в скопированных ячейках
т.е. я нажал один раз ввел на что мне необходимо поменять например SYSTEM4, заменилось и вставилось
нажал второй раз ввел SYSTEM4, заменилось и вставилось
а не во все листе
Возможно так???

Здравствуйте!

zchvv попробовал применить Ваш код, но...
под мою задачу не прошло :-(

у меня формулы типа =СУММЕСЛИМН(BASE!$O$2:$O$25000;BASE!$A$2:$A$25000;SYSTEM1;BASE!$D$2:$D$25000;"Duct";BASE!$E$2:$E$25000;"Гофр";BASE!$F$2:$F$25000;"100")

после того как запускаю ваш код формула приобретает вид =СУММЕСЛИМН(BASE!$O$2:$O$25000;SYSTEM2;"100")

т.е. часть формулы просто удаляется, соответственно ничего не работает :-(

Насчет А3, там тоже формула =SYSTEM... т.е. в этой ячейке тоже должно меняться на то значение которое я ввожу в InputBox

P.S. я в параметрах вычисления в настройках Excel устанавливаю "Вручную" (много формул, постоянное автоматическое вычисление занимает много времени), а после запуска кода он переключается на "Автоматическое" Непонятно.

Может мне скинуть Вам файл с моей задачкой??? Файл больше чем 100 кб, может Вам на email скинуть???

Valll я что то типа того что Вы предлагаете и пытаюсь осуществить. Т.е. у меня на одном листе создано что то типа ШАБЛОНА(который в процессе работы может меняться). Потом (когда ШАБЛОН будет окончательно доработан) необходимо его n-ое количество раз размножить в другой лист с заменой n-раз одного единственного условия в формуле (в моем случае это "SYSTEM")
Но что то не получается никак :-(

Заранее Всем благодарен!

Hugo121 Спасибо за совет
в строке
Application.Calculation = xlCalculationAutomatic заменил на Application.Calculation = xlCalculationManual простите новичка))) сразу незаметил

Здравствуйте, zchvv

архивировал, но объем 1,6 мб
там много формул

вот я залил http://files.mail.ru/7L72N1
я там в кратце изложил суть задачи
Если будут замечания, предложения и т.п. по моему проекту в плане улучшения, усовершенствования буду ОЧЕНЬ признателен!!! :-)