Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > macro
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 11
Default macro
I appreciate any help on this. I am new to this and just trying to figure it
out. Enclosed is what I have. The issue I am having is that everytime I
change anything in the spreadsheet it runs through this the entire program
and the sheet flashes etc. What I would like to do if possible is have the
program after "'Section 7 hide rows depending on the outcome" and to run
automatically if ONLY Cell L62 Changes. If L62 does not change then then
skip the process. Is this possible? If I am not making any sense let me
know.

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Range("B10")) = "X" Or UCase(Range("B11")) = "X" Then
Rows(14 & ":" & 19).EntireRow.Hidden = False
ElseIf WorksheetFunction.CountA(Range("B10:B11")) = 0 Then
Rows(14 & ":" & 19).EntireRow.Hidden = True
End If

If UCase(Range("B24")) = "X" Then
Rows(25 & ":" & 29).EntireRow.Hidden = False
ElseIf WorksheetFunction.CountA(Range("B24")) = 0 Then
Rows(25 & ":" & 29).EntireRow.Hidden = True
End If

'Section 7 hide rows depending on the outcome

Range("63:147").EntireRow.Hidden = True
If Range("L62").Value = 1 Then
Range("63:69").EntireRow.Hidden = False
ElseIf Range("L62").Value = 2 Then
Range("63:75").EntireRow.Hidden = False
ElseIf Range("L62").Value = 3 Then
Range("63:81").EntireRow.Hidden = False
ElseIf Range("L62").Value = 4 Then
Range("63:87").EntireRow.Hidden = False
ElseIf Range("L62").Value = 5 Then
Range("63:93").EntireRow.Hidden = False
ElseIf Range("L62").Value = 6 Then
Range("63:99").EntireRow.Hidden = False
ElseIf Range("L62").Value = 7 Then
Range("63:105").EntireRow.Hidden = False
ElseIf Range("L62").Value = 8 Then
Range("63:111").EntireRow.Hidden = False
ElseIf Range("L62").Value = 9 Then
Range("63:117").EntireRow.Hidden = False
ElseIf Range("L62").Value = 10 Then
Range("63:123").EntireRow.Hidden = False
ElseIf Range("L62").Value = 11 Then
Range("63:129").EntireRow.Hidden = False
ElseIf Range("L62").Value = 12 Then
Range("63:135").EntireRow.Hidden = False
ElseIf Range("L62").Value = 13 Then
Range("63:141").EntireRow.Hidden = False
ElseIf Range("L62").Value = 14 Then
Range("63:147").EntireRow.Hidden = False
End If
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 11,501
Default macro
Hi,

Add this line to your code next to your comment line

If Target.Address < "$L$62" Then Exit Sub
'Section 7 hide rows depending on the outcome

Mike

"Leiprecht" wrote:

I appreciate any help on this. I am new to this and just trying to figure it
out. Enclosed is what I have. The issue I am having is that everytime I
change anything in the spreadsheet it runs through this the entire program
and the sheet flashes etc. What I would like to do if possible is have the
program after "'Section 7 hide rows depending on the outcome" and to run
automatically if ONLY Cell L62 Changes. If L62 does not change then then
skip the process. Is this possible? If I am not making any sense let me
know.

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Range("B10")) = "X" Or UCase(Range("B11")) = "X" Then
Rows(14 & ":" & 19).EntireRow.Hidden = False
ElseIf WorksheetFunction.CountA(Range("B10:B11")) = 0 Then
Rows(14 & ":" & 19).EntireRow.Hidden = True
End If

If UCase(Range("B24")) = "X" Then
Rows(25 & ":" & 29).EntireRow.Hidden = False
ElseIf WorksheetFunction.CountA(Range("B24")) = 0 Then
Rows(25 & ":" & 29).EntireRow.Hidden = True
End If

'Section 7 hide rows depending on the outcome

Range("63:147").EntireRow.Hidden = True
If Range("L62").Value = 1 Then
Range("63:69").EntireRow.Hidden = False
ElseIf Range("L62").Value = 2 Then
Range("63:75").EntireRow.Hidden = False
ElseIf Range("L62").Value = 3 Then
Range("63:81").EntireRow.Hidden = False
ElseIf Range("L62").Value = 4 Then
Range("63:87").EntireRow.Hidden = False
ElseIf Range("L62").Value = 5 Then
Range("63:93").EntireRow.Hidden = False
ElseIf Range("L62").Value = 6 Then
Range("63:99").EntireRow.Hidden = False
ElseIf Range("L62").Value = 7 Then
Range("63:105").EntireRow.Hidden = False
ElseIf Range("L62").Value = 8 Then
Range("63:111").EntireRow.Hidden = False
ElseIf Range("L62").Value = 9 Then
Range("63:117").EntireRow.Hidden = False
ElseIf Range("L62").Value = 10 Then
Range("63:123").EntireRow.Hidden = False
ElseIf Range("L62").Value = 11 Then
Range("63:129").EntireRow.Hidden = False
ElseIf Range("L62").Value = 12 Then
Range("63:135").EntireRow.Hidden = False
ElseIf Range("L62").Value = 13 Then
Range("63:141").EntireRow.Hidden = False
ElseIf Range("L62").Value = 14 Then
Range("63:147").EntireRow.Hidden = False
End If
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 11
Default macro
That would work, however, I have similar code for other cells too. So I do
not want it to end the whole thing.
Cells L62, L159 and E198 How would I incorporate that?

"Mike H" wrote:

Hi,

Add this line to your code next to your comment line

If Target.Address < "$L$62" Then Exit Sub
'Section 7 hide rows depending on the outcome

Mike

"Leiprecht" wrote:

I appreciate any help on this. I am new to this and just trying to figure it
out. Enclosed is what I have. The issue I am having is that everytime I
change anything in the spreadsheet it runs through this the entire program
and the sheet flashes etc. What I would like to do if possible is have the
program after "'Section 7 hide rows depending on the outcome" and to run
automatically if ONLY Cell L62 Changes. If L62 does not change then then
skip the process. Is this possible? If I am not making any sense let me
know.

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Range("B10")) = "X" Or UCase(Range("B11")) = "X" Then
Rows(14 & ":" & 19).EntireRow.Hidden = False
ElseIf WorksheetFunction.CountA(Range("B10:B11")) = 0 Then
Rows(14 & ":" & 19).EntireRow.Hidden = True
End If

If UCase(Range("B24")) = "X" Then
Rows(25 & ":" & 29).EntireRow.Hidden = False
ElseIf WorksheetFunction.CountA(Range("B24")) = 0 Then
Rows(25 & ":" & 29).EntireRow.Hidden = True
End If

'Section 7 hide rows depending on the outcome

Range("63:147").EntireRow.Hidden = True
If Range("L62").Value = 1 Then
Range("63:69").EntireRow.Hidden = False
ElseIf Range("L62").Value = 2 Then
Range("63:75").EntireRow.Hidden = False
ElseIf Range("L62").Value = 3 Then
Range("63:81").EntireRow.Hidden = False
ElseIf Range("L62").Value = 4 Then
Range("63:87").EntireRow.Hidden = False
ElseIf Range("L62").Value = 5 Then
Range("63:93").EntireRow.Hidden = False
ElseIf Range("L62").Value = 6 Then
Range("63:99").EntireRow.Hidden = False
ElseIf Range("L62").Value = 7 Then
Range("63:105").EntireRow.Hidden = False
ElseIf Range("L62").Value = 8 Then
Range("63:111").EntireRow.Hidden = False
ElseIf Range("L62").Value = 9 Then
Range("63:117").EntireRow.Hidden = False
ElseIf Range("L62").Value = 10 Then
Range("63:123").EntireRow.Hidden = False
ElseIf Range("L62").Value = 11 Then
Range("63:129").EntireRow.Hidden = False
ElseIf Range("L62").Value = 12 Then
Range("63:135").EntireRow.Hidden = False
ElseIf Range("L62").Value = 13 Then
Range("63:141").EntireRow.Hidden = False
ElseIf Range("L62").Value = 14 Then
Range("63:147").EntireRow.Hidden = False
End If
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear 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
Macro recorded... tabs & file names changed, macro hangs Steve Excel Worksheet Functions 3 October 30th 09 11:41 AM
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort Gavin Excel Worksheet Functions 0 May 17th 07 01:20 PM
how to count/sum by function/macro to get the number of record to do copy/paste in macro tango Excel Programming 1 October 15th 04 01:16 PM
macro to delete entire rows when column A is blank ...a quick macro vikram Excel Programming 4 May 3rd 04 08:45 PM
Start Macro / Stop Macro / Restart Macro Pete[_13_] Excel Programming 2 November 21st 03 05:04 PM


All times are GMT +1. The time now is 05:34 AM.

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

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement