Posts by vklotz

Hi there!

I'm pretty new to VBA and am trying to create a column graph to display survey results that will update based on a user's selection from a dropdown list of questions (or could use a slicer). I understand how to do this with data where the X-axis categories are the same for each question, however that is not the case with my survey. For instance, some questions have the options yes or no, and some have other and many more categories. Open to accomplishing this with or without VBA. I've been trying to find a solution for quite some time, so any help would be greatly appreciated!!

Many thanks!

Terrific, that solved my issue. Thank you again so much--this has been extremely helpful!

Thank you so much, Carim! I was able to apply that code to my main workbook, the only issue is that in my main workbook I can run the macro in the VBA window and it works properly, but if I then select a different response for any of the questions (for instance, selecting the first response for 8a then selecting the second one instead) the macro no longer functions. Is there a way to keep it continuously active like in your spreadsheet? The only part of the code I changed was the cell references based on my main spreadsheet so perhaps I need to change a setting?

The goal is for when someone selects the 2nd or 3rd option in question 8a, not applicable will autopopulate for 8b and 8c. So for the code I started, option button 215 is the second one under 8a and 231 is the "not applicable" option under 8b. Thanks!

Thanks, Carim! I've added a sample Excel file to my original post.

Hi there,

Sample Excel file: [ATTACH]n1224595[/ATTACH]

I'm new to VBA and am trying to get specific option buttons to autoselect based on the value a user selects for another option button. My code so far is copied below, however, it does not appear to be working. Would greatly appreciate any help!

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.OptionButton215.Value = xlOn Then
ActiveSheet.OptionButton231.Value = xlOn
Else
ActiveSheet.OptionButton231.Value = xlOff
End If
End Sub