Excel Combo box question

[Robert C]

I would like to add a button to my sheet that would set all selected values back to zero. These boxes are Combo Box's(Form Control).
I am using Office 365. Thank you for any assistance.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub RobertC()
   Dim Shp As Shape
   For Each Shp In ActiveSheet.Shapes
      Shp.ControlFormat.ListIndex = 1
   Next Shp
End Sub

 

[Robert C]

Thank you Fluff for your response. As I'm relatively new to Excel functions, would you be able to provide more detail re: the creation of the code? I'm assuming I need to insert a Button (Form Control) and somehow link it to the VBA code?
Thanks.
Robert

 

[Fluff]

The code needs to go in a standard module Insert and run VBA macros in Excel - step-by-step guide
Then if you insert a shape, or a form control button, onto the sheet, right click & assign macro.

 

[Robert C]

The code needs to go in a standard module Insert and run VBA macros in Excel - step-by-step guide
Then if you insert a shape, or a form control button, onto the sheet, right click & assign macro.

Hello Fluff, I created the VBA macro and a Button (Form Control) and linked the button to my macro. I also saved the sheet as an .XLSM extension.
When I click the button, the Combo Box list fields do revert back to zero. Awesome! But...I get a Run-Time error 438. Object doesn't support this property or method.

Thank you.
Robert

 

[Fluff]

But...I get a Run-Time error 438. Object doesn't support this property or method.

I wasn't thinking, that's because of the button, try

Sub RobertC()
   Dim Shp As Shape
   For Each Shp In ActiveSheet.Shapes
      If Shp.FormControlType = 2 Then Shp.ControlFormat.ListIndex = 1
   Next Shp
End Sub

 

[Robert C]

I wasn't thinking, that's because of the button, try

Sub RobertC()
   Dim Shp As Shape
   For Each Shp In ActiveSheet.Shapes
      If Shp.FormControlType = 2 Then Shp.ControlFormat.ListIndex = 1
   Next Shp
End Sub

That works great! Thank you, Fluff. I will study up on the material that you provided.

 

[Fluff]

You're welcome & thanks for the feedback.