Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
two macros
I have the following code copy pasted in the "input-assumptions" with
this the macro is running quite well. Sub HideRows1() Dim Rng As Range Set Rng = Sheets("input-assumptions").Range("E88") If Rng.Value = "Yes" Then Rows("89:89").EntireRow.Hidden = False Range("E89").Select ElseIf Rng.Value = "No" Then Rows("89:89").EntireRow.Hidden = True Range("E88").Select End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 88 Then Exit Sub If Target.Column < 5 Then Exit Sub HideRows1 End Sub i have also another code as follows, which has been copy pasted belwo the above code Sub HideRows2() Dim Rng As Range Set Rng = Sheets("input-assumptions").Range("E89") If Rng.Value = "Yes" Then Rows("90:121").EntireRow.Hidden = False Range("E89").Select ElseIf Rng.Value = "No" Then Rows("90:121").EntireRow.Hidden = True Range("E89").Select End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 89 Then Exit Sub If Target.Column < 5 Then Exit Sub HideRows2 End Sub However if i choose "YES" or "NO" in any of the E88 and E89 cells i get a Complie error and ambigious name detetected: worksheet change how to run both the macros without having any error please help me |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
two macros
You can only have one Worksheet_Change event:
Try: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 88 And Target.Column = 5 Then HideRows1 End If If Target.Row = 89 And Target.Column = 5 Then HideRows2 End If End Sub Regards Trevor "daidipya" wrote in message oups.com... I have the following code copy pasted in the "input-assumptions" with this the macro is running quite well. Sub HideRows1() Dim Rng As Range Set Rng = Sheets("input-assumptions").Range("E88") If Rng.Value = "Yes" Then Rows("89:89").EntireRow.Hidden = False Range("E89").Select ElseIf Rng.Value = "No" Then Rows("89:89").EntireRow.Hidden = True Range("E88").Select End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 88 Then Exit Sub If Target.Column < 5 Then Exit Sub HideRows1 End Sub i have also another code as follows, which has been copy pasted belwo the above code Sub HideRows2() Dim Rng As Range Set Rng = Sheets("input-assumptions").Range("E89") If Rng.Value = "Yes" Then Rows("90:121").EntireRow.Hidden = False Range("E89").Select ElseIf Rng.Value = "No" Then Rows("90:121").EntireRow.Hidden = True Range("E89").Select End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 89 Then Exit Sub If Target.Column < 5 Then Exit Sub HideRows2 End Sub However if i choose "YES" or "NO" in any of the E88 and E89 cells i get a Complie error and ambigious name detetected: worksheet change how to run both the macros without having any error please help me |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hide Macro's in Toolbar / Macro's list | Excel Discussion (Misc queries) | |||
how do I run excel 4.0 macros on excel 2000 | Excel Discussion (Misc queries) | |||
Excel crashes while opening excel file imbeddied with macros | Excel Discussion (Misc queries) | |||
Enabling macros | Excel Discussion (Misc queries) | |||
Transferring toolbars and macros to other computers | Excel Discussion (Misc queries) |