файл примера есть. Все описано. В т.ч. в файле примера есть столбец сумма по цвету.  

Ваше сообщение вообще не по теме. Зачем писать, если помочь не можете. Ничего сверхестественного в этой задаче нет.

Как сделали понял.
И все равно в этом случае я не могу суммировать по цвету через:
т.к. ячейки по итогу не имеют заливки для этой функции

прикладываю пример.

Если делать в первый столбец "формат по образцу" на основе второго форматированного столбца
1) Будет уже совсем другая раскраска т.к. цифры другие.
2) Ячейки не будут иметь физического цвета для применения вот этой функии по суммированию в зависимости от цвета http://www.planetaexcel.ru/techniques/9/162/

Есть 2 столбца.  
На один из столбцов применил условное форматирование и раскрасил ячейки с цифровыми данными в нужные цвета в зависимости от величины.
Как перенести цвета этих ячеек в соседний столбец?

в принципе нашел решение:

просто конечно, но это только все усложняет. Манипулирование сразу из 2х файлов, при этом из второго файла вручную.  Связка, которая все только усложняет.

Ситуация такая.
Есть бланк. Данные для полей которого берутся из экселевской таблицы.
Необходимо на определенную дату сформировать заполненные бланки и сохранить их в ворд или pdf (не знаю как будет лучше).

1 этап: Сделал форму ввода данных (т.е. формирование БД).
2 этап: формирование бланков.
  - сделал фильтрацию для формирование бланков на нужную дату,... отсюда вытекает вопрос (я смогу перебрать отфильтрованные данные для построчной манипуляции ?) Как оперировать остатками таблицы? Я же получается не смогу делать +1 строка и перебирать столбцы,... и как понять что это за строка?
  - пытался найти что-нибудь простое и понятное для заполнения шаблона ворд,  ... ничего понятного и стоящего не нашел. Может кто подскажет в этом направлении
  - если шаблон перенести в лист excel и подставлять в ячейки, я так понимаю возникнет проблема переноса строк? (н-р в 8 пункте где указывается орган выдавший документ


Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]  
67 кб файл??? в правилах файл до 100 кб [topic creater]
Было 2 файла ОБЩИМ объемом >100 кБ [МОДЕРАТОР]  

ксати, не понятно где дом, где корпус.

ну фильтр с сортировкой же работает, по какому принципу у вас сортируется я не понял. если сортировать: по дому, корпусу, улице, то получается такое

{quote}{login=avacha}{date=05.10.2010 02:42}{thema=выписка банка}{post}Ребята помогите пожалуйста!!!!скопировал выписку бакнка в excel из последнего столбца извлек даты,и неполучается применить их в других формулах.Подскажите ,что нужно сделать{/post}{/quote}  
 
1) зачем копировать этот макрос в ваш документ  
2) банковские данные не нужно размещать в интернет  
3) каким место и где вы извлекли дату  
 
В общем и целом ничего не ясно

Условия расчета ЗАГСА не понял, разъясните

excel'вский документ без макроса и формы для ввода.  
 
Вы же даже простую форму ввода не сделали.  
 
А рисовать и делать ее полностью не хочется. И к тому же главный вопрос заключался в выводе календарика а не в создании формы полностью.

поиск работает.    
 
http://www.planetaexcel.ru/tip.php?aid=53

решил делать так. Заново открывать документы и уже туда добавлять :)

видел. знаю. не подойдет.  
 
Нужно чтобы автоматически перебирал и сохранял файл с названием города, а там максимум можно сохранить один общий файл

Можно как то вставлять данные из excel в word по меткам.  
 
Документ excel:  
____________________________________________________________­_______  
| город   | показатель1 | показатель2 | показатель3 | показатель4 |  
|_________|_____________|_____________|_____________|_____________|  
 
Например вордовский документ:    
                                 
                            Начальнику г. <cityname>  
 
 
         Служебная записка  
____________________________________________________________­_____  
| город   | показатель1 | показатель2 | показатель3 | показатель4 |  
|_________|_____________|_____________|_____________|_____________|  
|<citname>| <f1>        |  <f2>       |  <f3>       |  <f4>       |  
|_________|_____________|_____________|_____________|_____________|  
 
 
Чтобы перебирал excel'вский документ(построчно) и сохранял вордовский с названием вставляемого города.

нашел решение первой проблемы: в начале не было прописано Option Explicit

{quote}{login=Hugo}{date=24.08.2010 12:45}{thema=}{post}Трудно в кракозябрах разбираться, но попробуйте  
ReDim arrOut(20, 0)  
заменить на  
ReDim arrOut(19, 0)  
Этот массив с 0 начинается.{/post}{/quote}  
 
там 21 столбец

{quote}{login=Hugo}{date=24.08.2010 09:05}{thema=}{post}Про разметку - можно макросом задать, но мне кажется, что она и сама нормально встать должна, по крайней мере по ширине в один лист уместится.  
 
Вместо yandex лучше webmoney - их можно за границу вывести :) и пополнить тоже...{/post}{/quote}  
 
в том то и дело что шапка большая и умещается только на альбомном листе с узкими краями и масштабом 74%.

{quote}{login=Hugo}{date=24.08.2010 09:17}{thema=}{post}Цитата:  
"Ща буду под свою задачу делать."  
это как? Задача сильно отличается? Код рассчитан на неограниченное количество строк, единственная привязка - данные с А2, под данными в А пусто и 4-е столбца.  
И посмотрел ещё раз печать - на этих данных и устанавливать нечего - самый длинный Бузулук - 13 строк всего.{/post}{/quote}  
 
{code}  
Sub GenerateFailiki()  
 
Dim wbpath As String, c As String  
Dim ws As Worksheet  
Dim iLastrow As Long, arrcnt As Long, cnt As Long, i As Long, outcnt As Long  
Dim arr, arr2, arr20, arrAll, aa, bb  
Dim Dict As Scripting.Dictionary  
' Íóæíî óñòàíîâèòü: Tools-References - Microsoft Scripting Runtime  
 
With Application  
.DisplayAlerts = False  
.ScreenUpdating = False  
'.Calculation = xlCalculationManual  
 
 
wbpath = ThisWorkbook.Path & "\"  
Set ws = ThisWorkbook.Sheets(1)  
iLastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row  
 
arrAll = Range(ws.Cells(15, 1), ws.Cells(iLastrow, 21))  
arr = Range(ws.Cells(15, 1), ws.Cells(iLastrow, 1))  
 
Set Dict = New Scripting.Dictionary  
 
For Each aa In arr  
arrcnt = arrcnt + 1  
arr2 = Split(aa, " - ")  
 
c = CStr(arr2(0))  
 
With Dict  
If Not .Exists© Then  
i = i + 1  
.Add CStr©, i  
ReDim arrOut(20, 0)  
   arrOut(0, outcnt) = "¹ ï/ï"  
   arrOut(1, outcnt) = "Îêðóã"  
   arrOut(2, outcnt) = "Ãîðîä"  
   arrOut(3, outcnt) = "Ìåíåäæåð"  
   arrOut(4, outcnt) = "×åë."  
   arrOut(5, outcnt) = "Ðóá."  
   arrOut(6, outcnt) = "×åë."  
   arrOut(7, outcnt) = "Ðóá."  
   arrOut(8, outcnt) = "Ðóá."  
   arrOut(9, outcnt) = "ÎÁÙÈÉ, %"  
   arrOut(10, outcnt) = "Øò."  
   arrOut(11, outcnt) = "Ðóá."  
   arrOut(12, outcnt) = "Ñðåäíèé, %"  
   arrOut(13, outcnt) = "Ìåñòî ïî àêò. êë. äî 90 äí."  
   arrOut(14, outcnt) = "Ìåñòî ïî ïîðòôåëþ äî 90 äí."  
   arrOut(15, outcnt) = "Ìåñòî ïî ÊÓÏ"  
   arrOut(16, outcnt) = "Ìåñòî ïî % îïîçäàíèé"  
   arrOut(17, outcnt) = "Ñóììà áàëëîâ"  
   arrOut(18, outcnt) = "Èòîãîâîå ìåñòî"  
   arrOut(19, outcnt) = "Ìåñòî â ïðåäûäóùåì ðåéòèíãå"  
   arrOut(20, outcnt) = "Èçìåíåíèå"  
 
For Each bb In arr  
cnt = cnt + 1  
arr3 = Split(bb, " - ")  
   If CStr(arr20(0)) = CStr© Then  
   outcnt = outcnt + 1  
   ReDim Preserve arrOut(3, outcnt)  
   arrOut(0, outcnt) = arrAll(cnt, 1)  
   arrOut(1, outcnt) = arrAll(cnt, 2)  
   arrOut(2, outcnt) = arrAll(cnt, 3)  
   arrOut(3, outcnt) = arrAll(cnt, 4)  
   arrOut(4, outcnt) = arrAll(cnt, 5)  
   arrOut(5, outcnt) = arrAll(cnt, 6)  
   arrOut(6, outcnt) = arrAll(cnt, 7)  
   arrOut(7, outcnt) = arrAll(cnt, 8)  
   arrOut(8, outcnt) = arrAll(cnt, 9)  
   arrOut(9, outcnt) = arrAll(cnt, 10)  
   arrOut(10, outcnt) = arrAll(cnt, 11)  
   arrOut(11, outcnt) = arrAll(cnt, 12)  
   arrOut(12, outcnt) = arrAll(cnt, 13)  
   arrOut(13, outcnt) = arrAll(cnt, 14)  
   arrOut(14, outcnt) = arrAll(cnt, 15)  
   arrOut(15, outcnt) = arrAll(cnt, 16)  
   arrOut(16, outcnt) = arrAll(cnt, 17)  
   arrOut(17, outcnt) = arrAll(cnt, 18)  
   arrOut(18, outcnt) = arrAll(cnt, 19)  
   arrOut(19, outcnt) = arrAll(cnt, 20)  
   arrOut(20, outcnt) = arrAll(cnt, 21)  
   End If  
Next  
cnt = 0  
With Workbooks.Add  
.Sheets(1).Range("A1:U" & outcnt + 1) = Application.Transpose(arrOut)  
.Sheets(1).Cells.Select  
.Sheets(1).Cells.EntireColumn.AutoFit  
 
With .Sheets(1).Range("A1:U1").Interior  
    .ColorIndex = 6  
    .Pattern = xlSolid  
End With  
 
.Sheets(1).Range("A1").Select  
 
.SaveAs wbpath & CStr© & ".xls"  
.Close False  
End With  
outcnt = 0  
 
End If  
End With  
 
Next  
'.Calculation = xlCalculationAutomatic  
.ScreenUpdating = True  
.DisplayAlerts = True  
 
MsgBox "Ready!!!", 64, "Êîíåö"  
 
End With  
 
End Sub  
{/code}  
 
Я вот не пойму почему он выводит ошибку type mismatch, вроде ничего такого не менял.

{quote}{login=R Dmitry}{date=23.08.2010 09:37}{thema=Re: подстановка значение из excel в word}{post}{quote}{login=d31m07y1988}{date=23.08.2010 09:31}{thema=подстановка значение из excel в word}{post}можно как то подставлять данные из excel с автоматическим перебором и сохранением.{/post}{/quote}  
 
наверное сюда  
http://www.programmersforum.ru/forumdisplay.php?f=19{/post}{/quote}  
вот это бы подошло но нет ответа http://www.programmersforum.ru/showthread.php?t=110950

{quote}{login=Саня}{date=23.08.2007 11:49}{thema=ВБА}{post}Как сделать шобы оно работало?  
mn = Range("C66")  
Rows("(mn+4):63").Hidden = True{/post}{/quote}  
 
А тут гл.ошибка по моему это кавычки.  
 
Rows(mn+4 & ":63").Hidden = True

можно как то подставлять данные из excel с автоматическим перебором и сохранением.

{quote}{login=Михаил}{date=23.08.2010 05:37}{thema=}{post}Как вариант{/post}{/quote}  
 
это не вариант. надо чтобы автоматически перебирал и копировал на новый лист(книгу). Смысл в этой таблице?

рассылать будут другие люди

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

{quote}{login=Hugo}{date=23.08.2010 04:13}{thema=}{post}И вот Вы сказали "огромна" - это сколько строк?  
А может это текстовый файл?{/post}{/quote}  
ну ладно, просто большой. ~ 500    
 
ну в этой задаче это в принципе не играет большой роли.    
 
И да резать по первой "-" в принципе можно, для целей сравнения. (есть город Йошкар-Ола, будут сравниваться Йошкар). Главное не резать дальше по этой ячейке (н-р Оренбург - Соль-Илецк)

{quote}{login=Hugo}{date=23.08.2010 03:45}{thema=}{post}Как будет выглядеть маршрут из Усть-Илимска в Усть-Каменогорск? И всегда ли будет именно так написано?{/post}{/quote}  
Что за маршрут? не очень понял

просто в дополнение(для других): Как вариант если упростить и названия городов одинаковые. Можно как то сделать?

просто хотя бы мнения и предложения.  
 
Делал эту вещь с ручным выделение и запуском макроса, т.е. каждую группу городов отдельно выделяем с последующим запуском макроса. Но в этом случае слишком долго выполняется разметка страницы.