Добрый день,
есть эксель книга, где много листов и в листах идет учет клиентов.
Есть лист Проверка, где в 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
