Reset Button for Data validation lists

**mcjohn** · 12-07-2009, 03:24 PM

Hi,

I'll simplify my problem to this example:

Say there is three drop down lists created from data validation in sheet1 (say in cell A10, B10 and C10 and the data in each list is used to modify cell A1 (say default is a number 1) above with various conditional if statements. So cell A1 will change based on whatever is selected from these 3 drop down lists (multiply by this, add that, etc.). That is all setup fine. Now what if I want to create a button or something else clever that by clicking on it resets all the data validation lists to their first selection, how would I do this? So list1 might currently have option 4 selected, list 2 option 7, list 3 option 9 or whatever, and hitting this reset button puts them all back to their first choice (but still allows you to continuously select the options or reset repeatedly if wanted).

**Palmetto** · 12-07-2009, 04:20 PM

Adapt as required.

Please Login or Register  to view this content.

**mcjohn** · 12-07-2009, 04:52 PM

Thanks for response!

I've attached it to a option form control button and am wondering how can I make the lists reset specifically to the top item in each list (assume each list can be of different length), or if that is too hard, how can i make it equal to a specific cell I can put into the macro. So instead of Range("A10").Value = 1 it is = cell A50 or something. (But I'd rather it just equal to the top of each list). Cheers!

**modytrane** · 12-07-2009, 05:25 PM

see the sample attached. Hit the Reset button.
does that help?
modytrane

**Palmetto** · 12-07-2009, 06:09 PM

I've attached it to a option form control button and am wondering how can I make the lists reset specifically to the top item in each list (assume each list can be of different length), or if that is too hard, how can i make it equal to a specific cell I can put into the macro. So instead of Range("A10").Value = 1 it is = cell A50 or something. (But I'd rather it just equal to the top of each list). Cheers!

You should use a command button - not an option button. Option buttons should be used only for making a specific choice among several availabel choices.

Replace below text inside quotes with the actual text of the first item in the validation list for each of the cells.

Sub reset()

Range("A10").Value = "First Item in List for this cell"
Range("B10").Value = "First Item in List for this cell"
Range("C10").Value = "First Item in List for this cell"

End Sub