Благодарствуем:) Хотя я никуда не уходил, только временно отлучался:)

Макросы, дополнительные столбцы... Предпочитаю по возможности обходиться без них:) Вариант в файлике.

{quote}{login=Z}{date=22.10.2008 02:23}{thema=}{post}Докладываю:  
- очки и экран монитора протираю регулярно,  
- размагничиваю,  
- масштабирую,  
- меняю разрешение и частоту, "температуру",  
- варьирую яркость и контрастность....    
А башка  кругом идет от попыток что-то прочитать на форуме...  
Может только у меня такое?{/post}{/quote}  
Проделываю аналогичные манипуляции (ну почти:)) с тем же результатом. Проблема явно в подборке цветов и контраста. Ну плюс качество монитора сказывается, естессно..

Вот читаю тему, а текст перед глазами "двоится", хотя размер шрифта уже вроде бы и увеличен... может, из-за новой цветовой гаммы (контраст? цвета?) или масштабирования? При прошлом дизайне такого не замечал, а нынешний какой-то более агрессивный, что ли - доминирует желание уместить великое в малом... Смотрю другие темки, но уже через 5 мин физически устают глаза, вынужден вообще прекращать работу. Да, редизайнинг необходим (сам приветствую это), но уж слишком резко взят поворот:)

Да, изменения кардинальные и явно в лучшую сторону:) Только вот одно "но" - слишком мелкий шрифт сообщений. Про прочтении тем со множеством постов текст просто сливается. Возможно, это просто субъективное впечатление, но все же...  
ЗЫ. Да, знаю, можно масштаб в браузере менять, но мне предыдущий размер как-то удобнее был:)

Ай, скобку забыл:)  
=СУММ(F2*Лист1!$A$2*(H2+G2=0);G2*Лист1!$B$2* (H2+F2=0);H2)*1,02

А если без ЕСЛИ, то вот так еще можно:)  
=СУММ(F2*Лист1!$A$2*(H2+G2=0);G2*Лист1!$B$2* H2+F2=0);H2)*1,02

Странно, что вы не видите готового решения по указанной ссылке. Там все очевидно для вашего случая:  
ActiveWorkbook.SaveAs Filename:= "C:\OUT\GD1000" & GD10000.[b4] & ".txt", ...

Да, да, про D&D наслышан:) Один из прародителей, так сказать, всех ролевых игр:) Информация о связанных списках:  
http://www.planetaexcel.ru/tip.php?aid=64

Вот, если без макроса...

Как вариант: присвойте каждой формуле "=впр(книгаN)" короткое имя, а потом просуммируйте все имена (я так понимаю, их будет не более 11...)

Если на первой строке With Workbooks("extra table").Sheets("dontdelete"), то можно попробовать заменить Workbooks("extra table") на ThisWorkbook, т.к. макрос находится в этой же книге.

Легко:)  
=СУММПРОИЗВ(--((СМЕЩ(B2;;;СЧЁТЗ(B:B)-1)>СМЕЩ(B2;;1;СЧЁТЗ(B:B)-1))*СМЕЩ(B2;;1;СЧЁТЗ(B:B)-1)>0))/(СЧЁТЗ(B:B)-1)  
PS. Не плодите топики)

Ну если это вас так интересует...:)  Два минуса - для преобразования значений "ИСТИНА" и "ЛОЖЬ" в "1" и "0" соответственно.

iLastRow = Sheets(Sheets("Лист3").[a1].value).Cells(Rows.Count, 1).End(xlUp).Row

Макрос вам действительно не нужен, как и список, впрочем, тоже. Просто используйте формулу "=СУММПРОИЗВ(--(СМЕЩ(B2;;;СЧЁТЗ(B:B)-1)>СМЕЩ(B2;;1;СЧЁТЗ(B:B)-1)))/(СЧЁТЗ(B:B)-1)" без всяких промежуточных вычислений. Добавленные в таблицу новые данные также будут обрабатываться.

А можете просто протянуть формулу:  
="ИдДок: 2128705960**21300100120082310"&ТЕКСТ(D1;"00000")

Делаем попроще:)

С макросом, сдается мне, как-то напряжно:) Предлагаю вариант с формулой - просто протащите ее на нужное количество строк, пока не транспонируются все элементы массива (образец - в файлике)

Попробуйте Rows("2:" & sheets("Лист2").[a1]).Select

Марина, то, что вы ставите задачу целиком - это хорошо, а плохо то, что не показываете, какие сводные таблицы хотите получить. Пару примеров по разным критериям для одного из листов были бы кстати.

Возможно, некорректно обрабатываются обращения к ячейкам 2-й книги из-за неявного указания где-то в макросе ссылки на них (например, адрес ячейки без привязки к определенному листу нужной книги либо ссылка на лист без имени книги). Покажите файлик если можно.

Да, я знаю. Но основываясь на последнем посте автора, склоняюсь именно к озвученному варианту (работает для "лист.диапазон", не работает для просто "диапазон" или "строка")...

Похоже, не указан родительский объект Rows, потому что Rows в данном случае интерпретирутся VBA как "безхозное" свойство, а не как самостоятельный объект. Попробуйте использовать ActiveSheet.Rows вместо Rows.

Эку вы дискуссию развернули:) Да еще и макрос прикрутили. А ведь все проще можно сделать:  
1. Вписываем в любую пустую ячейку 1,18  
2. Копируем эту ячейку  
3. Выделяем нужный диапазон  
4. Выбираем в меню "Правка" - "Специальная вставка" и внизу отмечаем чекбокс "разделить"  
5. Жмем "ОК"  
6. Удаляем 1,18 из ячейки.

=A1^(5/3)

Да, и для строк тоже самое:)

Очевидно, вы имеете ввиду, как получить неактивную серую область после столбца К? Просто скройте все столбцы после К:)

П1, П2, П3 - это имена, которые присвоены формулам, вытягивающим нужные данные из соответственно 1, 2 и 3 листа файла "Предприятие". Посмотреть "именованые" формулы, а также присвоить новые имена вы можете в меню "Вставка"-"Имя"-"Присвоить".

Марина, вы задаете похожие вопросы, и начинаете издалека:) На будущее озвучивайте всё задание сразу, а не по кусочкам.