Страницы: 1
RSS
Макрос скрытия определенных строк, Работает не корректно
 
Добрый день.
Прошу помощи.
Макрос должен скрывать строки по критерию (скрыть) в столбце 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
 
Иван Фильченков, посмотрите какой диапазон возвращает
Код
.Range("DK1").CurrentRegion
например, через
Код
debug.? .Range("DK1").CurrentRegion.Address:Stop
и посмотрите какой столбец будет 3м по счёту слева направо.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
Страницы: 1
Наверх