With Лист2
threecol = Лист1.[I6]
.[A:S].AutoFilter Field:=3, Criteria1:="Товар оприходован"
.[A:S].AutoFilter Field:=11, Criteria1:=">" & threecol
End With
Первый шаг работает, а на втором фильтр убирает все данные. Но если открыть его вручную, то в нем будет стоять необходимое значение Срабатывает он только после нажатия ОК. Примечательно то, что этот затык наблюдается не у всех пользователей. Версии Excel разные. Может в этом причина? На всякий случай сделал файл с примером.
Sub Тест()
With Лист2
threecol = Replace(Лист1.[I6], ",", ".")
'threecol = Лист1.[I6]
.[A:S].AutoFilter Field:=3, Criteria1:="Товар оприходован"
.[A:S].AutoFilter Field:=9, Criteria1:=">" & threecol
End With
End Sub