Подскажите как отфильтровать строки в которых есть ячейки с заливкой. Заливка в разных столбцах. Можно добавлять уровни сортировки, но это не вариант, столбцов много и много листов.
Sub filtr()
Dim c%, r&, i%, j&, h As Boolean
c = ActiveSheet.UsedRange.Columns.Count
r = ActiveSheet.UsedRange.Rows.Count
For i = 2 To r
h = True
For j = 1 To c
If Cells(i, j).Interior.Color <> 16777215 Then
h = False
Exit For
End If
Next j
If h Then Rows(i).Hidden = True
Next i
End Sub
Sub unfiltr()
Dim r&, i%
r = ActiveSheet.UsedRange.Rows.Count
For i = 2 To r
Rows(i).Hidden = False
Next i
End Sub
buchlotnik, спасибо . Как я понял фильтрует не строки в которых есть ячейки с заливкой выбирая по конкретному цвету, а убирает стоки с "белой" заливкой. А чтобы отобразить только строки с нужным цветом нужно сначала все кроме строки с кнопкой скрыть, а затем отобразить нужные и строку с кнопкой?