ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Excel filter options (https://www.excelbanter.com/excel-programming/411783-excel-filter-options.html)

[email protected]

Excel filter options
 
I want to be able to do multiple search on a column but i don't want
to be restricted to the exact description. ( "York City" or
"Jersey State" or "New Jersey State")
Exp: Column 5
" New York City"
"New York State"
"New Jersey City"
"New Jersey State"

maybe if i can use "And" between words or even a " + " sign.
like: "New + State" or "New + City"
Please help!!!!
thank you
---------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("A4")) Is Nothing Then Exit Sub
If Me.AutoFilterMode = False Then Exit Sub

If Me.FilterMode = True Then
Me.ShowAllData
End If

If Trim(Target.Value) = "" Then Exit Sub 'after clearing filter.

Me.AutoFilter.Range.AutoFilter _
Field:=21, Criteria1:="*" & Target.Value & "*"
-------------------------------------------------------------------------------

Norman Jones[_2_]

Excel filter options
 
Hi Support,

Consider using Excel's Advanced Filter tool.

See Debra Dalgleish at:

Excel -- Filters -- Advanced Filter -- Complex Criteria
http://www.contextures.com/xladvfilter02.html



---
Regards.
Norman


wrote in message
...
I want to be able to do multiple search on a column but i don't want
to be restricted to the exact description. ( "York City" or
"Jersey State" or "New Jersey State")
Exp: Column 5
" New York City"
"New York State"
"New Jersey City"
"New Jersey State"

maybe if i can use "And" between words or even a " + " sign.
like: "New + State" or "New + City"
Please help!!!!
thank you
---------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("A4")) Is Nothing Then Exit Sub
If Me.AutoFilterMode = False Then Exit Sub

If Me.FilterMode = True Then
Me.ShowAllData
End If

If Trim(Target.Value) = "" Then Exit Sub 'after clearing filter.

Me.AutoFilter.Range.AutoFilter _
Field:=21, Criteria1:="*" & Target.Value & "*"
-------------------------------------------------------------------------------


[email protected]

Excel filter options
 
On May 30, 12:36 pm, "Norman Jones"
wrote:
Hi Support,

Consider usingExcel'sAdvancedFiltertool.

See Debra Dalgleish at:

Excel-- Filters -- AdvancedFilter-- Complex Criteria
http://www.contextures.com/xladvfilter02.html

---
Regards.
Norman

wrote in message

...

I want to be able to do multiple search on a column but i don't want
to be restricted to the exact description. ( "York City" or
"Jersey State" or "New Jersey State")
Exp: Column 5
" New York City"
"New York State"
"New Jersey City"
"New Jersey State"


maybe if i can use "And" between words or even a " + " sign.
like: "New + State" or "New + City"
Please help!!!!
thank you
---------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("A4")) Is Nothing Then Exit Sub
If Me.AutoFilterMode = False Then Exit Sub


If Me.FilterMode = True Then
Me.ShowAllData
End If


If Trim(Target.Value) = "" Then Exit Sub 'after clearingfilter.


Me.AutoFilter.Range.AutoFilter _
Field:=21, Criteria1:="*" & Target.Value & "*"
-------------------------------------------------------------------------------


Yes i did thank you
i was able to work around it with using wild cards " * "
its not exactly what i wanted but it works.
Exp:
"New * City"

but the only reason why i am able to used is because its in order
Exp:
"New * City" = Correct

"City * New" = Not Correct

let me know if you have any ideas on what i should do.

thank you






All times are GMT +1. The time now is 07:38 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com