VBA for Filtering 3 criterion

[chiswickbridge]

I have a database from A1:I1001, with Row 1 as the header.


Need a VBA to filter data using 3 criterion, in columns B, H and I based on the value input in cells M1, N1 and O1 respectively.


Easy so far... the catch is the following....


Column B has Long names....like.... Aditya Birla Sun Life Asset Allocation Fund - Conservative - Dividend Plan


Column H has Long names....like.... Raman Kumar Khosla.


Column I has Long names....like.... ICICI Pru Banking.




But, cells M1, N1 and O1 will have short names, 5 alphabets, like M1=Adity, N1=Raman and O1=ICICI....the filtering process must filter all names in Column B containing the word "Adity"...something like Criteria1:="=*Adity*", Criteria2:="=*Raman*", Criteria3:="=*ICICI*"


For the next operation, user will change the value in M1, N1 and O1,by a 5 digit text value




Hope I am clear... Thanks

 

[Truiz]

If I understood you correctly this should do it

Sub FiltCrit()

    With ActiveSheet.Range("$A$1:$I$1001")
    .AutoFilter Field:=2, Criteria1:="=*" & Range("M1").Value & "*", Operator:=xlAnd
    .AutoFilter Field:=8, Criteria1:="=*" & Range("N1").Value & "*", Operator:=xlAnd
    .AutoFilter Field:=9, Criteria1:="=*" & Range("O1").Value & "*", Operator:=xlAnd
    End With
    End Sub

You can change the ActiveSheet to your actual sheet same for the range

 

[chiswickbridge]

Perfecto Amigo.... Gracias !!!..... Thank you very much.....

 

[Truiz]

De nada amigo a la orden!!