Knap ark-skift på baggrund af radio-knap valg

En knap der hedder CommandButton1, To radioknapper hvor den første hedder OptionButton1. De to ark hedder Ark2 hhv. Ark3.

Private Sub CommandButton1_Click()
  If OptionButton1.Value = True Then
    ThisWorkbook.Worksheets("Ark2").Activate
  Else
    ThisWorkbook.Worksheets("Ark3").Activate
  End If
End Sub

Øv. Den laver runtime error på denne linie:
If Alternativknap2.Value = True Then

Navnet er rigtig nok..?

???
Prøv at vis os din kode og forklar hvilke knapper og radiobuttons du har.

Private Sub Ark1_Knap4_Klik()
If Alternativknap2.Value = True Then
    ThisWorkbook.Worksheets("Ark2").Activate
  Else
    ThisWorkbook.Worksheets("Ark3").Activate
  End If
End Sub

Knappen hedder: Knap4
Den første button hedder: Alternativknap2
Den anden button hedder: Alternativknap3

Øhhh - det tror jeg ikke lige jeg kan hjælpe dig med; prøv evt. at sætte Formens navn foran Alternativknap2.Value i linie 2, så du får:
  If Form1.Alternativknap2.Value = True Then ....
Ellers ved jeg ikke lige hvad der er galt

Det er ikke kontrolelementer med fra formularlinjen - kan det have noget med det at gøre? Så kan jeg vel ikke finde en Form...?

Burde ikke gøre nogen forskel - jeg har lige selv prøvet efter og jeg kan sagtens eksekvere en lignende kode.
ALLERSIDSTE skud... (Måske...) Prøv at indsætte følgende linie før If-linien:
Thisworkbook.Worksheets("Ark1").Activate
(Det sikrer at Ark1 er det aktive ark - derefter skulle der ikke være problemer med at "finde" dine radiobuttons. Hvis dine radiobuttons ikke er på det aktive ark kan det muligvis være problemet.)

Damn - der er stadig fejl. Tak for budet, ellers... Jeg ved ikke hvad det kan være.

Angående dine Alternativknapper, så skal du højreklikke på dine knapper og vælg formater kontrolelement> kontrolelement, få dem til at pege på samme celle, så vil den skrive enten 1 eller 2 i cellen, efter hvilken en der er aktiv.

så skal koden se sådan ud

Private Sub Ark1_Knap4_Klik()
If Range("A1") = 1 then ' ret den til den celle dine knapper peger på, og værdien på knappen
    ThisWorkbook.Worksheets("Ark2").Activate
  Else
    ThisWorkbook.Worksheets("Ark3").Activate
  End If
End Sub

Det virker! Tak kabbak :-)

Hvordan giver jeg dig point nu?

Ved at give et svar ;-))

Ved at jeg giver et svar ;-))