Change Hyperlink assigned to command button using checkbox

chester1993 · Jul 31st 2020

Hello All,

As you can see on the attached sample (this is not the actual workbook), I have 3 command buttons on a UserForm opening a link thru my non-default browser which is IE. What I am looking to achieve is to assign these command buttons to different hyperlinks using the 1 checkbox. On my actual project, I only need 1 checkbox to change all the hyperlinks on all the buttons.

For instance, instead of the currently assigned links. I want it changed to the ff after clicking the checkbox:

Open Google.com - https://mail.google.com

Open Yahoo.com - https://mail.yahoo.com

Open MSN.com - https://mail.msn.com

I appreciate the help, folks!

**royUK** · Jul 31st 2020

Do you mean?

Code

Private Sub CommandButton1_Click()
If CheckBox1 Then
Main
Else
'something else
End If
End Sub

chester1993 · Jul 31st 2020

Quote from royUK

Do you mean?

Code

Private Sub CommandButton1_Click()
If CheckBox1 Then
Main
Else
'something else
End If
End Sub

That's something. Only that, I am not sure where to place the new sites? Where exactly in the code, I mean. Can you give a sample?

**royUK** · Jul 31st 2020

It's probably easiest to amend the Main macro like this

Code

Sub Main()
If Me.CheckBox1 Then
Select Case Me.ActiveControl.Caption
Case "Open Google.com": LaunchIE "https://google.com"
Case "Open Yahoo.com": LaunchIE "https://yahoo.com"
Case "Open MSN.com": LaunchIE "https://msn.com"
Case Else: Exit Sub
End Select
Else
Select Case Me.ActiveControl.Caption
Case "Open Google.com": LaunchIE "https://mail.google.com"
Case "Open Yahoo.com": LaunchIE "https://mail.yahoo.com"
Case "Open MSN.com": LaunchIE "https://mail.msn.com"
Case Else: Exit Sub
End Select
End If
End Sub

Display More

chester1993 · Jul 31st 2020

And this would be my code to call Main? Or, is it going to change as well?

Code

Private Sub CommandButton1_Click()
If CheckBox1 Then
Main
Else
'something else
End If
End Sub

chester1993 · Jul 31st 2020

oh, I actually, I think I got it.

**royUK** · Jul 31st 2020

That's the only change

Code

Sub Main()
If Me.CheckBox1 Then
Select Case Me.ActiveControl.Caption
Case "Open Google.com": LaunchIE "https://google.com"
Case "Open Yahoo.com": LaunchIE "https://yahoo.com"
Case "Open MSN.com": LaunchIE "https://msn.com"
Case Else: Exit Sub
End Select
Else
Select Case Me.ActiveControl.Caption
Case "Open Google.com": LaunchIE "https://mail.google.com"
Case "Open Yahoo.com": LaunchIE "https://mail.yahoo.com"
Case "Open MSN.com": LaunchIE "https://mail.msn.com"
Case Else: Exit Sub
End Select
End If
End Sub


Sub LaunchIE(WebUrl As String)
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate WebUrl
IE.Visible = True
Set IE = Nothing
End Sub


Private Sub CommandButton1_Click()
Main
End Sub


Private Sub CommandButton2_Click()
Main
End Sub


Private Sub CommandButton3_Click()
Main
End Sub

Display More

chester1993 · Jul 31st 2020

Thank you again for your help, royUK ! I learned a lot from you, man.

**royUK** · Jul 31st 2020

Pleased to help.

Change Hyperlink assigned to command button using checkbox

Participate now!

Share

Tags