I'm a quite new to VBA

With help from Gary''s Student in Excel Functions section i have written
the following macro to unhide cell based on the value of Cell $I$20 which has
a drop down list .
.................................................. .. VBA Code
..............................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I20")) Is Nothing Then
Exit Sub
End If

Rows("21:218").EntireRow.Hidden = True
unhide_um = Array("21:38", "21:56", "21:74", "21:92", "21:110", "21:128",
"21:146", "21:164", "21:182", "21:200", "21:218")
v = Range("I20").Value
If v = 0 Then
Exit Sub
End If
Rows(unhide_um(v - 1)).EntireRow.Hidden = False
End Sub
.................................................. .................................................. ........
what i require is to create a similar procedure in Cell $I$224 which will
unhide cell
"225:242", "225:260", "225:278", "225:296", "225:314", "225:332", "225:350",
"225:368" based on the value of Cell $I$224

I tried to create same worksheet Change event code but got a Run time error.
Any help will highly appreciated.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$20" Then
' present code
ElseIf Target.Address = "$I$224" Then
' new code
End If
End Sub

Regards,
Stefi

€žRajat€� ezt Ã*rta:

I'm a quite new to VBA

With help from Gary''s Student in Excel Functions section i have written
the following macro to unhide cell based on the value of Cell $I$20 which has
a drop down list .
.................................................. . VBA Code
.............................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I20")) Is Nothing Then
Exit Sub
End If

Rows("21:218").EntireRow.Hidden = True
unhide_um = Array("21:38", "21:56", "21:74", "21:92", "21:110", "21:128",
"21:146", "21:164", "21:182", "21:200", "21:218")
v = Range("I20").Value
If v = 0 Then
Exit Sub
End If
Rows(unhide_um(v - 1)).EntireRow.Hidden = False
End Sub
.................................................. .................................................. ......
what i require is to create a similar procedure in Cell $I$224 which will
unhide cell
"225:242", "225:260", "225:278", "225:296", "225:314", "225:332", "225:350",
"225:368" based on the value of Cell $I$224

I tried to create same worksheet Change event code but got a Run time error.
Any help will highly appreciated.

Hi

Private Sub Worksheet_Change(ByVal Target As Range)
Dim unhide_um, v As Integer

Select Case Target.Address
Case Is = Range("I20").Address
Rows("21:218").EntireRow.Hidden = True
unhide_um = Array("21:38", "21:56", "21:74", "21:92", "21:110",
"21:128", _
"21:146", "21:164", "21:182", "21:200",
"21:218")
v = Range("I20").Value

Case Is = Range("I224").Address
Rows("225:368").EntireRow.Hidden = True
unhide_um = Array("225:242", "225:260", "225:278", "225:296",
"225:314", _
"225:332", "225:350", "225:368")
v = Range("I224").Value
Case Else
End Select

If v = 0 Then Exit Sub
Rows(unhide_um(v - 1)).EntireRow.Hidden = False
End Sub


"Rajat" wrote in message
...
I'm a quite new to VBA

With help from Gary''s Student in Excel Functions section i have
written
the following macro to unhide cell based on the value of Cell $I$20 which
has
a drop down list .
.................................................. . VBA Code
.............................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I20")) Is Nothing Then
Exit Sub
End If

Rows("21:218").EntireRow.Hidden = True
unhide_um = Array("21:38", "21:56", "21:74", "21:92", "21:110", "21:128",
"21:146", "21:164", "21:182", "21:200", "21:218")
v = Range("I20").Value
If v = 0 Then
Exit Sub
End If
Rows(unhide_um(v - 1)).EntireRow.Hidden = False
End Sub
.................................................. .................................................. ......
what i require is to create a similar procedure in Cell $I$224 which will
unhide cell
"225:242", "225:260", "225:278", "225:296", "225:314", "225:332",
"225:350",
"225:368" based on the value of Cell $I$224

I tried to create same worksheet Change event code but got a Run time
error.
Any help will highly appreciated.

Thanks a lot BIG BROTHER

Regards

Rajat