I have this code, that checks 5 values in Excel and depending on the Yes/No answer, it hides or shows specific rows in two worksheets. There is a way to speed up this code?
quote:If Target.Address(False, False) = "B7" Then
Select Case Target.Value
Case "No": Sheet6.Rows("67:67").Hidden = True:
Case "Yes": Sheet6.Rows("67:67").Hidden = False:
End Select
End If
If Target.Address(False, False) = "B7" Then
Select Case Target.Value
Case "No": Sheet9.Rows("6:6").Hidden = True:
Case "Yes": Sheet9.Rows("6:6").Hidden = False:
End Select
End If
'Check if AA Fee is yes
If Target.Address(False, False) = "D7" Then
Select Case Target.Value
Case "No": Sheet6.Rows("65:65").Hidden = True:
Case "Yes": Sheet6.Rows("65:65").Hidden = False:
End Select
End If
If Target.Address(False, False) = "D7" Then
Select Case Target.Value
Case "No": Sheet9.Rows("4:4").Hidden = True:
Case "Yes": Sheet9.Rows("4:4").Hidden = False:
End Select
End If
'Check if UC Fee is yes
If Target.Address(False, False) = "F7" Then
Select Case Target.Value
Case "No": Sheet6.Rows("66:66").Hidden = True:
Case "Yes": Sheet6.Rows("66:66").Hidden = False:
End Select
End If
If Target.Address(False, False) = "F7" Then
Select Case Target.Value
Case "No": Sheet9.Rows("5:5").Hidden = True:
Case "Yes": Sheet9.Rows("5:5").Hidden = False:
End Select
End If
'Check if Bad Debt is yes
If Target.Address(False, False) = "J7" Then
Select Case Target.Value
Case "No": Sheet6.Rows("64:64").Hidden = True:
Case "Yes": Sheet6.Rows("64:64").Hidden = False:
End Select
End If
If Target.Address(False, False) = "J7" Then
Select Case Target.Value
Case "No": Sheet9.Rows("3:3").Hidden = True:
Case "Yes": Sheet9.Rows("3:3").Hidden = False:
End Select
End If
'Check if UC Online Fee Debt is yes
If Target.Address(False, False) = "N7" Then
Select Case Target.Value
Case "No": Sheet6.Rows("68:68").Hidden = True:
Case "Yes": Sheet6.Rows("68:68").Hidden = False:
End Select
End If
If Target.Address(False, False) = "N7" Then
Select Case Target.Value
Case "No": Sheet9.Rows("7:7").Hidden = True:
Case "Yes": Sheet9.Rows("7:7").Hidden = False:
End Select
End If
--
CheckSite.us | YourIP.us | Reverseip.us
↧