Подскажите что изменить в коде, что б макрос работал на всех листах, а не только на активном?! заранее спасибо
Код
Sub HideByConditionalFormattingColor()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub
Как-то так, но на работоспособность не проверял. Потестируйте сами
Код
Sub HideByConditionalFormattingColor()
Dim cell As Range, Sht As Worksheet
Application.ScreenUpdating = False
For Each Sht In ActiveWorkbook.Worksheets
For Each cell In Sht.UsedRange.Columns(1).Cells
If cell.DisplayFormat.Interior.Color = Sht.Range("G2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = True
Next
Next Sht
Application.ScreenUpdating = True
End Sub
Очередная тема из серии "Как скрыть строки по условию"
Цитата
denka1982: что изменить в коде, что б макрос работал на всех листах, а не только на активном
макрос должен сработать на любом активном листе, так что проблемы на самом деле нет. Если же вы хотите, чтобы макрос отработал в цикле по всем листам, то, очевидно, нужно добавить цикл по всем листам.
Выводы: • правильно сформулированный вопрос - это готовый запрос для поиска в интернете • давать вам готовое решение смысла нет, т.к. шаг влево/вправо от условий и вы, вместо того, чтобы хоть немного подумать, просто создаёте очередную тему-клон. Изучайте матчасть по ссылке
P.S.: Название темы ни о чём (даже для вас) - не злите модераторов
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
New: Как-то так, но на работоспособность не проверял
придётся проверить, думаю, т.к. я не просто так написал, что
Цитата
Jack Famous: давать вам готовое решение смысла нет
ТС думать не собирается
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
да не выходит у меня, из за этого основная работа стоит, в книге порядка 400 листов, я уже кучу вариантов испробовал, все таки я не макрописец, или ошибку выдает, или не работает вообще, или не так как надо
спасибо, оказалось на самом деле все очень просто, я забывал писать название листа, на котором будет находиться кнопка, что б макрос отрабатывал всю книгу, еще раз спасибо огромное
только вот при переносе в другую книгу что то не получается, все сделал как нужно, но не работает, видно все таки выпадающий список там особенный какой то, вопрос какой