@lid2pro

Exсel поиск значения по всей книге в зависимости от цвета?

Добрый день,

есть эксель книга, где много листов и в листах идет учет клиентов.
Есть лист Проверка, где в A1 вводим ФИО и макросом ищем по всей книге где встречается это ФИО. Дело в том, что в листах ФИО раскрашены по цветам. Как сделать так, чтоб поиск был только по зеленым цветам? Как включить это в проверку? в VBA не силен, код макроса ниже
Sub Ca()
Dim w As Worksheet, s$, a$, c As Range, d As Range
  For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
    s = ""
    For Each w In Worksheets
      If Not w Is ActiveSheet Then
        Set d = w.Cells.Find(c, , xlValues, xlWhole)
        If Not d Is Nothing Then
          a = d.Address
          Do
            s = s & ", " & w.Name & " - " & w.Cells(1, d.Column)
            Set d = w.Cells.FindNext(d)
          Loop Until d.Address = a
        End If
      End If
    Next
    c.Offset(, 1) = Mid(s, 3)
  Next
End Sub
  • Вопрос задан
  • 57 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы