Добрый день.
Прошу помощи.
Макрос должен скрывать строки по критерию (скрыть) в столбце DK на определенных листах. А с некоторых пор он начал скрывать в столбце DL
Помогите, что не так?
Прошу помощи.
Макрос должен скрывать строки по критерию (скрыть) в столбце DK на определенных листах. А с некоторых пор он начал скрывать в столбце DL
Помогите, что не так?
Код |
---|
Sub Отфильтровать_скрыть() With Worksheets("1") If .FilterMode = True Then .AutoFilterMode = False .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть" End With With Worksheets("2") If .FilterMode = True Then .AutoFilterMode = False .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть" End With With Worksheets("3") If .FilterMode = True Then .AutoFilterMode = False .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть" End With With Worksheets("4") If .FilterMode = True Then .AutoFilterMode = False .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть" End With MsgBox "Строки с текстом 'Скрыть' в столбце DK отфильтрованы!", vbInformation, "" End Sub |