Combo List Box Issue (sort of)

harryco79

Board Regular
Joined
Dec 15, 2004
Messages
166
I need help once again.

In a worksheet I have a drop down list box that reads from range A5:A7. (the text "Option 1" is in cell A5, "Option 2" in A6 and "Option 3" in A7)

This drop down list box is linked to cell J9 (and displays the text that was selected in the drop down list box)

My Goal:
when i select an option from the drop down list box, whatever is displayed in cell J9 (which the drop down is linked to) will trigger a hyper link selection to a specified cell within the same worksheet.

e.g. If i select "Option 1" from the drop down. The text "Option 1" appears in J9 and the worksheet jumps to cell B25 (in which B25 the specified cell reference) in the same way a hyper link would work using a cell reference.

I am of course open to other suggestions as to how to work this.

Cheers.
 

Excel Facts

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.
You could try the following 2 options.

One create a hyperlink in a cell, then the user click on the hyperling to navigate to a certain cell on the same sheet
The other navigate directly to the cell without hyperlink

Private Sub ComboBox1_Change()
'each selection in the combo will create an hyperlink in g3
'if the web toolbar is displayed you can come back to your combo by clicking on the
'back button
Select Case ComboBox1.ListIndex
Case 0 ' option 1
Hyperlinks.Add Range("g3"), "", Range("n8").Address, , "Go to n8"
Case 1 ' option 2
Hyperlinks.Add Range("g3"), "", Range("m38").Address, , "Go to m38"
Case 2 'option 3
Hyperlinks.Add Range("g3"), "", Range("o48").Address, , "Go to o48"
End Select
End Sub


Private Sub ComboBox2_Change()
'each selection in the combo will navigate directly to a cell
'and as previously, web toolbar will bring you back to the combo
'you save one click by not having to select the hyperlink
Select Case ComboBox2.ListIndex
Case 0 ' option 1
Range("n8").Activate
Case 1 ' option 2
Range("m38").Activate
Case 2 'option 3
Range("o48").Activate
End Select
End Sub
 
Upvote 0

Forum statistics

Threads
1,214,999
Messages
6,122,645
Members
449,093
Latest member
Ahmad123098

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top