option button help please

[CLARKEY1]

Good afternoon all,

I am having a little trouble trying to figure out how to get an option button working ..
I have attached a sample of what I have so far and what I would like to do is:-

I have put 3 option buttons on my user form ... I would like them to add 25% and 50% to the textbox results that are selected..

You select Index material and description .. this will give 30 prices on the form ... I then wish to have standard (by default) and the other 2 options to be selected as needed

Many Thanks in advance

[nathansav]

I would start by putting the original value somewhere, say the tag of the text box, then on the click, loop through the text boxes adding the %ge to the tag value.

[CLARKEY1]

Thanks Nathan,

Tag of the text box?? .... Sorry ... lost already ...

[Norie]

Add this sub.

Please Login or Register  to view this content.

Now change the ComboBox3 click event to this,

Please Login or Register  to view this content.

add this code for the option buttons.

Please Login or Register  to view this content.

[LJMetzger]

Hi,

Try the following:

Change ComboBox3_Click to:

Please Login or Register  to view this content.

Add the following code in the UserForm module:

Please Login or Register  to view this content.

Lewis

[CLARKEY1]

Thanks Norie

Perfect!!!!

Hours of head scratching all came down to 3 little bits of code ......

Thanks

[CLARKEY1]

Thanks LJMetzger

That works as well ... 2 solutions to the same problem ... Much appreciated

[CLARKEY1]

Norie, LJMetzger,

I thought it worked ... it seemed to ..... but then I found it was also messing with the minimum order (green) result too ..... is there any way it will leave that textbox unchanged???

Thanks

[Norie]

This should skip the Min Order textbox when necessary, ie when 25%/50% are selected.

Please Login or Register  to view this content.

[CLARKEY1]

Norie..

Yay!! Thanks

[LJMetzger]

My solution should leave the minimum order box intact.

Lewis

[CLARKEY1]

Thanks Lewis ... I am currently testing your solution to this as I somehow managed to force a runtime error using Norie's ...

[Norie]

What error are you getting?

PS Both codes change the value in the Min Order box.

[CLARKEY1]

Norie ... Yes they do .... I am getting:- Run-time error '13': Type mismatch

When I start the debug

.Controls("TextBox" & I).Value = _
dic(.ComboBox1.Value)(.ComboBox2.Value)(.ComboBox3.Value)(I) * (1 + dblMarkUp)

is highlighted.

This may have been because I selected the option button BEFORE comboboxes???

Thanks

[LJMetzger]

dic(.ComboBox1.Value)(.ComboBox2.Value)(.ComboBox3.Value)(I) probably has to be cast into a number (if it is numeric), otherwise it should be left as text (e.g. 'Minimum').

I was getting the same runtime error when I was testing my preliminary code.

Lewis

[Norie]

I think it is because you've selected the option button before the comboboxes.

There's a few ways you could deal with that.

Probably the simplest would be to disable the option buttons in design view or at startup and add code to the Click event of ComboBox3 to enable them.

Actually, it would be even simpler to disable the frame they are in.

Please Login or Register  to view this content.

[CLARKEY1]

Thanks Norie,

That worked .. Also had to zero out 'Minimum' .... I guess it cant multiply a word so flags the error ....

All seems to be working now ...

Thanks and rep to you and Lewis