Vincento, применил твой фильтр к двум строкам!! РАБОТАЕТ!!
а возможно ли чтоб эти фильтры работали ПРАЛЕЛЬНО.. то:
выбираю технику - фильтрует
выбираю(следующий фильтр) ремонт или в работе, скидывает предыдущий фильтр..
как прописать чтоб оба фильтра сохраняли актуальность.
вот код:
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
Application.ScreenUpdating = False
If Target = "без фильтра" Then
[E6:ATO6].EntireColumn.Hidden = False
Else
[E6:ATO6].EntireColumn.Hidden = False
For Each icell In [E6:ATO6]
If icell.Formula <> Target.Value Then icell.EntireColumn.Hidden = True
Next
End If
Application.ScreenUpdating = True
End If
If Target.Address = "$C$10" Then
Application.ScreenUpdating = False
If Target = "ВЫБЕРИ МАРКУ" Then
[E10:ATO10].EntireColumn.Hidden = False
Else
[E10:ATO10].EntireColumn.Hidden = False
For Each icell In [E10:ATO10]
If icell.Formula <> Target.Value Then icell.EntireColumn.Hidden = True
Next
End If
Application.ScreenUpdating = True
End If
End Sub |