Страницы: 1
RSS
Перенос групп ячеек одного цвета на новый лист
 
Добрый день!
Понимаю, что скорее всего прошу невозможного, но попробовать стоит.
Есть табель учета рабочего времени. Каждый сотрудник в течении месяца работал на разных складах. В общем табеле передвижения сотрудников выделяются цветом, по итогу нужно разделить итоговый табель на отдельные табели по каждому складу.
Можно ли как-то это сделать?
Нашла макрос, который позволяет выделять ячейки одного цвета. Но скопировать их не получается, т.к. "невозможно скопировать несвязанные диапазоны" и "команда неприменима для разных фрагментов". Можно конечно удалять содержимое выделенных ячеек неподходящего цвета, но цветов очень много.
Также нашла макрос, который переносит выделенные ячейки с одного листа на другой, но делает это он в столбик, стирая пустые строки и столбцы.
Заранее спасибо! :-)
 
Один из возможных вариантов во вложении.
Чем шире угол зрения, тем он тупее.
 
как вариант использовать UDF.
Код
Function Сравнить_цвет(Проверяемая_ячейка As Range, Шаблон_цвета As Range)
   Сравнить_цвет = IIf(Проверяемая_ячейка.Interior.Color = Шаблон_цвета.Interior.Color, Проверяемая_ячейка.Value, "")
End Function
 
Огромное спасибо! Работает! 8-0  Даже не надеялась  :)  
Страницы: 1
Наверх