Auto Filter on input box?

[wmtsub]

Currently I am using a column to get the first letter of the adjacent column [company names] and then use the filter drop down box to narrow the viewable results to just that letter.
So in a few keystrokes I can filter to all companies that start with the letter "D". But this entails selecting the drop down box, clearing select all, scrolling to the desired letter and checking it.

So I was wondering if there was a way to create an input box where I could just enter a letter and have it automatically do the rest?
any ideas?

 

[Fluff]

No need for a helper column. If your company names are in col A with a header in row 1. Try

Sub fltr()
   Range("A1").AutoFilter 1, InputBox("Please enter the search letter") & "*"
End Sub

 

[wmtsub]

This is working great thanks.
One thing though, sometimes after the filter it starts at the top of the list and others at the bottom. How can I force it to always start at the top left of the list?

 

[Fluff]

I'm afraid I don't understand what you're asking.

 

[wmtsub]

When I apply your macro, lets say it returns a list of 20 lines. Sometimes I need to scroll to the top if the list and some times the cursor is already at the top of the list.
I would like to always start at the top of the list.

 

[Fluff]

Just add

Application.Goto Range("A1"), True

 

[wmtsub]

Not sure that will work as there is not always a "A1" in the displayed range.

 

[Fluff]

As the filter is being applied to row1, A1 should always be visible

 

[wmtsub]

Sorry to trouble you again. I tried to apply the original macro to another cell, C2 and it would not work.
Is this not right?

Sub fltr_2()
Range("c2").AutoFilter 1, InputBox("Please enter the search letter") & "*"
End Sub

 

[Fluff]

It should be

Range("c2").AutoFilter [COLOR=#ff0000]3[/COLOR], InputBox("Please enter the search letter") & "*"