копирование строки по условию цвета - Microsoft Office Excel

rinariari · 14.04.2011, 18:59

День добрый.

Не могу что-то додуматься. видимо нужен макрос или что-то вроде того.

Имеем:
строки задач со значениями в ячейках.
первая ячейка строки помечена цветом задача закрыта или зеленый закрыта неполностью

Требуется чтобы в скрипте были введены нужные условия
(перечисление нужных кодов цвета ячейки который можно вытащить функцией
Public Function Color(Cell As Range)
Color = Cell.Interior.ColorIndex
End Function )

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

в итоге на нужном листе получим список активных задач

на листе со всеми задачами первая ячейка помечается красным фоном т.е. задача закрывается - лист должен обновляться с учётом этого

есть идеи как это лучше реализовать?

was3110 · 15.04.2011, 07:17

Тут несколько моментов (задач).
цикл с отбором по условию цвета фона ячейки If Cell.Interior.ColorIndex=? Then ....
Строку скопировать на указанный лист - другая задача.
Обновление листа2 по событию на листе1 - третья задача.
Найдете меня через профиль, пришлете на ящик свои файлы - сделаю...

rinariari · 15.04.2011, 10:57

Отправил на почту найденную через профиль )

rinariari · 18.04.2011, 10:49

Огромное спасибо за код, всё отлично работает!

К сожалению только сегодня смог проверить и возник вопрос

activ2 не выдирает

в коде не нашёл такую константу, только

If col = aktiv Then

как правильно сделать чтобы не только по activ искал но и по aktiv2 ?

что-то типа If col = aktiv or aktiv2 Then

?

vikttur · 18.04.2011, 11:14

kim показывал пример использования "недомакросов" (макрофункций) для определения цвета заливки. ТОП_ЛЕВОЙ_ЛАПОЙ

rinariari · 18.04.2011, 13:14

Задача реализована. спасибо was3110

AnutaGr · 27.07.2012, 16:37

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

AnutaGr · 27.07.2012, 16:46

пример.rar
Вот детальное описание проблемы.
Кто то может пмочь с написанием макроса на копирование по условию?

14.04.2011, 18:59	#1
rinariari Регистрация: 14.04.2011 Сообщений: 4	копирование строки по условию цвета День добрый. Не могу что-то додуматься. видимо нужен макрос или что-то вроде того. Имеем: строки задач со значениями в ячейках. первая ячейка строки помечена цветом задача закрыта или зеленый закрыта неполностью Требуется чтобы в скрипте были введены нужные условия (перечисление нужных кодов цвета ячейки который можно вытащить функцией Public Function Color(Cell As Range) Color = Cell.Interior.ColorIndex End Function ) чтобы строка, где была найдена ячейка удовлетворяющая условию, копировалась в указанный лист в итоге на нужном листе получим список активных задач на листе со всеми задачами первая ячейка помечается красным фоном т.е. задача закрывается - лист должен обновляться с учётом этого есть идеи как это лучше реализовать? Последний раз редактировалось rinariari; 14.04.2011 в 19:02.

15.04.2011, 07:17	#2
was3110 Форумчанин Регистрация: 25.04.2010 Сообщений: 254	Тут несколько моментов (задач). цикл с отбором по условию цвета фона ячейки If Cell.Interior.ColorIndex=? Then .... Строку скопировать на указанный лист - другая задача. Обновление листа2 по событию на листе1 - третья задача. Найдете меня через профиль, пришлете на ящик свои файлы - сделаю... помогать студентам - моя вторая профессия

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
удаление строки по условию	avmarafon	Microsoft Office Excel	2	08.01.2011 23:52
Изменение цвета поля по условию	timesoon	Microsoft Office Access	0	02.06.2010 09:33
Копирование данных по условию.	sirius24	Microsoft Office Excel	6	06.04.2010 09:17
Отбор данных по условию и копирование на новый лист	Эдик12	Microsoft Office Excel	4	03.03.2010 23:16
Окрашивание строки по условию	legion-mia	Microsoft Office Excel	5	10.09.2009 09:11

15.04.2011, 10:57	#3
rinariari Регистрация: 14.04.2011 Сообщений: 4	Отправил на почту найденную через профиль )

18.04.2011, 10:49	#4
rinariari Регистрация: 14.04.2011 Сообщений: 4	Огромное спасибо за код, всё отлично работает! К сожалению только сегодня смог проверить и возник вопрос activ2 не выдирает в коде не нашёл такую константу, только If col = aktiv Then как правильно сделать чтобы не только по activ искал но и по aktiv2 ? что-то типа If col = aktiv or aktiv2 Then ?

18.04.2011, 11:14	#5
vikttur Участник клуба Регистрация: 16.05.2010 Сообщений: 1,249	kim показывал пример использования "недомакросов" (макрофункций) для определения цвета заливки. ТОП_ЛЕВОЙ_ЛАПОЙ

18.04.2011, 13:14	#6
rinariari Регистрация: 14.04.2011 Сообщений: 4	Задача реализована. спасибо was3110

27.07.2012, 16:37	#7
AnutaGr Новичок Джуниор Регистрация: 06.07.2012 Сообщений: 2	У меня такая же проблема, нужно чтобы со всех листов, ячейки , содержащие текст "FYR" копировались на первый лист. И данные обновлялись, когда добавляются новые записи на листы. Помогите, пожалуйста с макросом, очень нужно.

27.07.2012, 16:46	#8
AnutaGr Новичок Джуниор Регистрация: 06.07.2012 Сообщений: 2	пример.rar Вот детальное описание проблемы. Кто то может пмочь с написанием макроса на копирование по условию?