Option Box - Forms

H

HELP

Ok Thank you Dave for answering my other questions but i really need to know
why after grouping the option boxes and hiding them are my dots not staying
in the one group. They are still jumping around. Could someone please help
me. Thank you
 
D

Dave Peterson

Did you use the optionbuttons from the Forms toolbar?

Did you make sure that each optionbutton was entirely in its groupbox?
 
H

HELP

Yeah i thought so but i already bugged you about another question before so i
didnt want to push my luck.

What it is i have lots and lots of rows of 5 check boxes. I have grouped
them but the dot is still moving all over the place. I have made sure that
all the group numbers are different. Is there anything else i have to do. I
spent hours deleting all these form boxes and i put in lots of control ones,
but the document crashed and i cant get it back up so im back to the original
with forms. Who knows what im doing sorry its late, im tired and i dont want
to play anymore.

Thank you so much for your help :)
 
D

Dave Peterson

First, checkboxes or optionbuttons???

Second, from the Forms toolbar or from the Control Toolbox toolbar???

It sure sounds like optionbuttons from the Control toolbox toolbar.

If that's the case, then the Groupboxes won't help. You'll have to change the
groupname of each group to be a nice unique name.

You may want to use optionbuttons from the Forms Toolbar. Debra Dalgleish has
some code that's used to create a survey here:

http://contextures.com/xlForm01.html

It uses optionbuttons from the Forms toolbar and groupboxes around each, er,
group.
 
H

HELP

Sorry im confusing it with everything. OK here i go;

Its option button from the forms toolbar. I already have a couple of
hundred lines with 5 option buttons on each line, but even when i group them
into each line the dot wont stay

I have had a look at the survey and the dot staying put on one line is
exactly what i need. Its unfortunate that i didnt come on here sooner as i
have already entered everything on the sheet including the dots. Am i able
to fix this without re-doing it?
I had a look at your code but i wouldnt even know where to start in order to
get what i need out of it.

Apologies if im testing your patience you have been very very helpful
 
H

HELP

HI Dave,

Thank you so much for your help but i would really appreciate a little more
help. I have tried doing a code/macro thing but im not getting it. I have
no idea what im doing, i tried to use your code thing from the survey as a
template but it got me nowhere. I even tried changing the delete thing you
helped me with from checkboxes to optionbutton but that got me nowhere either.

What i need is to find out how i get the dot to stay in each group. If you
are feeling really generous you could maybe help me with a macro to group the
60 odd pages of option buttons.

Thank you thank you

HELP said:
Sorry im confusing it with everything. OK here i go;

Its option button from the forms toolbar. I already have a couple of
hundred lines with 5 option buttons on each line, but even when i group them
into each line the dot wont stay

I have had a look at the survey and the dot staying put on one line is
exactly what i need. Its unfortunate that i didnt come on here sooner as i
have already entered everything on the sheet including the dots. Am i able
to fix this without re-doing it?
I had a look at your code but i wouldnt even know where to start in order to
get what i need out of it.

Apologies if im testing your patience you have been very very helpful
Click to expand...
 
D

Dave Peterson

Maybe the optionbuttons can be resized and regrouped?

Are they always in the same 5 contiguous columns (like A:E)?

Can you resize those columns so that the optionbuttons fit exactly in them?

This code assumes that all the groupboxes can be deleted and all the option
buttons fit nicely in the cells:

Option Explicit
Sub testme()

Dim GrpBox As GroupBox
Dim OptBtn As OptionButton
Dim wks As Worksheet
Dim RngThatGetGroupBoxes As Range
Dim myRow As Range

Set wks = Worksheets("sheet1")

Set RngThatGetGroupBoxes = wks.Range("a1:E150")

For Each GrpBox In wks.GroupBoxes
GrpBox.Delete
Next GrpBox

For Each OptBtn In wks.OptionButtons
With OptBtn
.Top = .TopLeftCell.Top
.Width = .TopLeftCell.Width
.Height = .TopLeftCell.Height
.Left = .TopLeftCell.Left
End With
Next OptBtn

For Each myRow In RngThatGetGroupBoxes.Rows
With myRow
Set GrpBox = .Parent.GroupBoxes.Add _
(Top:=.Top, Width:=.Width, _
Height:=.Height, Left:=.Left)
End With

With GrpBox
.Visible = True 'or false???
.Name = "GB_" & myRow.Cells(1).Address(0, 0)
.Caption = ""
End With
Next myRow

End Sub
 
H

HELP

Dave you are such a CHAMP. Thank you so very much for helping me. You have
helped so much. I cant thank you enough, But I am now getting a message that
says not enough system resources. Would you happen to know what that means.

Your help has been so Fandilliastic. I would of had a little break down if
not for you.
 
D

Dave Peterson

First, make sure that the zoom factor is set to 100%.

If that didn't work, I'd say try closing excel and restart it.

If that doesn't work, try rebooting.

(Yep, complete guesses!)
Dave you are such a CHAMP. Thank you so very much for helping me. You have
helped so much. I cant thank you enough, But I am now getting a message that
says not enough system resources. Would you happen to know what that means.

Your help has been so Fandilliastic. I would of had a little break down if
not for you.
Click to expand...
 
Top