Option Buttons on Userforms

I have two sets of option buttons on a user form.

Once all the userform data is entered, the user clicks a command button to save the data. I using code similar to the following to copy the data to a separate worksheet (this code works fine):

Please Login or Register  to view this content.

The options buttons have a "New" or "Used" captions in the first set and "Yes" or "No" in the second set. I thought i could just save one answer for each option set with the following:

Please Login or Register  to view this content.

However, this only produces a blank cell when the copy code is executed:

.Cells(curRow, 8).value = Me.ActiveCell.value

Can anyone set me straight or am i pursuing something that isn't possible?

Thanks.

The premise is that new data will be entered in the top half of a form. The data is saved to a separate worksheet.

There is a listbox on the form that will permit subsequent editing of the data; the data is pulled into the listbox from the spreadsheet. This issue is based on the Vehicles userform (Step 6 from the menu).

The vehicles sheet found at the back of the workbook.

Hi,

You are very close.

You have a couple of small physical design issues:
a. Without any data (in the design) one OptionButton in each Group should be set to 'True'. It does not matter which OptionButton.
This can be done in the UserForm itself:
1. Go to VBA and Press key 'F4' to display the Properties Window
2. Display the UserForm
3. Left Click on an Option Button
4. In the Properties Window assign a GroupName. All OptionButtons in the same GroupName behave as a set.

or can be done during initialization of the UserForm: e.g. VehicleForm.Opt_New = True

b. the Yes/No OptionButtons have the same 'Group Name' ('NeworUsed') as the New/Used OptionButtons. They behave separately because you have a Frame Around them (which is perfectly fine). It is probably a good idea to rename the Group that contains the 'Yes/No'OptionButtons. You can then remove the 'Frame' if you want.

c. After you fix 'a.' above, your existing Code for 'One OptionButton' is all you need:
.Cells(curRow, 9).value = Me.Opt_New.value

d. Not related. You might want to consider hiding the 'row Number' as a Column in the ListBox. Since you have more than 10 Columns 'Original Row Number' would have to be a Column in the Spreadsheet.

When reading data into the UserForm:
Me.Opt_New.value = Me.lstVehicles.Column(8) will automatically set both OptionButtons to the Correct State.

--------------------------
However if your group contains 3 or more OptionButtons you would need a different strategy. You would have to save something that would IDENTIFY the OptionButton that is True. You would need two different routines, one to put the data into the UserForm from the Spreadsheet, and vice versa.

For example:

Please Login or Register  to view this content.

Lewis