ar negalima parasyti kazka panasaus:
kintamasis = "aa*", "bb*", "dd*"
arba
kintamasis = "aa*" or "bb*" or "dd*"

"Name" <aaaa@bbbb.cc> wrote in message 
news:j5hrld$sod$1@trimpas.omnitel.net...
> Aplinka MS Excel VBA.
> Sakykime yra duomenu lentele range (A1:D1000)
> Noriu su VBA padaryti filtra pagal 3-ia stulpeli.
> 1-as variantas: rodyti visas eilutes,kuriu 3-io stulpelio reiksmes 
> prasideda simboliais "aa"
> Pasirasiau, viskas veikia.
>
> 2-as variantas: rodyti visas eilutes,kuriu 3-io stulpelio reiksmes 
> prasideda simboliais "cc"
> Pasirasiau, viskas veikia.
>
> 3-ias variatas: rodyti visas eilutes, kuriu 3-io stulpelio reiksmes 
> prasideda simboliais "aa" arba "bb"
> Niekai nesigauna :( Padekite prasau.
>
> Kodas:
> -------------------------------------------------------------------------
> Private Sub procedura_1()
> Dim kintamasis As String
> Select Case ThisWorkbook.ActiveSheet.Cells(2, 2).Value
>        Case "Mano preke"
>             kintamasis = "aa*"
>        Case "Tavo preke"
>             kintamasis = "cc*"
> End Select
> MsgBox kintamasis
> With ThisWorkbook.ActiveSheet
>            .AutoFilterMode = False
>                With .Range("A1:D1000")
>                     .AutoFilter
>                     .AutoFilter Field:=3, Criteria1:=kintamasis
>                End With
>    End With
> End Sub
> ------------------------------------------------------------------------- 
>
>