beje, tu aa, bb gali buti daugiau nei d.

"Name" <aaaa@bbbb.cc> wrote in message 
news:j5htr2$ng$1@trimpas.omnitel.net...
> 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
>>
>>
>
>