View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Peelos Peelos is offline
external usenet poster
 
Posts: 2
Default Repetitive IF statement

One way:

Private Sub CommandButton11_Click()

Select Case

Case OptionButton1 = True


Sheets("GIT XP CLIENT STATS").Visible = True
Sheets("GROUP IT SUPPORTED XP CLIENT").Visible = True

Case OptionButton2 = True

Sheets("GIT SILO STATS").Visible = True
Sheets("GROUP IT SUPPORTED SILO SERVER").Visible = True

Case OptionButton3 = True

Sheets("GIT FARM STATS").Visible = True
Sheets("GROUP IT SUPPORTED SERVER FARM").Visible = True

Case OptionButton4 = True

Sheets("NGIT XP CLIENT STATS").Visible = True
Sheets("NON-GIT SUPPORTED XP CLIENT").Visible = True

Case OptionButton5 = True

Sheets("NGIT SILO STATS").Visible = True
Sheets("NON-GIT SUPPORTED SILO SERVER").Visible = True

Case OptionButton6 = True

Sheets("NGIT FARM STATS").Visible = True
Sheets("NON-GIT SUPPORTED SERVER FARM").Visible = True

Case OptionButton7 = True

Sheets("SW XP CLIENT STATS").Visible = True
Sheets("SHRINK WRAPPED XP CLIENT").Visible = True

Case OptionButton8 = True

Sheets("SW SILO STATS").Visible = True
Sheets("SHRINK WRAPPED SILO SERVER").Visible = True

Case OptionButton9 = True

Sheets("SW FARM STATS").Visible = True
Sheets("SHRINK WRAPPED SERVER FARM").Visible = True

Case OptionButton10 = True

Sheets("BUNDLE STATS").Visible = True
Sheets("BUNDLE").Visible = True

End Case

Sheets("START").Visible = False
ActiveSheet.Range("A1").Select
ActiveCell = "Component Name: " & TextBox1.Text
End Sub