ComboBox en OptionButton

[Excel01]

Ik wil aan de hand van Opionbutton periode kunnen selecteren.

Voorbeeld.
Ik kies Nederland in Combobox en daarna kan ik periode kiezen middels een Optionbutton.
Daarna wordt ik geleidt naar de periode die ik heb gekozen.

Weet iemand hoe ik dit moet oplossen.

Bekijk bijlage 307515

 

[HSV]

Kleine aanpassingen.

 

[Excel01]

Harry bedankt voor snelle reactie.
Ik was denk ik niet helemaal duidelijk in mijn vraagstelling.
Ik zou graag die OptionButtons afhankelijk willen maken van ComboBox.
Als ik Nederland selecteer dan kan ik het weer van Nederland zien, afgelopen 24 uur, dag enz ...
en als ik België selecteer dat kan ik het weer van België zien van afgelopen 24 uur, dag enz ...

 

[HSV]

Je was duidelijk genoeg, staat ook zo in de code.

Kies Nederland; Buienradar Nederland.
Kies België: Buienradar België.
Maar wat niet in jouw code stond zijn de verschillende sites van de 24, 48 uurs.
Deze zijn voor België en Nederland identiek.

Klik op een optionbutton, en de site van 24 of 48 uur wordt getoond.

 

[Excel01]

Ik heb een aantal sites toegevoegd. Op deze manier zou ik t willen.
alvast bedankt.

 

[HSV]

Dan moet het zo kloppen.

 

[Excel01]

Harry bedankt,
Het werk prima. Ik heb nog een vraag.
Ik wil tekst van Captions verweken in de programmeercode.

zoiets.
.OptionButton1.Caption = "5daagse"
.OptionButton2.Caption = "14daagse"

Ik heb geprobeerd deze te verwerken in de programmeercode maar werkt niet.

 

[HSV]

Als je de caption.text gaat wijzigen zal de hyperlink niet meer werken toch?

 

[Excel01]

Het klop Ja. Als ik Captiontekst wijzig, dan werkt de link niet zoals de bedoeling is.


Het zou mooi zijn als ik deze tekst in de programmeercode neem.

 

[HSV]

Probeer het zo dan maar eens.

Private Sub hsv()
If ComboBox1.ListIndex > -1 Then
  Select Case ComboBox1.Value
    Case "Amsterdam"
       c00 = "https://www.buienradar.nl/weer/amsterdam/nl/2759794"
    Case "Rotterdam"
       c00 = "https://www.buienradar.nl/weer/rotterdam/nl/2747891"
    End Select
       For i = 1 To 3
         If Me("optionbutton" & i) Then
          Select Case i
            Case 1
             c00 = c00 & "/5-daagse per uur"
            Case 2
             c00 = c00 & "/14-daagse verwachting"
            Case 3
             c00 = c00 & "/maand"
           End Select
          Exit For
        End If
       Next i
    ThisWorkbook.FollowHyperlink c00
  End If
End Sub

 

[Excel01]

Het werkt prima. Dit is wat ik zoek.

Bedankt.