Falling at the last hurdle with Checkboxes and Option buttons

NoSparks · #6 06-09-2019, 08:57 PM

Quote:

In place of the loops write 3 lines for sheets and 3 lines for optionbuttons each using the actual name.

You've completely lost me - I'm afraid that I really need some assistance with what you mean.

The old Private Sub OptionButton1_Change() would become something like this,
although I don't think VBA accepts a control name with a space in it.

Code:

Private Sub NextGen_Change()
     If NextGen.Value = True Then
        ' this replaces the loop
        Me.Controls(NextGen).BackColor = RGB(244, 244, 244)
        Me.Controls(Advanced).BackColor = RGB(244, 244, 244)
        Me.Controls(All Future).BackColor = RGB(244, 244, 244)
        Sheets("Report template - NextGen").Visible = True
        Sheets("Report template - Advanced").Visible = True
        Sheets("Report template - All Future").Visible = True
        '
        Sheets(Array("Report template - Advanced", "Report template - All Future")).Visible = False
        Sheets("Report template - NextGen").Activate
        Range("H4").Select
        SendKeys "%{down}", True
        NextGen.BackColor = RGB(128, 255, 128)
        cmdContinue.Enabled = True
     End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Option Buttons - linking and control	natelfo	Visio	8	01-25-2024 02:01 AM
Option buttons for multiple choice questions	ScottishPolarBear	Word	4	12-02-2014 02:23 PM
Display cells dependent on option buttons	inq80	Excel	0	09-01-2014 03:40 PM
How do you achieve Falling letters?	PPT	PowerPoint	0	04-21-2012 06:12 AM
Word 2007 Option buttons - transparency	JacobThomas	Word VBA	1	11-02-2011 05:40 AM