Option Buttons

[Mustakrakish]

Hi everybody,

I need to make a macro which will insert 3 option buttons in list, gives them names and adds to each one of them another macros i made.

So far i manage to do this:

Sub Swtich()
ActiveSheet.OptionButtons.Add(95.25, 30, 48, 17.25).Select
ActiveSheet.Shapes("Option Button 1").Select
Selection.OnAction = "PERSONAL.XLSB!srm_vlookup"
ActiveSheet.OptionButtons.Add(95.25, 30, 48, 17.25).Select
ActiveSheet.Shapes("Option Button 1").Select
Selection.OnAction = "PERSONAL.XLSB!b11_vlookup"
ActiveSheet.OptionButtons.Add(95.25, 30, 48, 17.25).Select
ActiveSheet.Shapes("Option Button 1").Select
Selection.OnAction = "PERSONAL.XLSB!t3_vlookup"
End sub

I do not know how to put buttons in line so they are not on each other and also change their names.

Main idea is to put in many sheet this buttons for changing data in one collumn so the user can compare different things with actuals.

 

[Andrew Poulsom]

Welcome to MrExcel.

The arguments for the Add method are Left, Top, Width and Height so change those to suit. You can assign the OptionButton to an object variable like this:

    Dim Opt As OptionButton
    Set Opt = ActiveSheet.OptionButtons.Add(95.25, 30, 48, 17.25)
    With Opt
        .Name = "Opt1"
        .OnAction = "PERSONAL.XLSB!srm_vlookup"
    End With