Thread: Shorter code
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Stu[_12_] Stu[_12_] is offline
external usenet poster
  
Posts: 1
Default Shorter code
If Range("B86").Value = "" Then
Range("B87").EntireRow.Hidden = True
Else
Range("B87").EntireRow.Hidden = False
End If

If Range("B87").Value = "" Then
Range("B88").EntireRow.Hidden = True
Else
Range("B88").EntireRow.Hidden = False
End If

If Range("B88").Value = "" Then
Range("B89").EntireRow.Hidden = True
Else
Range("B89").EntireRow.Hidden = False
End If

If Range("B89").Value = "" Then
Range("B90").EntireRow.Hidden = True
Else
Range("B90").EntireRow.Hidden = False
End If

If Range("B90").Value = "" Then
Range("B91").EntireRow.Hidden = True
Else
Range("B91").EntireRow.Hidden = False
End If

If Range("B91").Value = "" Then
Range("B92").EntireRow.Hidden = True
Else
Range("B92").EntireRow.Hidden = False
End If

If Range("B92").Value = "" Then
Range("B93").EntireRow.Hidden = True
Else
Range("B93").EntireRow.Hidden = False
End If

If Range("B93").Value = "" Then
Range("B94").EntireRow.Hidden = True
Else
Range("B94").EntireRow.Hidden = False
End If


End Sub




Sub EuropeMay()

If Range("B100").Value = "" Then
Range("B101").EntireRow.Hidden = True
Else
Range("B101").EntireRow.Hidden = False
End If

If Range("B101").Value = "" Then
Range("B102").EntireRow.Hidden = True
Else
Range("B102").EntireRow.Hidden = False
End If

If Range("B102").Value = "" Then
Range("B103").EntireRow.Hidden = True
Else
Range("B103").EntireRow.Hidden = False
End If

If Range("B103").Value = "" Then
Range("B104").EntireRow.Hidden = True
Else
Range("B104").EntireRow.Hidden = False
End If

If Range("B104").Value = "" Then
Range("B105").EntireRow.Hidden = True
Else
Range("B105").EntireRow.Hidden = False
End If

If Range("B105").Value = "" Then
Range("B106").EntireRow.Hidden = True
Else
Range("B106").EntireRow.Hidden = False
End If

If Range("B106").Value = "" Then
Range("B107").EntireRow.Hidden = True
Else
Range("B107").EntireRow.Hidden = False
End If

If Range("B107").Value = "" Then
Range("B108").EntireRow.Hidden = True
Else
Range("B108").EntireRow.Hidden = False
End If

If Range("B108").Value = "" Then
Range("B109").EntireRow.Hidden = True
Else
Range("B109").EntireRow.Hidden = False
End If

If Range("B109").Value = "" Then
Range("B110").EntireRow.Hidden = True
Else
Range("B110").EntireRow.Hidden = False
End If

If Range("B110").Value = "" Then
Range("B111").EntireRow.Hidden = True
Else
Range("B111").EntireRow.Hidden = False
End If

If Range("B111").Value = "" Then
Range("B112").EntireRow.Hidden = True
Else
Range("B112").EntireRow.Hidden = False
End If

If Range("B112").Value = "" Then
Range("B113").EntireRow.Hidden = True
Else
Range("B113").EntireRow.Hidden = False
End If

If Range("B113").Value = "" Then
Range("B114").EntireRow.Hidden = True
Else
Range("B114").EntireRow.Hidden = False
End If

If Range("B114").Value = "" Then
Range("B115").EntireRow.Hidden = True
Else
Range("B115").EntireRow.Hidden = False
End If

If Range("B115").Value = "" Then
Range("B116").EntireRow.Hidden = True
Else
Range("B116").EntireRow.Hidden = False
End If

If Range("B116").Value = "" Then
Range("B117").EntireRow.Hidden = True
Else
Range("B117").EntireRow.Hidden = False
End If

If Range("B117").Value = "" Then
Range("B118").EntireRow.Hidden = True
Else
Range("B118").EntireRow.Hidden = False
End If


End Sub



Sub EuropeJun()

If Range("B124").Value = "" Then
Range("B125").EntireRow.Hidden = True
Else
Range("B125").EntireRow.Hidden = False
End If

If Range("B125").Value = "" Then
Range("B126").EntireRow.Hidden = True
Else
Range("B126").EntireRow.Hidden = False
End If

If Range("B126").Value = "" Then
Range("B127").EntireRow.Hidden = True
Else
Range("B127").EntireRow.Hidden = False
End If

If Range("B127").Value = "" Then
Range("B128").EntireRow.Hidden = True
Else
Range("B128").EntireRow.Hidden = False
End If

If Range("B128").Value = "" Then
Range("B129").EntireRow.Hidden = True
Else
Range("B129").EntireRow.Hidden = False
End If

If Range("B129").Value = "" Then
Range("B130").EntireRow.Hidden = True
Else
Range("B130").EntireRow.Hidden = False
End If

If Range("B130").Value = "" Then
Range("B131").EntireRow.Hidden = True
Else
Range("B131").EntireRow.Hidden = False
End If

If Range("B131").Value = "" Then
Range("B132").EntireRow.Hidden = True
Else
Range("B132").EntireRow.Hidden = False
End If

If Range("B132").Value = "" Then
Range("B133").EntireRow.Hidden = True
Else
Range("B133").EntireRow.Hidden = False
End If

If Range("B133").Value = "" Then
Range("B134").EntireRow.Hidden = True
Else
Range("B134").EntireRow.Hidden = False
End If

If Range("B134").Value = "" Then
Range("B135").EntireRow.Hidden = True
Else
Range("B135").EntireRow.Hidden = False
End If

If Range("B135").Value = "" Then
Range("B136").EntireRow.Hidden = True
Else
Range("B136").EntireRow.Hidden = False
End If

If Range("B136").Value = "" Then
Range("B137").EntireRow.Hidden = True
Else
Range("B137").EntireRow.Hidden = False
End If

If Range("B137").Value = "" Then
Range("B138").EntireRow.Hidden = True
Else
Range("B138").EntireRow.Hidden = False
End If

If Range("B138").Value = "" Then
Range("B139").EntireRow.Hidden = True
Else
Range("B139").EntireRow.Hidden = False
End If

If Range("B139").Value = "" Then
Range("B140").EntireRow.Hidden = True
Else
Range("B140").EntireRow.Hidden = False
End If

If Range("B140").Value = "" Then
Range("B141").EntireRow.Hidden = True
Else
Range("B141").EntireRow.Hidden = False
End If

If Range("B141").Value = "" Then
Range("B142").EntireRow.Hidden = True
Else
Range("B142").EntireRow.Hidden = False
End If


End Sub



Sub EuropeJul()

If Range("B148").Value = "" Then
Range("B149").EntireRow.Hidden = True
Else
Range("B149").EntireRow.Hidden = False
End If

If Range("B149").Value = "" Then
Range("B150").EntireRow.Hidden = True
Else
Range("B150").EntireRow.Hidden = False
End If

If Range("B150").Value = "" Then
Range("B151").EntireRow.Hidden = True
Else
Range("B151").EntireRow.Hidden = False
End If

If Range("B151").Value = "" Then
Range("B152").EntireRow.Hidden = True
Else
Range("B152").EntireRow.Hidden = False
End If

If Range("B152").Value = "" Then
Range("B153").EntireRow.Hidden = True
Else
Range("B153").EntireRow.Hidden = False
End If

If Range("B153").Value = "" Then
Range("B154").EntireRow.Hidden = True
Else
Range("B154").EntireRow.Hidden = False
End If

If Range("B154").Value = "" Then
Range("B155").EntireRow.Hidden = True
Else
Range("B155").EntireRow.Hidden = False
End If

If Range("B155").Value = "" Then
Range("B156").EntireRow.Hidden = True
Else
Range("B156").EntireRow.Hidden = False
End If

If Range("B156").Value = "" Then
Range("B157").EntireRow.Hidden = True
Else
Range("B157").EntireRow.Hidden = False
End If

If Range("B157").Value = "" Then
Range("B158").EntireRow.Hidden = True
Else
Range("B158").EntireRow.Hidden = False
End If

If Range("B158").Value = "" Then
Range("B159").EntireRow.Hidden = True
Else
Range("B159").EntireRow.Hidden = False
End If

If Range("B159").Value = "" Then
Range("B160").EntireRow.Hidden = True
Else
Range("B160").EntireRow.Hidden = False
End If

If Range("B160").Value = "" Then
Range("B161").EntireRow.Hidden = True
Else
Range("B161").EntireRow.Hidden = False
End If

If Range("B161").Value = "" Then
Range("B162").EntireRow.Hidden = True
Else
Range("B162").EntireRow.Hidden = False
End If

If Range("B162").Value = "" Then
Range("B163").EntireRow.Hidden = True
Else
Range("B163").EntireRow.Hidden = False
End If

If Range("B163").Value = "" Then
Range("B164").EntireRow.Hidden = True
Else
Range("B164").EntireRow.Hidden = False
End If

If Range("B164").Value = "" Then
Range("B165").EntireRow.Hidden = True
Else
Range("B165").EntireRow.Hidden = False
End If

If Range("B165").Value = "" Then
Range("B166").EntireRow.Hidden = True
Else
Range("B166").EntireRow.Hidden = False
End If

End Sub


Sub EuropeAug()

If Range("B172").Value = "" Then
Range("B173").EntireRow.Hidden = True
Else
Range("B173").EntireRow.Hidden = False
End If

If Range("B173").Value = "" Then
Range("B174").EntireRow.Hidden = True
Else
Range("B174").EntireRow.Hidden = False
End If

If Range("B174").Value = "" Then
Range("B175").EntireRow.Hidden = True



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Reply With QuoteReply With Quote