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!

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!

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!