Спасибо огромное всем!!! получилось!!!

Михаил, подскажите пример - один список на все ячейки.  
 
И, всем большое спасибо за помощь!!!

И тишина...

Добрый день, форумчанам. Поработал с финальной версией файла (post_280299), усилил макросом сортировки, чтобы избавится от пустых ячеек, но неожиданно после того когда удалены  все имена  (столбец A оказывается чистым)  и вводится новое имя (теоретически должно занять ячейку A1), появляется окно ошибки  
Run-time error '1004': Metod 'Range' of object '_Rorksheet' failed.  
Подскажите как исправить.  Спасибо

Спасибо Вам, добрый человек, все работает.

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

а зачем тебе символ тильда "~"

{quote}{login=Владимир}{date=21.03.2011 05:17}{thema=}{post}..?{/post}{/quote}

{quote}{login=Extrime}{date=18.09.2008 05:01}{thema=Re: }{post}{quote}{login=vikttur}{date=18.09.2008 04:57}{thema=}{post}Зачем имена?  
=ЕСЛИ(D6>1000;D6*G3;D6*H3){/post}{/quote}  
Можно и так. Но, например, если очень много процентных ставок, то их легче прописывать в формулы и листы с помощью имен. Согласитесь, вед понятней будет так:  
меньше_1000  
больше_1000  
меньше_2000  
больше_2000  
больше_3000  
меньше_3000,  
чем:  
A1  
A2  
A3  
A4  
A5  
A6... Не так ли?{/post}{/quote}  
 
 
А как Именно ето прописать?  
Чтоб зависимость була не в двух а в пяти?

вкладка Данные - Структура - промежуточные итоги

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

помогите, не пойму что делать

Игорь, спасибо,недолго поковырялся в вашем файле и ответ нашел. Только опцию Delete для вставки помянял на Insert и все заработало как надо. WT - название именованного диапазона, 6 - количество ячеек в таблице после которых надо вставить строку.  
   
Sub insertRow2()  
Dim r As Long, unRng As Range  
 
Application.ScreenUpdating = False 'обновление экрана  
 
If Range("WT").Row > 6 Then  
   Set unRng = Union(Range("B" & Range("WT").Row + 6), Range("B" & Range("WT").Row + 6))  
   unRng.EntireRow.insert  
Else  
   MsgBox "Добавить строку", vbInformation, "Добавление"  
   Application.ScreenUpdating = True  
   Exit Sub  
End If  
 
Application.ScreenUpdating = True  
 
End Sub

У меня на листе две независимые таблицы в каждой из которых независимо друг от друга должна вставляться строка при нажатии кнопки с макросом. Господа профессионалы, пожалуйста подскажите как написать макрос. чтобы в последней строке таблицы добалялась (удалялась) пустая строка.При этом добавление в обе таблицы должно производиться самостоятельной кнопкой и соответственно макросом.

Как можно упростить таблицу?    
Сильно большой файл получается!  
Ежедневно я забиваю в эту таблицу данные, по накладным.  Когда появляется новый клиент, я тупо копирую столбцы и все начинаю заново. Подскажите пожалуйста как можно упростить мой труд. Хотелось бы чтобы я мон сразу и наглядно увидеть по какой накладной и когда у меня купил тот или иной клиент. Также нужно чтобы считались остатки по каждому товару после продажи.

Павел ....просто ОГРОМНОЕ СПАСИБО...будут вопросы задам Вам...

Помогите объед данные... пример в файле.  
помогите плиз. спасибо

Уважаемые друзья планеты Excel, Слэн, Нюша!!!, Volodshan, Igor67…  
Сейчас просмотрел, это отлично, благодарю Вас….!!!....огромное спасибо  
С Уважением Roman

Уважаемые друзья…может я не правильно описал задачу…  
Условия вот какие:  
 
1. A1=0, B1=0, C1=0, D1=0  “Больше года”  
2. A1>0, B1>0, C1>0, D1>0  “Нормально”  
 
3. A1>0, B1>0, C1>0, D1=0  “Менее года”  
 
4. A1>0, B1>0, C1=0, D1=0   “Менее года”  
 
5. A1>0, B1=0, C1=0, D1=0   “Менее года”  
 
6. т.е. если (к примеру) A1>0, B1=0, C1>0, D1>0  A1>0, B1=0, C1=0, D1>0 это не входит условие “Менее года”  
 
помогите написать и объединить 5 пунктов в одну формулу… Благодарю Всех кто помогает!!!

Доброго дня всем кто на планете Excel!  
Помогите реализовать задачу…плиз  
Задача вот какая…  
 
В ячейках A1=0; B1=0; C1=0; D1=0    
Нужно выполнить условие ….если в этих ячейках стоят нули, то тогда выполняется условие “Более года” Если в этих ячейках данные больше 0, тогда “все нормально”, но если в A1>0 B1=0 C1=0 D1=0 тогда “Менее года”…, это может быть и A1>0 B1>0 C1>0 D1=0 “Менее года”…..помогите составить формулу плиз…можно ли это сделать.  
Спасибо….