{quote}{login=The_Prist}{date=12.08.2010 11:27}{thema=}{post}Вообще вот так попробуйте.  
=ЕСЛИ(E3<>"";ЕСЛИ(ЕНД(ВПР(E3;прайс!$A$2:$C$7;3;0));ЕСЛИ(ЕНД(ВПР("*"&E3&"*";прайс!$B$2:$C$7;2;0));"0";ВПР("*"&E3&"*";прайс!$B$2:$C$7;2;0));ВПР(E3;прайс!$A$2:$C$7;3;0));"")  
 
P.S. Что сегодня, день непуганных бегемотов? Все три файла с превышением размера. {/post}{/quote}  
 
The_Prist - Большое спасибо! Проверил и уже с большим удовольствием пользую - время уйма экономится!  
Может разъясните почему у меня файл с примером такой большой получился?

Да, с размером промах вышел. 700КВ - не понятно откуда, а в архиве 160 - тоже много за две таблички 10на10 и 20 формул. Может уважаемый Z пояснит?  
Делал пример в 2010, а сохранил для 2003 - проблема в этом?  
 
Для Z™:  
"...будьте вежливы и терпеливы"    
"...вам обязательно помогут. Один ум - хорошо, а два сапога - пара!"  
 
Спасибо Borodets, но, к сожалению, Ваш вариант не подходит.  
прикрепил архив примера  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Доброе время суток!    
Очевидно тема такая поднималась, но найти не смог :(  
ВПР ищет по первому столбцу, а искомые значения могут находится и в первом и во втором (но уже в тексте) столбце. Пример в файле.  
Необходим либо макрос по переделке прайса чтобы работала ВПР (это предпочтительнее), либо другая формула.  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

{quote}{login=Dophin}{date=21.03.2010 04:37}{thema=}{post}ПСТР возможно поможет.{/post}{/quote}  
Воспользовался Вашим советом - спасибо!

{quote}{login=Юрий М}{date=21.03.2010 04:33}{thema=}{post}Если в ячейке такой симовл,- может быть это уже не число?{/post}{/quote}  
 
Может не полностью описал задачу, итак:  
этот символ перед числом ввел преднамеренно - с этой же ячейкой работает формула  
=СУММПРОИЗВ((Свод!$A$2:$A$1000=$A14)*(Свод!$B$2:$B$1000=$A$12)*(Свод!$C$2:$C$1000=B$12)*(Свод!$H$2:$H$1000))  
без этого символа  формулу =СУММПРОИЗВ заставить работать не смог  
 
готов рассмотреть любые варианты.

Здравствуйте знатоки EXCEL!  
У меня вопрос:  
есть такая формула    
=ЕСЛИ(C2-9=$K$2;"ЗАКАЗ";ЕСЛИ(C2>$K$2;C2-9;""))  
в ячейке С2 может появится любое число с таким символом - #    
результат работы формулы -  #ЗНАЧ!  
как этого избежать не удаляя такие символы?

Большое спасибо Kuzmich! Очень выручили! Начинаю грызть VBA :)

{quote}{login=poll69}{date=19.03.2010 07:11}{thema=Re: Re: Re}{post}{quote}{login=poll69}{date=19.03.2010 05:33}{thema=Re: Re}{post}{quote}{login=Kuzmich}{date=18.03.2010 11:22}{thema=Re}{post}Посмотрите вариант{/post}{/quote}  
 
Kuzmich Огромнейшее СПАСИБО! Все здорово работает!{/post}{/quote}  
Выявился нюанс: в месяце бывает 4 недели, бывает 5 недель - данные по пятой неделе не отображаются :(- как с этим быть? Пример - в файле{/post}{/quote}  
 
И еще : хотелось бы еще один столбик иметь - с именами Листов, пожалуйста...

{quote}{login=poll69}{date=19.03.2010 05:33}{thema=Re: Re}{post}{quote}{login=Kuzmich}{date=18.03.2010 11:22}{thema=Re}{post}Посмотрите вариант{/post}{/quote} Kuzmich Огромнейшее СПАСИБО! Все здорово работает!{/post}{/quote} <BR>Выявился нюанс: в месяце бывает 4 недели, бывает 5 недель - данные по пятой неделе не отображаются :(- как с этим быть? Пример - в файле <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

{quote}{login=Kuzmich}{date=18.03.2010 11:22}{thema=Re}{post}Посмотрите вариант{/post}{/quote}  
 
Kuzmich Огромнейшее СПАСИБО! Все здорово работает!

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

{quote}{login=Kuzmich}{date=10.03.2010 10:17}{thema=Re}{post}Попробуйте так:  
Замените строку с (xlPasteAll)  
на  
ShtIn.Cells(iLastRowBaza + 1, 1).PasteSpecial _  
                       (xlPasteValuesAndNumberFormats)  
ShtIn.Cells(iLastRowBaza + 1, 1).PasteSpecial _  
                       (xlPasteFormats){/post}{/quote}  
 
Огромнейшее спасибо! Все получилось! Теперь все как надо :)  
До новых встреч!

{quote}{login=Kuzmich}{date=09.03.2010 09:07}{thema=Re}{post}Посмотрите такой вариант  
ShtIn.Cells(iLastRowBaza + 1, 1).PasteSpecial(xlPasteAll){/post}{/quote}  
 
В исходных Книгах в ячейках содержатся формулы. Предыдущие варианты переносили значения - здо`рово, но форматирование не сохранялось - данные тяжело воспринимаются, т.к. нет границ и заливки. По последнему варианту таблица переносится вместе с формулами - граница и заливка сохраняется, но в ячейках получаем #ЗНАЧ!  :(

{quote}{login=poll69}{date=09.03.2010 01:45}{thema=Re: Re}{post}{quote}{login=Kuzmich}{date=09.03.2010 01:17}{thema=Re}{post}А что пишет, когда ругается?  
Книга4 должна содержать лист Итоги  
в А1 - февраль и отдел измените на отдел 4  
Книга4 должна быть в той же папке, где и    
три предыдущих{/post}{/quote}  
 
Да, точно у меня Листа Итоги не было - исправил и заработало!  
Завтра попробую на реальных файлах - обязательно отпишусь. Спасибо!{/post}{/quote}  
 
Попробовал на реальных файлах - значения переносятся, все работает, только не сохраняется форматирование (границы, заливка). Можно оставить форматирование исходного или конечного файла-оно одинаковое. Вот бы еще это победить ;)

{quote}{login=Kuzmich}{date=09.03.2010 01:17}{thema=Re}{post}А что пишет, когда ругается?  
Книга4 должна содержать лист Итоги  
в А1 - февраль и отдел измените на отдел 4  
Книга4 должна быть в той же папке, где и    
три предыдущих{/post}{/quote}  
 
Да, точно у меня Листа Итоги не было - исправил и заработало!  
Завтра попробую на реальных файлах - обязательно отпишусь. Спасибо!

{quote}{login=Kuzmich}{date=09.03.2010 10:42}{thema=Re}{post}On Error GoTo ErrHandler  
   Wb.Sheets("Лист1").Range("A3:N1000").Clear  
       iTempFileName = Dir(iPath & "*.xls")  
       Do While iTempFileName <> ""  
           If iTempFileName <> Wb.Name Then  
                    iNumFiles = iNumFiles + 1{/post}{/quote}  
 
C этим разобрались:)  
Как теперь изменить допустимое кол-во Книг в папке? - попробовал добавить еще одну - ругается! Сейчас у меня 2 Книги, будет 4, а дальше - черт его знает...

{quote}{login=Kuzmich}{date=08.03.2010 04:22}{thema=Re}{post}Добавьте в макрос строчку  
очистки диапазона на Лист1,    
где добавляются итоги.  
Wb.Sheets("Лист1").Range("A3:N1000").Clear  
и будет ОБНОВЛЕНИЕ данных!{/post}{/quote}  
 
Добавил в этом месте:  
Set ShtIn = Wb.Sheets("Лист1")  
                 Wb.Sheets("Лист1").Range("A3:N1000").Clear                                    Set ShtOut = tWb.Sheets("Итоги")  
 
и получил что добавляются данные только из Книги3. Может не втуда вставил?

{quote}{login=Kuzmich}{date=08.03.2010 02:03}{thema=Re}{post}Всех женщин с праздником!  
С праздником женским, началом весны,  
С первой весенней проталинкой!  
Будьте здоровы и счастливы вы,  
Успехов больших вам и маленьких!  
 
В прикрепленном архиве макрос "ДобавлениеИтогов"  
В книгах в ячейке А1 месяц, за который идет  
добавление итогов, в С1 - отдел.  
Запустите макрос и в диалоговом окне выберите  
папку с файлами.  
Если число книг будет меняться, то надо предусмотреть  
очистку диапазона на Лист1, где добавляются итоги.  
Удачи!{/post}{/quote}  
 
Нужно ОБНОВЛЕНИЕ данных! А у Вас каждый раз добавляются новые диапазоны - это совсем не то что надо. Может еще есть варианты?

Доброе время! Женщин - с праздником!  
Наверное такая тема обсуждалась, но найти не смог ни на форуме ни в -iнете...  
Подскажите в каком направлении двигаться.  
Задача: есть несколько Книг, в каждой Книге есть ЛистИтоги на котором с Листов Книги, по средством формул собирается некая информация. Формат всех Листов и Книг одинаковый. Книги хранятся в одной папке.    
Необходимо в Книгу_Сбор на Лист1 поместить значения (текстовые и числовые)со всех Книг с ЛистовИтоги друг под другом. Картинка того что надо в примере.  
Данные в Книгах могут меняться, но кол-во строк и столбцов - постоянное  
При открытии Книги_Сбор данные должны обновляться (если даже исходные книги закрыты)

Да, все здо`рово! Спасибо!

Доброе время суток Форуму! Женскую половину с наступающим праздником!  
Есть макрос:  
Sub перенос_значений()  
  Application.ScreenUpdating = False      
   Selection.Copy  
   Sheets("Лист2").Select  
   Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
Sheets("Лист1").Select  
ActiveCell.Offset(-10, 0).Select  
Selection.Copy  
Sheets("Лист2").Select  
Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
Sheets("Лист1").Select  
    ActiveCell.Offset(10, 0).Select  
    Selection.ClearComments  
    Selection.AddComment  
    Selection.Comment.Visible = False  
   Selection.Comment.Text Text:="Шаман:" & Chr(10) & "Все здорово!"  
 Application.ScreenUpdating = True  
End Sub  
 
Вопрос №1: как убрать "муравьинное выделение" ячейки после его работы ?  
Вопрос №2: как сделать чтобы макрос запускался только когда выбрана ячейка в  строке 11, а в других случаях выдавал сообщение "Выбрана не верная ячейка!"  
Вопрос №3: макрос создает примечание - по окончании его работы необходимо чтобы примечание оставалось открыто для заполнения.  
 
Жду ответа, как соловей лета!

Уважаемые Юрий М и The_Prist!  
 
По порядку:  
Есть некая таблица "А" (строки - это недели в году)в каждой ячейки которой - формула. Эти формулы берут и обрабатывают значения (в соответствии заданному УСЛОВИЮ) из таблицы "В". Работает замечательно, но при ручной коррекции значений в ячейках таблицы "А" меняются соответствующие параметры таблицы "В" (так и задумано - дальше, т.е. на следующие недели года нужны данные с учетом коррекции )и все значения в строке до этой ячейки (текущей недели)тоже меняются. Вот и надо было из всех ячеек заданного общего диапазона до текущей коррекции удалять только формулы, а что введено в ручную - оставлять.    
   Пока писал сам почти запутался.  
Дальше про обходной путь: раз так не получилось - допер, что правильнее менять УСЛОВИЕ в соответствии с новыми данными и тогда формулы их обработать уже не будут (ВПР ИСТИНА их почуять не сможет), поэтому и возникла необходимость в одновременном (одним макросом) копировании из двух ячеек в таблицу, в к-ой формируются УСЛОВИЯ.  
    Сам запутался и Людей запутал.  
 
В общем, все мои обращения на сей уважаемый форум (еще с января)направлены на выполнение одного замечательного и большого проекта. Благодаря Вам задача эта стала для меня вполне решаемой. Спасибо! Искренне надеюсь на продолжение общения.

{quote}{login=poll69}{date=27.02.2010 06:27}{thema=Re:}{post}{quote}{login=Юрий М}{date=26.02.2010 08:18}{thema=}{post}Выделяем ЯЧЕЙКИ, в которых нужно удалить формулы... А Вы только одну выделяете.{/post}{/quote}  
 
В единичном случае - да, но таблицы большие и работа эта постоянная, да и операторы ПК... Очевидно по моим условиям решения нет, будем искать обходные пути. Умный в гору не пойдет - умный гору обойдет :) Спасибо всем!{/post}{/quote}  
 
Про обходные пути -    
Записал такой макрос:  
Sub ()  
   Selection.Copy  
   Sheets("подсобка").Select  
   Range("B2").Select  
   ActiveSheet.Paste  
   Sheets("L4_310").Select  
End Sub  
Копирует содержимое выделенной ячейки и вставляет в определенную ячейку на другой лист.  
Но не могу сообразить как  этим же макросом из пересечения строки "4" и этого же столбика (где выделена ячейка)скопировать значения в ячейку "А2" листа "подсобка"

{quote}{login=Юрий М}{date=26.02.2010 08:18}{thema=}{post}Выделяем ЯЧЕЙКИ, в которых нужно удалить формулы... А Вы только одну выделяете.{/post}{/quote}  
 
В единичном случае - да, но таблицы большие и работа эта постоянная, да и операторы ПК... Очевидно по моим условиям решения нет, будем искать обходные пути. Умный в гору не пойдет - умный гору обойдет :) Спасибо всем!

{quote}{login=The_Prist}{date=26.02.2010 06:08}{thema=Re: макрос для удаления формул}{post}{quote}{login=poll69}{date=26.02.2010 06:05}{thema=макрос для удаления формул}{post}Пример: строка S16-BW16, выделена ячейка Z16, необходимо удалить только формулы из диапазона S16-Y16{/post}{/quote}Здрасьте. Ну и примерчик!  
строка S16-BW16  
выделена Z16  
удалить S16-Y16  
 
На фиг тогда нам знать про BW16?  
В любом случае, вот код, который удалить все формулы, не затрагивая константы, в выделенном диапазоне.  
 
Selection.Specialcells(xlFormulas).ClearContents{/post}{/quote}  
 
До указанного диапазона (т.е. A16-R16) и после выделенной ячейки (в примере это Z16 и соответственно диапазон AA16-BW16) ничего удалять не надо! Извиняюсь, что не внятно выразился :), ну вот еще и пример:

Доброе всем время суток!  
 
Необходима помощь: требуется макрос для удаления ТОЛЬКО ФОРМУЛ (значения должны остаться).  
Есть строка, в которой есть и формулы и значения - необходимо удалить все формулы левее выделенной ячейки. Пример: строка S16-BW16, выделена ячейка Z16, необходимо удалить только формулы из диапазона S16-Y16

{quote}{login=тухачевский}{date=24.02.2010 08:46}{thema=}{post}вариант расчета необходимости ТО{/post}{/quote}  
 
НЕ РАБОТАЕТ! Может у кого есть еще варианты?

{quote}{login=тухачевский}{date=24.02.2010 08:46}{thema=}{post}вариант расчета необходимости ТО{/post}{/quote}  
 
Интересная формула. С массивами я еще не пробовал работать. Буду разбираться. Спасибо!

{quote}{login=vikttur}{date=24.02.2010 06:02}{thema=}{post}Из Вашего примера - ТО проходятся каждые 1, 2,...,5 тысяч км.  
Пробег 3915 км. Получается, в ячейке должно быть ТО-1, ТО-2 и ТО-3 вместе?    
Объясните точнее или  в примере распишите ТО по ячейкам{/post}{/quote}  
 
Заполнена формулами только 15-я строка

Доброе время суток всем форумчанам! Проблема такая - необходимо заполнить таблицу Технического Обслуживания автомобиля. Есть предполагаемый пробег на весь год - необходимо заполнить график ТО по пробегу.  Есть такая формула:=ЕСЛИ(ЕНД(ВПР(AA$4;$BT$1:$BU$337;2;ИСТИНА));"";ВПР(AA$4;$BT$1:$BU$337;2;ИСТИНА)) -  диапазон BT1:BU337 - табличка с соответствием пробега и ТО. Работает замечательно, но если ТО провели раньше или позже графика (при другом пробеге) - формула этого не учитывает и весь смысл планирования теряется... Может понятней будет на макете: