sllaksvb
10-24-2017, 12:09 PM
Hi all, I have a whole list of IF statements and have no idea how to condense the code! Would very much appreciate it if someone could show me how. My code is :
If Sheets("Basic Information").Range("I8").Value = "1" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "2" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("5:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "3" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("6:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "4" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("7:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "5" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("8:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "6" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("9:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "7" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("10:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "8" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("11:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "9" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("12:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "10" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("13:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "11" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("14:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "12" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("15:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "13" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("16:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "14" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "15" Then
Sheets("Advanced Information").Rows("4:18").EntireRow.Hidden = False
End If
Thank you for your help!!
If Sheets("Basic Information").Range("I8").Value = "1" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "2" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("5:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "3" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("6:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "4" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("7:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "5" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("8:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "6" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("9:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "7" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("10:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "8" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("11:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "9" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("12:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "10" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("13:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "11" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("14:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "12" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("15:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "13" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("16:17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "14" Then
Sheets("Advanced Information").Rows("4:17").EntireRow.Hidden = False
Sheets("Advanced Information").Rows("17").EntireRow.Hidden = True
ElseIf Sheets("Basic Information").Range("I8").Value = "15" Then
Sheets("Advanced Information").Rows("4:18").EntireRow.Hidden = False
End If
Thank you for your help!!