
Už mi zase nejdou ukládat přílohy.
Tak alespoň takhle.
Sub Filtr()
Dim strName As String
strName = Range("A1")
Selection.AutoFilter Field:=1, Criteria1:="=*" & strName & "*", Operator:=xlAnd
End Subcitovat

Tak alespoň takhle.
Sub Filtr()
Dim strName As String
strName = Range("A1")
Selection.AutoFilter Field:=1, Criteria1:="=*" & strName & "*", Operator:=xlAnd
End Subcitovat