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

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

Доброго времени суток, форумчане!  
С помощью 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.

Добрый день, форумчане, и снова прошу вашей помощи. На форуме уже много раз обсуждалось "добавление значения к содержимому ячейки", но специфика моего примера не позволила мне найти подобия. Особенность заключается в том, что при вводе в ячейку к ней добавлялось слово в зависимости от таблицы автоматически по нажатию на enter (не по кнопке). Проблема заключается в том что полученное значение должно автоматически добавится в пополняемые список. В этом и загвоздка. Пробовал через СЦЕПИТЬ, но список автосортируется, через вспомогательную ячейку и формулу (например в ячейке O5)=M5&" "&"HQ", но мы вводим значения в O5, и M5 не является активной, соответственно в список не попадает. Более подробно о том что должно быть на выходе в прикрепленном файле.

Добрый вечер.  
У меня вопрос по выпадающему списку с добавлением новых элементов, представленный в приемах работы в Microsoft Excel http://www.planetaexcel.ru/tip.php?aid=98 , не подскажете ли как сделать чтобы при удалении через ячейку D2 (клавишей Del), значение удалялось бы также со всего списка колонки A. Спасибо

Я - начинающий макросодел. Раньше (неделю назад) и не знал, что это такое,  работа с формулами проблем не составляет. Но возникла задача где формулами ни как. Весь алгоритм того что мне нужно сделать я понимал, облазил весь поиск, находил нужные команды, но связать и слепить мне необходимое не получалось. Вот так я попал на "планету", но первоначальная радость куда-то растворилась, когда обратившись за помощью я не получил ни одного ответа (!!!), даже такого как - "такое не возможно" или "сформулируй правильно вопрос". В итоге начал бороздить интернет. И теперь хочу помочь начинающим, в силу своих возможностей. В приложенном документе Вы сможете найти чуть менее трехста различных макросов и не только повысить свой уровень по освоению макросов, но и сэкономить свое время.  
Файл - txt, так что копируем в Word и юзаем на здоровье.

Доброго времени суток форуму. Прошу оказать помощи в написании макроса. В документе есть три листа, макрос первого скрывает соответствующие строки во втором и третьем листах для каждой пустой ячейки диапазона D5:D24 на первом листе. Собственно, к сути... Пытаюсь решить задачу, и прошу вашей помощи, по написанию макроса, который скрывал бы строки диапазона 5-24,где есть пустые ячейки (но только из диапазона D5:D24) и оставлял бы раскрытой строку с первой пустой ячейкой. На конкретном промере из прикрепленного файла.  
Лист "Inputs"  
5  - отображается т.к. не пустая  
6  - отображается т.к. не пустая  
7  - отображается т.к. D7 первая пустая ячейка диапазона D5:D24  
8  - отображается т.к. не пустая  
9  - отображается т.к. не пустая  
10 - отображается т.к. не пустая  
11 - отображается т.к. не пустая  
12 - не отображается т.к. уже есть пустая ячейка D7  
и т.д. вплоть до строки 24  
при введении данных в ячейку D7 раскрывается строка с первой пустой ячейкой т.е. D12.  
Заранее спасибо.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>