Собрать данные в ячейку

Пользователь

Сообщений: 256 Регистрация: 01.01.1970

20.02.2017 14:58:08

Здравствуйте.
Помогите дописать код: Как можно определить где закрашенные красные ячейки для Фамилии в B18, номера закрашенных ячеек в 3-м рядке. Результат нужно выдать в ячейку С18.

Прикрепленные файлы

Книга1.xlsm (18.96 КБ)

Kuzmich

Пользователь

Сообщений: 8043 Регистрация: 21.12.2012

20.02.2017 15:36:00

Код
...... For Each x In Range(Nomer.Offset(0, 1), Nomer.Offset(0, 13)) If x.Interior.Color = 255 Then Txt = Txt & Cells(3, x.Column).Value & "," End If Next x Range("C18").Value = Left(Txt, Len(Txt) - 1)

Виталий Пользователь Сообщений: 256 Регистрация: 01.01.1970	#3 20.02.2017 15:39:37 Спасибо, работает