Скрыть строки

[St007]

Добрый день, подскажите как сделать чтобы при совпадении имен скрывались строки.

к примеру: если в ячейки B1 содержится текст: январь, то скрылись те строчки, где в столбце A в ячейках есть январь

ячейка B1 отвечает за скрытие строк столбца A, при совпадении имен
ячейка С1 отвечает за скрытие строк в столбце D, при совпадении имен.

На данном форуме, нашел как реализовать данные условия для одной ячейки и одного столбца

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then
Application.ScreenUpdating = False
Rows("5:907").Hidden = False
Dim poz As Range
For Each poz In Range("A8:A907").Cells
If poz.Value = Target.Value Then poz.EntireRow.Hidden = True
Next poz
End If
End Sub

но добавить сюда же подобный функционал с ячейкой С1 и столбцом D не получается

[motorway]

Так, наверно:

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then
Application.ScreenUpdating = False
Rows("5:907").Hidden = False
Dim poz As Range
For Each poz In Range("A8:A907").Cells
If poz.Value = Target.Value Then poz.EntireRow.Hidden = True
Next poz
Exit Sub
End If
If Target.Address(0, 0) = "C1" Then
Application.ScreenUpdating = False
Rows("5:907").Hidden = False
Dim poz As Range
For Each poz In Range("D8:D907").Cells
If poz.Value = Target.Value Then poz.EntireRow.Hidden = True
Next poz
End If
End Sub

[St007]

вылетает ошибка:
Compile error:
Duplicate declaration in current scope

выделяет желтым строчку:
Sub Worksheet_Change(ByVal Target As Range) (2ая строка)
и
Dim poz As Range (15 ая строка)

[VictorM]

Дубликаты однако.
Вы первый свой макрос заремили?

[St007]

VictorM воспользовался кодом, который предложил motorway, при тесте макроса вылетела ошибка, описанная мною выше((

а как его заремить?

[St007]

пример.rar______

[VictorM]

Немного не то, недоглядел.
Поскольку автор кода молчит, позволю себе немного изменить.
Попробуйте так:

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B1" Then
        Application.ScreenUpdating = False
        Rows("5:907").Hidden = False
        Dim poz As Range
        For Each poz In Range("A2:A20").Cells
            If poz.Value = Target.Value Then poz.EntireRow.Hidden = True
        Next poz
        Exit Sub
    End If
    If Target.Address(0, 0) = "C1" Then
        Application.ScreenUpdating = False
        Rows("2:20").Hidden = False
        Dim poz1 As Range
        For Each poz1 In Range("D2:D20").Cells
            If poz1.Value = Target.Value Then poz1.EntireRow.Hidden = True
        Next poz1
    End If
End Sub

[St007]

заработал без ошибок, только не совсем так как нужно

1) ввожу инфу в ячейку B1, строки при совпадении с ячейками в столбце A скрываются.
2)ввожу инфу в ячейку C1, скрываются в столбце D, но скрытые строки в столбце A, которые были скрыты в 1ом действии отображается.


как сделать так, чтобы:

ячейка B1 отвечала только за столбец A(отображение и скрытие строк),

ячейка C1 только за столбец D(отображение и скрытие строк).