Извиняюсь, видно что-то напутал (или руки не так заточены). Спасибо большое за помощь, все работает. С наступающими праздниками.

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

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

Спасибо, Добрый Дедушка Мороз, за подарок. С наступающими праздниками всех.

Доброй ночи, Hugo. Вы правы, уже месяц как борюсь с файлом, а началось все с календарика. Как-то пообещал индусу и кенийцу, что облегчу их работу, и как говорится "Назвался груздем, полезай в кузов (полизал, вылазь)". Теперь борюсь...  
Почти все 75 сообщения сделанные мной посвящены этому файлу, но отсутствие опыта и практики делают свое дело и продвигаясь на пути к успеху, сталкиваясь с другими проблемами, часть решений приходится заменять. Но думаю, где-то через неделю уже получу финальный результат. За помощь огромное спасибо, за все время проведенное на сайте (а это, поверьте мне каждый день) сложилось некоторое мнение о том кто есть who, и вы к этому ху не относитесь, так как всегда на связи и всегда помогаете и Ваши 7016 это ответы на помощь, а не просто "чат". Спасибо

Ok, из выпадающего списка ячейки Е47 страницы "BATTLE ORDER" выбираем "MICB ПИТЕР" (такого значения в таблице "MICB" пока нет) происходит ошибка, т.к. макрос как цель ищет "MICB ПИТЕР", вместо поиска таблицы "MICB" (названия таблицы). Если в ячейке Е47 страницы "BATTLE ORDER" выбираем "MICB МОСКВА", то копируется в ячейку Е37 (так как уже есть в таблице значение "MICB МОСКВА" макрос находит его использует как цель и копирует в ближайшее пустое место после т.е. Е37, а не в начало таблицы Е32)

Доброго времени суток, существует задача (и макрос) в которой происходит изменение положения строк в зависимости от цели, но проблема заключается в том, что искомое значение не соответствует заданной (для таблиц второго листа MICB, Check In, Check Out). Например (см. файл) при перемещении среди городов (через выпадающий список), где название города соответствует названию таблицы все происходит без проблем, но при перемещении, например из "САМАРА" в таблицу "CHECK IN" значения "CHECK IN САМАРА" макрос ищет "CHECK IN САМАРА", которого нет, а нужно искать просто "CHECK IN", что на этот момент цель для макроса. И, как следствие, происходит ошибка- если в таблице уже есть "CHECK IN САМАРА", то значение вместо первой пустой строки в таблице переносится в первую возможность от заполненных, а если  в таблице "CHECK IN САМАРА" еще нет, то выдает ошибку. Прошу помощи в редактировании макроса, если возможно. Спасибо.

Вот вариант круговой...

{quote}{login=RAN}{date=03.12.2011 01:16}{thema=}{post}Roman  
 
If Target < 50{/post}{/quote}  
 
Этот пример я взял из другой темы, где все крутилось вокруг цифры 50 - если больше, то..., если меньше то... Подставив в в свой файл все продолжало работать как надо, по этому я решил лишний раз не лезть. На тот момент я не знал даже как расшифровывается VBA, а вот теперь знаю. Спасибо Планете, спаибо ребятам, спасибо Вам.

k61, звените что не зразу написал, был занят - танцевал :). Отдельное спасибо за оперативность. Буду пробовать изменить...

k61, Вы правы в примере post_284027 листов Inputs и BATTLE ORDER нет, они находятся в post_283813.rar (из второго сообщения темы) это файл и есть моя задача но с проблемой в макросе. По просьбе RANа 01.12.2011, 23:12, я описал работу макроса. И выложил пример (post_284027) в котором макрос, что я использовал под себя, но в пример для одной ячейки, и ни как не получается переделать под диапазон.  
Тут ночью пытался что-нибудь "родить" и натолкнулся на мысль,- а что если эту часть макроса убрать. Так как количество переменных постоянное, в столбце B:B сделать список (через формулу типа =Т(G26) и т.д.), сравнить два столбца и через VBA удалить "лишнее", т.е. не уникальные значения. Про удаление дубликатов (уникальных)интернет пестрит, а про не уникальных пока не нашел. Кто-нибудь сталкивался ли со сравнением двух столбцов и удалением именно не уникальных значений?

Может как-нибудь макросом сравнить список и ячейки в таблицах и удалить несоответствие?

Есть два листа  - Inputs и BATTLE ORDER. Лист Inputs сделан для того чтобы в него вводить данные о городах где работает персонал.  Города  для работы, командировки, «пенсии» и стажировки могут меняться и для каждой таблицы могут быть разные.  Для Москвы, например, люди могут находиться в разных местах для этого и приходится разграничивать на - Москва, Москва Командировка, Москва Стажер, Москва Пенсионер, чтобы дать понять в какую таблицу на листе BATTLE ORDER их отнести.  На листе Inputs все введенные значения попадают в список столбца А:А, переводятся в заглавные (для эстетики),  и сортируются по-алфавиту. Так же на листе Inputs в таблице Location происходит следующее действие. В итоге разных городов может быть до 20, но может быть и меньше, по-этому ячейки  таблицы отведенных для городов, где нет названия города автоматически скрываются, оставляя только одно пустое поле для ввода нового города. Также ячейки  таблицы отведенных для городов влияют на скрытие (раскрытие) таблиц для персонала листа BATTLE ORDER.  
Основной лист это BATTLE ORDER. На нем из раскрывающегося списка (столбец Е:Е), который мы создали и отсортировали на листе Inputs (столбец А:А), мы выбираем новый город, для того или иного человека и вся строка с его информацией копируется в соответствующую таблицу.  
Проблема в том, что столбец А:А – рабочий столбец и будет скрыт, если нет возможности автоматического удаления из списка, через некоторое время в раскрывающемся списке будет весь атлас мира, а должно быть только те города, где есть люди. Вроде описал. Так все вроде работает кроме улаления.

Вот файл в котором на одну Target.Address срабатывает как надо, а на две и более уже нет.

Попробовал удалить все, оставил только  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
 
If Target.Cells.Count > 1 Then Exit Sub  
     If Not Intersect(Target, [G26:G30,J5:J23,L10:L17,M10:M17]) Is Nothing Then
       If Not IsEmpty(Target) Then iName = Target  
       If IsEmpty(Target) And iName <> "" Then  
           If MsgBox("Do you want to delete a name '" & iName & "' from the list?", vbYesNo, "Attention!") = vbYes Then  
               Dim Rng As Range  
               Set Rng = ActiveSheet.Columns(1).Find(iName, , xlFormulas, xlWhole)  
               If Not Rng Is Nothing Then  
                   Rng.ClearContents  
                   iName = ""  
               End If  
           End If  
           Exit Sub  
       End If  
       If Not IsEmpty(Target) Then  
           On Error Resume Next  
           If WorksheetFunction.CountIf(Range("Teams"), Target) = 0 Then  
                   Range("Teams").Cells(Range("Teams").Rows.Count + 1, 1) = Target  
                   If Err = 1004 Then  
                       [A1] = Target
                       Err.Clear  
                   End If  
           End If  
       End If  
  End If  
End Sub  
Срабатывает только один раз. Для второго раза необходимо кликнуть по ячейке ни чего не изменяя нажать Enter после этого срабатывает еще один раз.

Проблема в том, что макрос "слепил" из нескольких, и знаниями о VBA не обладаю.    
А возможно ли как-нибудь обойти эту проблему?

Увы... не получилось

Спасибо, так, действительно, макрос меньше. Но проблема осталась.

{quote}{login=GIG_ant}{date=01.12.2011 02:52}{thema=}{post}  
 
на вот такую:  
If Not Intersect(Target, [G26:G30], [J5:J23], [L10:L17], [M10:M17]) Is Nothing Then ...{/post}{/quote}
 
Значения не попадают в список А:А

Спасибо, попробую

А вот и файлик...

Доброго времени суток, форумчане!  
С помощью KukLP, Hugo, Student, Pavel и k61 (воспользуюсь еще одной возможностью поблагодарить - благодарю), "я" сделал программку для учета передвижений персонала. Но есть небольшая, но ВАЖНАЯ проблема в макросе на удаление из ячейки через MsgBox. Вот макрос:  
If Target.Cells.Count > 1 Then Exit Sub  
    If Target.Address = "$G$26" Or Target.Address = "$G$27" Or Target.Address = "$G$28" _  
Or Target.Address = "$G$29" Or Target.Address = "$G$30" Or Target.Address = "$J$5" _  
Or Target.Address = "$J$6" Or Target.Address = "$J$7" Or Target.Address = "$J$8" _  
Or Target.Address = "$J$9" Or Target.Address = "$J$10" Or Target.Address = "$J$11" _  
Or Target.Address = "$J$12" Or Target.Address = "$J$13" Or Target.Address = "$J$14" _  
Or Target.Address = "$J$15" Or Target.Address = "$J$16" Or Target.Address = "$J$17" _  
Or Target.Address = "$J$18" Or Target.Address = "$J$19" Or Target.Address = "$J$20" _  
Or Target.Address = "$J$21" Or Target.Address = "$J$22" Or Target.Address = "$J$23" _  
Or Target.Address = "$L$10" Or Target.Address = "$L$11" Or Target.Address = "$L$12" _  
Or Target.Address = "$L$13" Or Target.Address = "$L$14" Or Target.Address = "$L$15" _  
Or Target.Address = "$L$16" Or Target.Address = "$L$17" Or Target.Address = "$M$10" _  
Or Target.Address = "$M$11" Or Target.Address = "$M$12" Or Target.Address = "$M$13" _  
Or Target.Address = "$M$14" Or Target.Address = "$M$15" Or Target.Address = "$M$16" _  
Or Target.Address = "$M$17" Then  
       If Not IsEmpty(Target) Then iName = Target  
       If IsEmpty(Target) And iName <> "" Then  
           If MsgBox("Do you want to delete a name '" & iName & "' from the list?", vbYesNo, "Attention!") = vbYes Then  
               Dim Rng As Range  
               Set Rng = ActiveSheet.Columns(1).Find(iName, , xlFormulas, xlWhole)  
               If Not Rng Is Nothing Then  
                   Rng.ClearContents  
                   iName = ""  
               End If  
           End If  
           Exit Sub  
       End If  
       If Not IsEmpty(Target) Then  
           On Error Resume Next  
           If WorksheetFunction.CountIf(Range("Teams"), Target) = 0 Then  
                   Range("Teams").Cells(Range("Teams").Rows.Count + 1, 1) = Target  
                   If Err = 1004 Then  
                       [A1] = Target
                       Err.Clear  
                   End If  
           End If  
       End If  
  End If  
При удалении из интересующих ячеек через Del и добавлении в ячейку не срабатывает MsgBox, хотя если Target.Address оставить одну - все работает.    
...  
If Target.Address = "$G$26" Then    
...  
и возможно ли сделать срабатывание MsgBox если удаление происходит для группы ячеек через Seleсt - Del.

Огромное СПАСИБО, вот теперь то, что доктор прописал :)  
Для тех кому, может быть, понадобиться что-нибудь подобное, выкладываю финал:  
Автоматическое добавление значения к содержимому ячейки, с последующим добавлением в пополняемый раскрывающийся список, отсортированный по алфавиту.

Пардон, что-то прилепилось с другой темы...  
 
Счет добавлен через ЕСЛИ(ЕПУСТО(...);"";СЧЁТЗ($...:...))), если вообще ненужен, то Del Вам в помощь :)

{quote}{login=antal10}{date=29.11.2011 05:09}{thema=Re: re: antal10}{post}{quote}{login=k61}{date=29.11.2011 02:27}{thema=re: antal10}{post}Исправлено:  
 
Возможно ли убрать нумерацию вообще? Если нет, то в принципе все равно огромная благодарочка.{/post}{/quote}  
 
Сивупле...  
счет добавлен через ЕСЛИ(ЕПУСТО(...);"";СЧЁТЗ($...:...))), если вообще ненужен, то Del Вам в помощь :)

{quote}{login=k61}{date=29.11.2011 02:47}{thema=re: повторяясь около 90 раз.}{post}Так добавляем один раз:  
...  
Application.EnableEvents = True  
End Sub{/post}{/quote}  
Прошу прощения что ввел в заблуждение, но работает не совсем так как надо.  
Испытания на различных вариантах выявили пару багов:  
При удалении из списка макрос снова срабатывает и снова прописывает добавочное значение.  
Про расширении диапазона Case    
...  
Target = Target & " HQ"  
Case [E3]
Target = Target & " HQ"  
Case [E4]
Target = Target & " HQ"  
Case [E5]
Target = Target & " HQ"  
...  
добавочное значение начинает появляться в любое активной ячейке на всем листе.  
Подскажите, пожалуйста, что не так (может я макрос неправильно внедрил). Вот файл с примером ошибок. Заранее спасибо.

Счётчик просмотра темы может также срабатывать при переходе с поиска другим новичком, я сам когда бороздил поиск, по несколько раз выходил на те же самые темы. Кто-то может просто заглянуть (посмотреть чего другие хотят). Даже количество загрузок не будет в полном объеме отражать истины но будет более близка к реальности.

Так как в теме общаются Гуру у кого 2000 пОстов и более наберусь наглости вынести на рассмотрение такой вопрос. При обращении с просьбой о помощи можно часами нажимать F5 и не понимать от чего нет ответа. Возможно ли, как нибудь это исправить, может счетчик на просмотр прикрепленного файла. И тогда обратившийся хоть как-нибудь будет знать,что кто-то пытался и не смог. А если мало скачек то тогда можно уточнить постановку вопроса или понять что отсев по моральным признакам или еще что-нибудь.

Переделал пример ставил только макрос сортировки А:А по алфавиту, и макрос  на добавление в список.

Я наверное плохо объяснил или всех напугал тем что много чего должно получиться. В примере убрал все лишнее. Оставил только макрос на добавление в список.  
И теперь еще раз:  
при вводе любых текстовых данных в ячейку E2 после нажатия enter к введенному значению автоматически должно добавиться, к примеру HQ. Насколько я понимаю только при таком способе добавления в моем примере полученное значение попадет в список.  
Все до чего я дошел так это    
 
If Target.Address = "$E$2" Then  
Cells(2, 5).Formula = Cells(2, 5) & " " & "HQ"  
 
но "HQ" прописывается циклом и в итоге оно прилепляться хвостом повторяясь около 90 раз. Помогите, плз, с этой ячейкой, а остальные я уж сам, надеюсь, занесу в макрос. Спасибо.