as nenoriu taip rasyti:
Private Sub procedura_1()
Dim kintamasis As String
Select Case ThisWorkbook.ActiveSheet.Cells(2, 2).Value
        Case "Mano preke"
             kintamasis = "aa*"
             kintamasis1 = "bb*"
        Case "Tavo preke"
             kintamasis = "cc*"
End Select
MsgBox kintamasis
With ThisWorkbook.ActiveSheet
            .AutoFilterMode = False
                With .Range("A1:D1000")
                     .AutoFilter
                     .AutoFilter Field:=3, Criteria1:=kintamasis, 
Operator:=xlOr, Criteria2:=kintamasis1
                End With
    End With
End Sub

As noriu CASE'e "Mano preke apsirasyti viena kinatmaji, kuris apimtu ir aa 
ir bb".
Ir po to CRITERIA1 priskirti tik viena kintamasis.



"Laimis" <wiela@centras.lt> wrote in message 
news:j5hs5t$tib$1@trimpas.omnitel.net...
> Name rašė:
>>                       .AutoFilter Field:=3, Criteria1:=kintamasis
>
> http://support.microsoft.com/kb/141770
>
>