S
stuntbelly
Hi I want to create a pull down menu so that I can access different headers and go the item i have highlighted can it be done? if so how
Thanks
Thanks
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
H
Hot-Rod
different headers and go the item i have highlighted can-----Original Message-----
Hi I want to create a pull down menu so that I can access
it be done? if so how
have to have a list of what would be in the box on aThanks
.
Try view, toolbars, control toolbox, combo box. then you
seperate worksheet, then under properties use that list as
Sheet1!A1:A12 (if your list was sheet1 and had 12 items
you wanted on the dropdown list)
S
stuntbelly
Hot-Rod said:different headers and go the item i have highlighted can
it be done? if so how
have to have a list of what would be in the box on a
seperate worksheet, then under properties use that list as
Sheet1!A1:A12 (if your list was sheet1 and had 12 items
you wanted on the dropdown list)
I've tried that and can make the box, and add the list but can't apply it to the sheet. I can't get use it to select the information that will go into the cell. Any thoughts?
J
jeff
Hi,
In combination with Hot-Rod's suggestion, perhaps you
can use this macro code below. It assumes using a listbox
and the linked cell is "E1". your target (destination)
cells can be in the workbook or could be Web hyperlinks.
When you click on the listbox, you're linked out..
(this may be more than you're after, but it was fun
putting together)
jeff
Sub testme()
With Selection(1)
If .Hyperlinks.Count > 0 Then
.Hyperlinks(1).Follow NewWindow:=True,
addhistory:=True
Else
If .Formula Like "=HYPERLINK(*" Then
ActiveWorkbook.FollowHyperlink .Value, _
NewWindow:=True, addhistory:=True
End If
End If
End With
End Sub
Private Sub ListBox1_Click()
Dim cc As Variant
Range("E1").Select
If Left(Selection, 5) = "http:" Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=Selection
' "http://spt.schwab.com", TextToDisplay:="Schwab
Home"
Else
cc = Selection
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="", SubAddress:=cc
End If
testme
End Sub
highlighted can it be done? if so how
In combination with Hot-Rod's suggestion, perhaps you
can use this macro code below. It assumes using a listbox
and the linked cell is "E1". your target (destination)
cells can be in the workbook or could be Web hyperlinks.
When you click on the listbox, you're linked out..
(this may be more than you're after, but it was fun
putting together)
jeff
Sub testme()
With Selection(1)
If .Hyperlinks.Count > 0 Then
.Hyperlinks(1).Follow NewWindow:=True,
addhistory:=True
Else
If .Formula Like "=HYPERLINK(*" Then
ActiveWorkbook.FollowHyperlink .Value, _
NewWindow:=True, addhistory:=True
End If
End If
End With
End Sub
Private Sub ListBox1_Click()
Dim cc As Variant
Range("E1").Select
If Left(Selection, 5) = "http:" Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=Selection
' "http://spt.schwab.com", TextToDisplay:="Schwab
Home"
Else
cc = Selection
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="", SubAddress:=cc
End If
testme
End Sub
access different headers and go the item i have-----Original Message-----
Hi I want to create a pull down menu so that I can
highlighted can it be done? if so how