{quote}{login=The_Prist}{date=08.12.2011 09:04}{thema=Re: }{post}{quote}{login=Artem}{date=08.12.2011 07:52}{thema=}{post}Вот файлик для реестра, но он только макросы включает, итерации не нашел({/post}{/quote}Чем варианты выше не устроили?{/post}{/quote}  
 
Лично меня, всем устроили, но вдруг кому-то такой вариант понадобится.

....

Вот файлик для реестра, но он только макросы включает, итерации не нашел(

Просто уберите пароль на открытии книги.

А это для любой строки, так на всякий, вдруг пригодится

Тогда так

Как-то вот так

{quote}{login=}{date=30.11.2011 05:12}{thema=}{post}Но и мне он платит копейки, ...  
{/post}{/quote}  
 
А если платит копейки то пусть использует Ctrl+F, Ctrl+C и Ctrl+V для составления отчетов)

Вы конечно извините, но Ваш работодатель зарплату платит не мне...

Может всетаки не список, а обычная группировка?

I'm sorry)

Может так? (3-й лист)  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

{quote}{login=nvinog}{date=29.11.2011 12:50}{thema=Re: }{post}{quote}  
А когда добавляешь новый город, или организацию, сводную нужно заново составлять? Я пытаюсь обновить сводную после того как добавила еще один город и фирму, а новые данные в ней не обновляются :-({/post}{/quote}  
 
Там диапазон выбран только со значениями которые были, измените диапазон и все будет ок)

F1  )))

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

{quote}{login=nvinog}{date=29.11.2011 12:27}{thema=Re: }{post}{quote}{login=Artem}{date=29.11.2011 12:05}{thema=}{post}Так?{/post}{/quote}  
 
 
А нельзя сделать так, чтобы каждый город был на новом листе?{/post}{/quote}  
 
 
Можно, создайте на каждом листе сводную таблицу)    
но по-моему проще в фильтре выбрать нужный город)

Файл-Параметры-Настройка ленты

Так?

Двойной щелчок на листе 2

вот

Как-то так

Либо как вариант номера столбцов которые должны попасть в итоговый отчет.

А можно вариант этих таблиц на русском или хотябы на английском, а то с украинским совсем засада)

{quote}{login=Mobsman}{date=18.11.2011 01:45}{thema=}{post}If ComboBox1.Value <> "" Then  
r = Sheets(3).Range("D1:D65000").Find(What:=ComboBox1.Value, SearchOrder:=x1ByRows, SearchDirection:=x1Next).Row  
TextBox6.Value = Worksheets(3).Cells.Value  
End If  
 
Почему не срабатывает для TextBox6?{/post}{/quote}  
 
О_о x1ByRows, x1Next, Worksheets(3).Cells.Value  Это что? Вы первый раз пишете макрос?

А не проще сделать лист в этой книге со всеми заказчиками и уже из него выбирать?

Как-то так

{quote}{login=Inter_E}{date=16.11.2011 10:38}{thema=Re: }{post}{quote}{login=Artem}{date=16.11.2011 10:21}{thema=}{post}Не переделывая структуру источника нельзя{/post}{/quote}  
 
А источник простой. Думаете от него будет что то зависеть ? :-) Могли бы от самой сводки обратно выгрузить в принципе ))). Вот прикрепляю тоже на всякий случай. Заранее огромное спасибо!{/post}{/quote}  
 
 
Структуру источника я и без примера представлял, Excel в принципе не поймет как делить столбец на самого себя... в вашем случае столбец количество.

Не переделывая структуру источника нельзя

Как-то так

Сорри... так эти строки наоборот останутся))  
 
lr = ActiveSheet.Range("A1").CurrentRegion.Rows.Count  
i = 1  
while i <=lr  
Rows(i+1).Delete Shift:=xlUp  
Rows(i).Delete Shift:=xlUp  
i = i+1  
lr = ActiveSheet.Range("A1").CurrentRegion.Rows.Count  
Wend