Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Собрать данные в ячейку
 
Здравствуйте.
Помогите дописать код: Как можно определить где закрашенные красные ячейки для Фамилии в B18, номера закрашенных ячеек в 3-м рядке. Результат нужно выдать в ячейку С18.
 
Код
......
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)
 
Спасибо, работает
Страницы: 1
Читают тему (гостей: 1)