![Lugr](./pictures/avatars/5ea444280f10d.jpg)
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
![6](./plugins/templates/wall_2C/images/smileys/6.gif)
Tak alespoň takhle.
Sub Filtr()
Dim strName As String
strName = Range("A1")
Selection.AutoFilter Field:=1, Criteria1:="=*" & strName & "*", Operator:=xlAnd
End Subcitovat