Страницы: 1
RSS
Фильтрация таблицы с критерием из соседней ячейки
 
Доброго вечера!)
Не могли бы вы мне помочь в написании макроса? Имеется таблица. Нужно сделать так, чтобы при изменении ячейки D2 автоматически срабатывал фильтр в таблице во втором столбце. Критерий фильтра - ячейка D2.
Заранее спасибо)
 
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=49171&am...
 
Просто Ledi,
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D2")) Is Nothing Then
If Target = Empty Then
    ListObjects("озпшеница").AutoFilter.ShowAllData
Else
    ActiveSheet.ListObjects("озпшеница").Range.AutoFilter Field:=2, Criteria1:=Target.Value
End If
End If
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, спасибочки Вам огромное! все работает))
Страницы: 1
Наверх