hide/unhide rows depending on the top input value
Hi
I need help to edit macro below that specific range of rows could hiding/unhiding depending on the top input value. In this instance the results are changing dynamically when the input values are changed: "Private Sub Worksheet_Change(ByVal Target As Range) Dim rngIn As Range Dim rngOut As Range Dim iMax As Long Set rngIn = Me.Range("A1:C1") Set rngOut = Me.Range("A3:A40") iMax = Application.Max(rngIn) If Not Intersect(rngIn, Target) Is Nothing Then On Error GoTo XIT Application.EnableEvents = False Range(rngOut, rngOut.End(xlDown)).ClearContents Set rngOut = rngOut.Resize(iMax + 1) rngOut(1) = 0 rngOut.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _ Step:=1, Trend:=False End If XIT: Application.EnableEvents = True End Sub" Thanx in advance! |
hide/unhide rows depending on the top input value
Which rows get hidden? You can toggle like so
Rows("12:20").Hidden = Not Rows("12:20").Hidden -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "TiDz" wrote in message ... Hi I need help to edit macro below that specific range of rows could hiding/unhiding depending on the top input value. In this instance the results are changing dynamically when the input values are changed: "Private Sub Worksheet_Change(ByVal Target As Range) Dim rngIn As Range Dim rngOut As Range Dim iMax As Long Set rngIn = Me.Range("A1:C1") Set rngOut = Me.Range("A3:A40") iMax = Application.Max(rngIn) If Not Intersect(rngIn, Target) Is Nothing Then On Error GoTo XIT Application.EnableEvents = False Range(rngOut, rngOut.End(xlDown)).ClearContents Set rngOut = rngOut.Resize(iMax + 1) rngOut(1) = 0 rngOut.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _ Step:=1, Trend:=False End If XIT: Application.EnableEvents = True End Sub" Thanx in advance! |
hide/unhide rows depending on the top input value
Hi Bob
Actually I need that depanding on the top value (from 1 to 40) in the specific range stay on adequate quantity of the 40 rows in the specific range in the sheet. "Bob Phillips" rašė: Which rows get hidden? You can toggle like so Rows("12:20").Hidden = Not Rows("12:20").Hidden -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "TiDz" wrote in message ... Hi I need help to edit macro below that specific range of rows could hiding/unhiding depending on the top input value. In this instance the results are changing dynamically when the input values are changed: "Private Sub Worksheet_Change(ByVal Target As Range) Dim rngIn As Range Dim rngOut As Range Dim iMax As Long Set rngIn = Me.Range("A1:C1") Set rngOut = Me.Range("A3:A40") iMax = Application.Max(rngIn) If Not Intersect(rngIn, Target) Is Nothing Then On Error GoTo XIT Application.EnableEvents = False Range(rngOut, rngOut.End(xlDown)).ClearContents Set rngOut = rngOut.Resize(iMax + 1) rngOut(1) = 0 rngOut.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _ Step:=1, Trend:=False End If XIT: Application.EnableEvents = True End Sub" Thanx in advance! |
All times are GMT +1. The time now is 12:19 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com