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
-------------------------------------------------------------------------