Hi Dan,

Try below mentioned code may if it can help you. replace your "searchpart" 
macro with one that i have provided.

 
Sub searchparts()
'
' searchparts Macro
'
' Keyboard Shortcut: Ctrl+s
'
    Columns("A:A").Select
    Selection.AutoFilter
    Selection.AutoFilter
    strname = InputBox("enter text", "search collector")
    ActiveSheet.Range("$A$1:$A$4411").AutoFilter Field:=1, Criteria1:="*" & 
strname & "*"
    End Sub


Regards
Prince



On Tuesday, January 15, 2013 1:15:44 AM UTC+5:30, Dan Nichols wrote:
>
> I am using the following macro to search a parts list
> I have 3 columns.
>  
> Column A is the description
> Column B is the Part location 
> Column C is the Part #
>  
> If I use the manual method to filter my parts by any given description in 
> column A. Lets say "bearing" by using the sort filter button,and then "text 
> filters" I get a very long list of items matching the word "bearing" within 
> the description column A
> If I use the macro that I created that is listed below and use the word 
> "bearing" in the input box I only get maybe 3 or 4 items that match the 
> word "bearing" in the description in column A
> If anyone can help me sort this Out I would appreciate it greatly.
> Below is my Macro.
>  
>  
>  
> Sub searchparts()
> '
> ' searchparts Macro
> '
> ' Keyboard Shortcut: Ctrl+s
> '
>     Columns("A:A").Select
>     Selection.AutoFilter
>     Selection.AutoFilter
>     strname = InputBox("enter text", "search collector")
>     ActiveSheet.Range("$A$1:$A$4411").AutoFilter Field:=1, 
> Criteria1:=strname
>     End Sub
>

-- 
Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to 
excel-macros+unsubscr...@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros?hl=en.


Reply via email to