View Single Post
  #1   Report Post  
Piranha
 
Posts: n/a
Default


Krain,
If you can have one cell to enter the letter in (IE - B1) then this
macro
may work for you. I am using it.

Put in worksheet
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

Then

Put in module
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

Its set up so, the letters you are looking for are in Column A
And the cell to put your search letter in is B1
You can change to suit.
When you enter your search letter in B1 it will jump to the first
instance of it in Column A, assuming there are more than one.
I believe Otto Moehrbach can be credited with this code.

This help?
Dave
Kiran Wrote:
I have couple of large lists with alphabetised data. Is it possible to
have
intellisense, like if P is pressed on the keyboard, it should jump to
P, if H
then jump to first name with H as the first letter, like that. It does
not
happen with the lists I have(by default)?Is this possible?

Thnx



--
Piranha
------------------------------------------------------------------------
Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435
View this thread: http://www.excelforum.com/showthread...hreadid=382640