Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:I5")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
End If
End Sub
Переделать для использования после нажатия на кнопку?
Задача стоит примерно как в теме указанной выше, только данные в ячейки вводятся не в ручную, а формулой в результате расчета, а так этот макрос не реагирует на формулы хотелось бы его запуск осуществить кнопкой, но не выходит.
Sub MyButton()
On Error Resume Next
With ActiveSheet
.ShowAllData
.Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("A1").CurrentRegion
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
Sanja, спасибо, но теперь проблема в другом, т.к. условие подтягивается из другой ячейки, то нельзя отфильтровать по одному критерию. т.к. второй будет 0 и фильтр не так работает.