Добрый день, всем! Пытаюсь написать макрос на скрытие строк под свои условия, но не получается (( Прошу помочь! Вложил файл для наглядности. Условия: Если А1=1, то скрываются все строки с типом сотрудника МПК Если А1=2, то скрываются все строки с типом сотрудника МПА и отображаются все строки с типом сотрудника МПК Если А1=3, то скрываются все строки с типом сотрудника МПА и отображаются все строки с типом сотрудника МПК Если А1=4, то открываются все строки с типом сотрудников МПА и МПК. Спасибо!
Добрый день, всем! Пытаюсь написать макрос на скрытие строк под свои условия, но не получается (( Прошу помочь! Вложил файл для наглядности. Условия: Если А1=1, то скрываются все строки с типом сотрудника МПК Если А1=2, то скрываются все строки с типом сотрудника МПА и отображаются все строки с типом сотрудника МПК Если А1=3, то скрываются все строки с типом сотрудника МПА и отображаются все строки с типом сотрудника МПК Если А1=4, то открываются все строки с типом сотрудников МПА и МПК. Спасибо!pioneer88
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "A1" Then Exit Sub r0_ = 7 r1_ = Range("A" & Rows.Count).End(xlUp).Row adr_ = "A" & r0_ & ":A" & r1_ Select Case Target Case 1 ActiveSheet.Range(adr_).AutoFilter Field:=1, Criteria1:="МПК", visibledropdown:=0 Case 2, 3 ActiveSheet.Range(adr_).AutoFilter Field:=1, Criteria1:="МПА", visibledropdown:=0 Case 4 ActiveSheet.Range(adr_).AutoFilter Field:=1, visibledropdown:=0 End Select Target.Select End Sub
[/vba]
Так нужно? [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "A1" Then Exit Sub r0_ = 7 r1_ = Range("A" & Rows.Count).End(xlUp).Row adr_ = "A" & r0_ & ":A" & r1_ Select Case Target Case 1 ActiveSheet.Range(adr_).AutoFilter Field:=1, Criteria1:="МПК", visibledropdown:=0 Case 2, 3 ActiveSheet.Range(adr_).AutoFilter Field:=1, Criteria1:="МПА", visibledropdown:=0 Case 4 ActiveSheet.Range(adr_).AutoFilter Field:=1, visibledropdown:=0 End Select Target.Select End Sub
да именно так! ) только если у меня измениться ячейка с условием с А1 на А18 например и таблица будет начинаться со строки А22 предположим, то макрос не работает. Что в коде мне надо будет править?
да именно так! ) только если у меня измениться ячейка с условием с А1 на А18 например и таблица будет начинаться со строки А22 предположим, то макрос не работает. Что в коде мне надо будет править?pioneer88
Доброго времени суток! Не силен в макросах.Пытался переделать макрос на скрытие строк под свои условия, но не получается. Вложил файл для наглядности. Условия: Если С43:С46 объединенные ячейки=пусто, если внести туда текст открываются следующие четыре объединенные объединенные ячейки С47:С50 и так до определенной строки, а если очистить объединенные ячейки 4 строки скроются. В файле на одну строку работает как надо, вот на 4 ни как. Спасибо! [moder] Serj, на форуме запрещено задавать новые вопросы в чужих темах, создайте свою тему, а эта тема закрыта[/moder]
Доброго времени суток! Не силен в макросах.Пытался переделать макрос на скрытие строк под свои условия, но не получается. Вложил файл для наглядности. Условия: Если С43:С46 объединенные ячейки=пусто, если внести туда текст открываются следующие четыре объединенные объединенные ячейки С47:С50 и так до определенной строки, а если очистить объединенные ячейки 4 строки скроются. В файле на одну строку работает как надо, вот на 4 ни как. Спасибо! [moder] Serj, на форуме запрещено задавать новые вопросы в чужих темах, создайте свою тему, а эта тема закрыта[/moder]Serj