gling, Спасибо огромное !!!
Пример вполне достоен.
И из него возьму "вдохновение "
Супер!!!  

Исправил в первом сообщении строку
Ну что то типа того, что например А1 чёрная  и через секунду В1 чёрная, ну а А1 снова без заливки. И т.д. по строке.  До какой то определённой ячейки в строке, до 10 например, а потом вниз на 5 ячеек по столбцу.
Вместо В2, имел ввиду В! .
Извиняюсь.
Т.е. прошел по строке , например на 10 ячеек и потом по столбцу вниз, ну например на 5.

Мистер Экселистор, У меня нет

Нет. Доходит до определенной ячейки и останавливается.
И движение только вперед.

Не огонек, а ячейка выделяемая черным, а затем следующая за ней. Не имел ввиду смайлы ))

Ссылка пустая

Доброго времени суток.
Подскажите пожалуйста, как сделать типа бегущего огонька по строке из ячейки в ячейку.
Ну что то типа того, что например А1 чёрная  и через секунду В1 чёрная, ну а А1 снова без заливки. И т.д. по строке.  До какой то определённой ячейки в строке, до 10 например, а потом вниз на 5 ячеек по столбцу.
Не формулой. Кодом.  

Первый опыт с таблицей. По этому и не совсем понятно, что и куда
Мне просто понять , для примера хотя-бы,  как правильно собирать данные  и чтобы отрабатывал фильтр . Файл тестовый .

Привет всем.
Что не получается собрать данные с вкладок каждого месяца и потом в таблице их фильтровать.
Например какое количество ручек было выдано бухгалтерии в январе.
В инете посмотрел похожие решения, но что то не получилось реализовать.
Подскажите пожалуйста, как это победить.
Спасибо.

Отлично. Вы профи  
Огромное Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

...Юрий , главное положительный результат )

В11 пусто, ставлю курсор на F 11 , щелкаю  DEL или стрелку (т..е. стереть) , а В 11  отрицательное число.

Хорошо. выделение теперь не выдает ошибку. Но DEL и стрелка теперь снова дают минусы в пустые ячейки.
Может все назад вернуть ?

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

Отлично. Все работает как нужно. Но ругается на эту строку Case Is = "Х", "X", "х", "x": Flag = True  , если пытаюсь выделить несколько ячеек

Думаю уже нет. Не совсем понятен мне код . До этого я еще не дорос )

Это мной понятно, но написал то как работает.

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

Диапазон рабочих ячеек ,  которые обозначены в коде ,должен работать только  с X . На любые другие символы, не может быть ни каких вычислений.  Если X  ставим в F11 то F23 суммируется  к В11. Если  X удаляем из  F11 , то F23 минус от B11.  И ни  на какой другой символ , букву, цифру  вычисления не должны совершаться.
И так же не должно быть ни каких вычислений , если DEL  щелкнуть на пустую ячейку.
А с ОТЧИСТИТЬ СОДЕРЖИМОЕ  , я понял.

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

Результат в столбце В , уходит в отрицательное число , если внести в диапазон заданных ячеек любой другой символ , кроме Х .
Щелкнув  Del на пустой ячейке в этом же диапазоне , тоже уходит в отрицательное значение .
И содержимое диапазона , не очищается если кликнуть ОЧИСТИТЬ СОДЕРЖИМОЕ .
Вот такие проблемы . )

Ничего не получается  

Все хорошо, но , есть 3 момента .
1. При случайной ошибке , ставя в ячейку не Х , результат в столбце В уходит в минус .
2. Тоже самое и происходит , если по любой пустой ячейке , в пределах обозначенного диапазона , щелкнуть DEL.
3. Если применить к диапазону ОЧИСТИТЬ СОДЕРЖИМОЕ ,  то результаты из столбце В , не обнуляются .
Как это победить , ни как не " вывозу".
Пожалуйста.

Волшебник !!!!
Спасибо !!!
Работает !!!
да..., чайник я .. )

Спасибо большое !!!

Думал стоки в коде поменяю и будет работать

Все работает Юрий. Спасибо БОЛЬШОЕ !!!
Упс. Но работает только для одного сотрудника.
Поменял строки в коде, и не хочет работать
If Not Intersect(Target, Range("F12:BE12")) Is Nothing Then
Понимаю что сделал что то не так, но не знаю что

Теперь ни как не " вывезу" , как  это все расписать на каждую неделю для одного сотрудника . С таким же подсчетом .

Спасибо Юрий !!!
То что нужно  

Извиняюсь , это моя не внимательность . Копировал только код , без события .  

В строку с условием сделал добавление и выдает ошибку. Файл приглашаю. Комментарий написал в  в строке куда сделал добавление .