Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Shorter code
 
 
LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
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
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Threaded Mode Threaded Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Shorter way Oldjay Excel Discussion (Misc queries) 1 May 5th 08 05:12 PM
Macro name shorter Sunnyskies Excel Discussion (Misc queries) 0 February 8th 07 10:35 AM
iso shorter equation nastech Excel Discussion (Misc queries) 0 March 14th 06 10:52 PM
Shorter Formula Pete Excel Discussion (Misc queries) 1 February 18th 05 03:37 PM
shorter way? Me ![_3_] Excel Programming 0 September 15th 03 06:12 PM


All times are GMT +1. The time now is 07:25 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement