Help with Excel Document

[cdunn238]

I have to edit an existing spreadsheet with an index and want to have an
alphabet listing at the top so
that when you click on the letter you're linked to the first cell in that
section that starts with that letter.
Example:

Provisioning--(Name of Document)

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

A items run from B8 - B 20
B items run from B22 - B 25
C items run from B27 - B33

and so on.

Please tell me how to link each alphabet to the subject beginning with that
letter?

PS can I save the spreadsheet as a web page doc also?

Thanks,

 

[Barb Reinhardt]

Have you thought about using AutoFilter and searching for "Begins with" A?
Otherwise, I think you're going to need to have a lot of code information is
added and deleted from this worksheet.

 

[Ron@Buy]

Hi
Use HYPERLINK:
On Menu bar select 'Insert' > 'Hyperlink'
Then click on 'Place in this Document'
Type in the cell reference where the letter appears that you want to link to
e.g A8
Type in Text to display e.g. A - OK
Do that for every letter.
Probably the letter will turn blue with an underline which will indicate a
hyperlink is present.
You can change that if you wish by formatting as usual.
Trust this helps

 

[cdunn238]

Thanks Ron that advice is very helpful....one problem though....I have the
all the alphabet in one row. after i type in the test to display....all of
the alphabet are linked just to the letter a. Do I have to put each alphabet
in a separate column for it to hyperlink...

Thanks

 

[Ron@Buy]

Yes I'm afraid that each letter must be in it's own cell to link correctly.
However you could put them in a block of cells maybe 4 x 7 oor some similar
size. This would stop it speaading too far across your work sheet or too far
down. There may be another way but if would reuire complex formula or a VBA
code, which is beyond me.
Sorry I can't be of any other help.

 

[Don Guillett]

One way without filtering. Assumes you type a letter into row 1 of the
column where the letters are stored. Right click sheet tab>view code>paste
this.

Private Sub Worksheet_Change(ByVal Target As Range)
mc = "j"
If Target.Address <> Cells(1, mc).Address Then Exit Sub
lr = Cells(Rows.Count, mc).End(xlUp).Row
x = UCase(Target)
ml = Len(x)
For Each c In Range(Cells(2, mc), Cells(lr, mc))
If Left(Trim(UCase(c.Value)), ml) = x Then
Exit For
End If
Next
Cells(c.Row, mc).Select
End Sub