Option buttons in userform

[Len Silva]

This site won't let me post my code for some reason but I think I can describe the situation well enough that someone might be able to help me.

I have a userform that allows me to fill textboxes with data from a specified row, edit it and write it back. That is working fine.

Now I want to have 2 option buttons to perform a similar function.
I have a variable (VOT) that gets data from a specified cell in my database. That data can only be 1 or 2. I want that variable to set button1 or button2 to TRUE.

Then I want to set another variable (VOTER) to 1 or 2 depending on the final condition of the buttons.

Your help is most appreciated.

[Leith Ross]

Hello Len,

You could upload the workbook to a public file sharing site and post the link to download it.

[bakerman2]

Supposing the value is in Range("A1") and your OptionButtons are called OptionButton1 and OptionButton2 this should answer your first question.

Please Login or Register  to view this content.

[Len Silva]

Here is my sample. I want the buttons to be set to VOTER and to make VOTER 1 or 2. VOTER is column AJ in the data. This is to select OWNER1 or OWNER2 as the voter.

Thanks agian for all your help.

[bakerman2]

IMHO 30 VlookUp's in your code is overkill but since it works for you I've made the changes to your code for myself (as I would do it). If you're interested I'll post the file for you to compare.
As for your question. Put this at the end of your CBunit_Change

Please Login or Register  to view this content.

and this to substitute the last line in your cmdUPDATE code.

Please Login or Register  to view this content.

[Len Silva]

bakerman2, I would be most interested in your code. I am all but illiterate here, everything I've done is by stealing snippets of code that I don't really understand and beating it into submission. I knew this was inelegant at best.

I did a lot of things that I know were less than best practice.
For instance, I didn't know how to get the row number, so I made a new column (ROW) and brought it in to an invisible textbox so I could make it a variable.
I did the same thing with VOTER, I don't need that textbox, it was just the only way I could figure out how to do it.

And, while you are offering, I would like optionbutton2 to remain false if OWNER 2 LAST NAME (TxtO2LN) is blank.

THANK YOU, THANK YOU, THANK YOU!

[bakerman2]

Try this one out and let me know where it might fail.

[Len Silva]

bakerman2, That is so much better. I cannot thank you enough. I haven't tried it on my live data yet, but it looks fantastic.

[Len Silva]

OK, it works great in your sample, but not in my data. I replaced my code with yours and deleted the ROW column. I did not copy your userform to mine because I don't know how.

When I update any row, it writes it to row 2 in my data, and the option buttons don't work as in the sample. Could that be changes you made to the form?

[bakerman2]

First make a copy of your original file and work with that first.
To replace your userform with mine, open both example file and original file and open VB-Editor.
In the Project window delete the userform in the original file then drag (select userform and keep left mousebutton down) the userform from the example file to the original file.

[Len Silva]

I was unable to figure out how to copy the userform, but I was able to copy all my original data back into the sample you made and it is working just as I had hoped.
A million thanks and I will mark this one solved.

[bakerman2]

Glad you got it working to your wishes.
Happy to help and thanks for feedback and rep+.