Hi
Hope one of you out there can help me.

I have a workbook with 2 sheets. The sheet tab is hidden.

Each sheet has an identical set of OptionButtons (4 optionsbuttons, 2 per sheet).

What i want to be able to do:

jump forth and back between sheets via Optionbuttons.

Sheet1: optionbutton1(sheet1)checked. OptionButton2(sheet2)
Click OptionButton2
move to sheet2
Sheet2.optionbutton1(sheet1). OptionButton2(sheet2)checked.
set optionbutton1 in sheet1 to checked
Click OptionButton1 in sheet2
move back to sheet1.
set optionbutton2 in sheet2 to checked


Frank

Not sure why you'd hide the tabs and have option buttons control it but here goes.

For sheet1 the code for option button 2 will be:

---------------------------------------------------
Private Sub OptionButton2_Click()

  Worksheets("Sheet2").OptionButton1.Value = False
  Worksheets("Sheet2").OptionButton2.Value = True
  Worksheets("Sheet2").Activate

End Sub
---------------------------------------------------

No code is needed for option button 1 on sheet 1.

For sheet 2 the code for option button 1 will be:

---------------------------------------------------
Private Sub OptionButton1_Click()

  Worksheets("Source").OptionButton1.Value = True
  Worksheets("Source").OptionButton2.Value = False
  Worksheets("Source").Activate

End Sub
---------------------------------------------------

This should produce your desired results.

If you want to be thorough and make sure the checks are checked properly on each form then just change all 4 option buttons explicitly in each routine instead of just the two on the opposite page.

Hope this is what you needed.

Hi Allenm

Thanks for your help, but it doesn't seem to work.Does it work for you?

I can follow your idea, but i get a " Run-time error'438' Objekt doesn't support this property or method".

Worksheets("Sheet2").OptionButton1.Value = False is marked

You wondered what it's all about. I am building a program for the very novice excel user (more than i am). I want a clean user interface with almost everything hidden. I could use a commandbutton for the purpose, but now i have set my mind for optionbuttons!

Frank

Hmm... Make sure the option buttons and sheet tabs are named correctly.

For instance if optionbutton1 is renamed in properties to Sheet1Option1 then it would be worksheets("<Sheet tab name here>").Sheet1Option1.value

Also, in my above example my second worksheet says worksheets("Source") because that is how I commonly name my spreadsheets. Rename worksheets("Source") to worksheets("Sheet1").

The value in "" for Worksheets() is the name of the tab.
P.S. It works fine in a worksheet I've created here today.

If there is further problems I will code it up and provide step by step instructions for you.

Let me clarify:
1) Create a workbook that has sheet1 and sheet2 for two of the tab names.
2) Create two option buttons on each sheet and make sure that they are named OptionButton1 and OptionButton2 on both of them
3) In design mode double click OptionButton2 from sheet1 and insert the code for OptionButton2, N0 code for OPTIONBUTTON1 on sheet1
4) In design mode double click OptionButton1 from sheet2 and insert the code for OptionButton1, N0 code for OPTIONBUTTON2 on sheet2


---------------------------------------------------
Private Sub OptionButton2_Click()

  Worksheets("Sheet2").OptionButton1.Value = False
  Worksheets("Sheet2").OptionButton2.Value = True
  Worksheets("Sheet2").Activate

End Sub
---------------------------------------------------

No code is needed for option button 1 on sheet 1.

For sheet 2 the code for option button 1 will be:

---------------------------------------------------
Private Sub OptionButton1_Click()

  Worksheets("Sheet1").OptionButton1.Value = True
  Worksheets("Sheet1").OptionButton2.Value = False
  Worksheets("Sheet1").Activate

End Sub
---------------------------------------------------

let me know if this works for you.

Allenm

Thanks for being so persistent.

The "recipe" you provided was the one i was using.

I am using a danish version of excel. Could there be a problem in this?

Perhaps you would be so kind to send me your working workbook, so i can see where the problem lies.

My email address is [email protected]

Not aware of any differences between the two versions myself. May want to check security level (Tools > Macro > Security). Set it to medium and it will prompt you to verify use of macros. Wouldn't suggest low priority to anyone.

Another possible problem is that you might have set the buttons on both pages to to have the same GroupName. Make sure the GroupName property for the option buttons on page 1 is different from the GroupName property of the buttons on page 2.

Thank you,Allen
I finally found out what i was doing wrong.
I made an embarrassing newbies fault. I was using Optionbuttons from the formulas toolbox, instead of optionbuttons from the control element tool box. Now everything works fine.
Once again, thanks for your patience.
Frank

Happy to help.