Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Alpha searching in lists.
How do i turn on the alpha search function in lists? Press the n key and you
jump to the first and siccessive entry that begins with N etc...? -- POLTAGEIST |
#2
|
|||
|
|||
Alpha searching in lists.
That's not a feature of Microsoft Excel. The best you can do, I believe, is
a combobox. See: Deb Dalgleish tells us how, he http://www.contextures.com/xlDataVal10.html ************ Anne Troy www.OfficeArticles.com "Poltageist" wrote in message ... How do i turn on the alpha search function in lists? Press the n key and you jump to the first and siccessive entry that begins with N etc...? -- POLTAGEIST |
#3
|
|||
|
|||
Alpha searching in lists.
Hi, This is not pressing a key, but close, and it works: In this example you enter a letter in "B1" it will jump to the location of the letter in Col "A" Code is from Otto Moehrbach. Put in worksheet module Code: -------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target = "" Then Exit Sub If Target.Address(0, 0) = "B1" Then Call ShiftList(Range("B1").Value) End Sub -------------------- Put in general module Code: -------------------- Sub ShiftList(sLetter As String) Dim MyRng As Range Dim SearchFor As String Set MyRng = Range("A2", Range("A" & Rows.Count).End(xlUp)) SearchFor = sLetter & "*" On Error Resume Next MyRng.Find(What:=SearchFor, After:=MyRng(MyRng.Count), _ LookAt:=xlWhole).Activate If Err < 0 Then MsgBox "The letter '" & sLetter & "' cannot be found." Err.Clear Exit Sub End If On Error GoTo 0 With ActiveWindow .ScrollRow = ActiveCell.Row .ScrollColumn = 1 End With End Sub -------------------- Dave Poltageist Wrote: How do i turn on the alpha search function in lists? Press the n key and you jump to the first and siccessive entry that begins with N etc...? -- POLTAGEIST -- Piranha ------------------------------------------------------------------------ Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435 View this thread: http://www.excelforum.com/showthread...hreadid=476702 |
#4
|
|||
|
|||
Alpha searching in lists.
I was unable to get this going:
All attempts ended with Message box: The letter 'F' could not be found. (just 1 example) ?????????? "Piranha" wrote in message ... Hi, This is not pressing a key, but close, and it works: In this example you enter a letter in "B1" it will jump to the location of the letter in Col "A" Code is from Otto Moehrbach. Put in worksheet module Code: -------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target = "" Then Exit Sub If Target.Address(0, 0) = "B1" Then Call ShiftList(Range("B1").Value) End Sub -------------------- Put in general module Code: -------------------- Sub ShiftList(sLetter As String) Dim MyRng As Range Dim SearchFor As String Set MyRng = Range("A2", Range("A" & Rows.Count).End(xlUp)) SearchFor = sLetter & "*" On Error Resume Next MyRng.Find(What:=SearchFor, After:=MyRng(MyRng.Count), _ LookAt:=xlWhole).Activate If Err < 0 Then MsgBox "The letter '" & sLetter & "' cannot be found." Err.Clear Exit Sub End If On Error GoTo 0 With ActiveWindow .ScrollRow = ActiveCell.Row .ScrollColumn = 1 End With End Sub -------------------- Dave Poltageist Wrote: How do i turn on the alpha search function in lists? Press the n key and you jump to the first and siccessive entry that begins with N etc...? -- POLTAGEIST -- Piranha ------------------------------------------------------------------------ Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435 View this thread: http://www.excelforum.com/showthread...hreadid=476702 |
#5
|
|||
|
|||
Alpha searching in lists.
Hi Jim, I don't know how you are connecting to these Forums, but if you are able to get attachments here is a sample workbook where the code is working. If you can't get it and still want it, you can e-mail me and i will send it to you. Its the same code for anyone else following this thread. piranha488ATaolDOTcom Change the AT and the obvious. Dave Jim May Wrote: I was unable to get this going: All attempts ended with Message box: The letter 'F' could not be found. (just 1 example) ?????????? "Piranha" wrote in message ... Hi, This is not pressing a key, but close, and it works: In this example you enter a letter in "B1" it will jump to the location of the letter in Col "A" Code is from Otto Moehrbach. Put in worksheet module Code: -------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target = "" Then Exit Sub If Target.Address(0, 0) = "B1" Then Call ShiftList(Range("B1").Value) End Sub -------------------- Put in general module Code: -------------------- Sub ShiftList(sLetter As String) Dim MyRng As Range Dim SearchFor As String Set MyRng = Range("A2", Range("A" & Rows.Count).End(xlUp)) SearchFor = sLetter & "*" On Error Resume Next MyRng.Find(What:=SearchFor, After:=MyRng(MyRng.Count), _ LookAt:=xlWhole).Activate If Err < 0 Then MsgBox "The letter '" & sLetter & "' cannot be found." Err.Clear Exit Sub End If On Error GoTo 0 With ActiveWindow .ScrollRow = ActiveCell.Row .ScrollColumn = 1 End With End Sub -------------------- Dave Poltageist Wrote: How do i turn on the alpha search function in lists? Press the n key and you jump to the first and siccessive entry that begins with N etc...? -- POLTAGEIST -- Piranha ------------------------------------------------------------------------ Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435 View this thread: http://www.excelforum.com/showthread...hreadid=476702 +-------------------------------------------------------------------+ |Filename: Macro - Find - Word in Column by Entering One Letter in Cell.zip| |Download: http://www.excelforum.com/attachment.php?postid=3914 | +-------------------------------------------------------------------+ -- Piranha ------------------------------------------------------------------------ Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435 View this thread: http://www.excelforum.com/showthread...hreadid=476702 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
The colums changed from alpha to numeric how do you make it alpha | Excel Discussion (Misc queries) | |||
Comparing two lists in excel that don't match exactly | Excel Worksheet Functions | |||
Alpha & Numeric Counts in Excel | Excel Discussion (Misc queries) | |||
HELP w/ column Alpha | Excel Discussion (Misc queries) | |||
Comparing 2 Customer Lists to Identify Shared Customers | Excel Worksheet Functions |