Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
assign macro to a lise
i have one macro as follows
Sub HideRows() Dim Rng As Range Set Rng = Sheets("Sheet1").Range("B10") If Rng.Value = "YES" Then Rows("11:50").EntireRow.Hidden = False Range("B11").Select ElseIf Rng.Value = "NO" Then Rows("11:50").EntireRow.Hidden = True Range("B51").Select End If End Sub now i want that whenever i change in the values in cell B10 the said macro should run. Please help me out |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
assign macro to a lise
Hi
One way would be to add the following event code to the Sheet1 module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub HideRows End Sub Right click on the Sheet1 tabView CodePaste the above -- Regards Roger Govier "daidipya" wrote in message ups.com... i have one macro as follows Sub HideRows() Dim Rng As Range Set Rng = Sheets("Sheet1").Range("B10") If Rng.Value = "YES" Then Rows("11:50").EntireRow.Hidden = False Range("B11").Select ElseIf Rng.Value = "NO" Then Rows("11:50").EntireRow.Hidden = True Range("B51").Select End If End Sub now i want that whenever i change in the values in cell B10 the said macro should run. Please help me out |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
assign macro to a lise
Hi Roger Govier
Thanks for you much needed help i am a fiannce guy and know nothing of programming but with your help i am now able to hide any rows in any sheets by modifying the code. can you also help me with this --- Now i want to run different macros depending upon the different option i choose form the drop down list. for example if i choose "YES" then Macro1 if i choose "NO" then Macro2 thanks Roger Govier wrote: Hi One way would be to add the following event code to the Sheet1 module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub HideRows End Sub Right click on the Sheet1 tabView CodePaste the above -- Regards Roger Govier "daidipya" wrote in message ups.com... i have one macro as follows Sub HideRows() Dim Rng As Range Set Rng = Sheets("Sheet1").Range("B10") If Rng.Value = "YES" Then Rows("11:50").EntireRow.Hidden = False Range("B11").Select ElseIf Rng.Value = "NO" Then Rows("11:50").EntireRow.Hidden = True Range("B51").Select End If End Sub now i want that whenever i change in the values in cell B10 the said macro should run. Please help me out |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
assign macro to a lise
Hi
Just change the code to Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub If Target.Value = "YES" Then Macro1 If Target.Value = "NO" Then Macro2 End Sub -- Regards Roger Govier "daidipya" wrote in message ps.com... Hi Roger Govier Thanks for you much needed help i am a fiannce guy and know nothing of programming but with your help i am now able to hide any rows in any sheets by modifying the code. can you also help me with this --- Now i want to run different macros depending upon the different option i choose form the drop down list. for example if i choose "YES" then Macro1 if i choose "NO" then Macro2 thanks Roger Govier wrote: Hi One way would be to add the following event code to the Sheet1 module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub HideRows End Sub Right click on the Sheet1 tabView CodePaste the above -- Regards Roger Govier "daidipya" wrote in message ups.com... i have one macro as follows Sub HideRows() Dim Rng As Range Set Rng = Sheets("Sheet1").Range("B10") If Rng.Value = "YES" Then Rows("11:50").EntireRow.Hidden = False Range("B11").Select ElseIf Rng.Value = "NO" Then Rows("11:50").EntireRow.Hidden = True Range("B51").Select End If End Sub now i want that whenever i change in the values in cell B10 the said macro should run. Please help me out |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
assign macro to a lise
Thanks Roger Govier
can you help me for this: i want to print the name of the sheet as footer for all the excel files that i will work. i dont want to manually put the same comand evrytime and in every sheet. somebody had asked me to do teh following but the same is not working. put &[tab] in to your footer will display the sheet name &[file] will display the book name. If you want this to be in every file you use, then open a blank worksheet set up your custom footer and save it as a template file called book1. Put it in the xlstart folder. At present i am having windows XP and Office 2003 regards daidipya Roger Govier wrote: Hi Just change the code to Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub If Target.Value = "YES" Then Macro1 If Target.Value = "NO" Then Macro2 End Sub -- Regards Roger Govier "daidipya" wrote in message ps.com... Hi Roger Govier Thanks for you much needed help i am a fiannce guy and know nothing of programming but with your help i am now able to hide any rows in any sheets by modifying the code. can you also help me with this --- Now i want to run different macros depending upon the different option i choose form the drop down list. for example if i choose "YES" then Macro1 if i choose "NO" then Macro2 thanks Roger Govier wrote: Hi One way would be to add the following event code to the Sheet1 module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub HideRows End Sub Right click on the Sheet1 tabView CodePaste the above -- Regards Roger Govier "daidipya" wrote in message ups.com... i have one macro as follows Sub HideRows() Dim Rng As Range Set Rng = Sheets("Sheet1").Range("B10") If Rng.Value = "YES" Then Rows("11:50").EntireRow.Hidden = False Range("B11").Select ElseIf Rng.Value = "NO" Then Rows("11:50").EntireRow.Hidden = True Range("B51").Select End If End Sub now i want that whenever i change in the values in cell B10 the said macro should run. Please help me out |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
assign macro to a lise
Hi
I also have Windows XP and Office 2003 and it works fine for me FilePage SetupHeader/FooterCustom Footer&[File] , &[Tab] produces Book1 , Sheet1 at the foot of the printout, which will naturally change as you rename the File and/or the tab. -- Regards Roger Govier "daidipya" wrote in message ups.com... Thanks Roger Govier can you help me for this: i want to print the name of the sheet as footer for all the excel files that i will work. i dont want to manually put the same comand evrytime and in every sheet. somebody had asked me to do teh following but the same is not working. put &[tab] in to your footer will display the sheet name &[file] will display the book name. If you want this to be in every file you use, then open a blank worksheet set up your custom footer and save it as a template file called book1. Put it in the xlstart folder. At present i am having windows XP and Office 2003 regards daidipya Roger Govier wrote: Hi Just change the code to Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub If Target.Value = "YES" Then Macro1 If Target.Value = "NO" Then Macro2 End Sub -- Regards Roger Govier "daidipya" wrote in message ps.com... Hi Roger Govier Thanks for you much needed help i am a fiannce guy and know nothing of programming but with your help i am now able to hide any rows in any sheets by modifying the code. can you also help me with this --- Now i want to run different macros depending upon the different option i choose form the drop down list. for example if i choose "YES" then Macro1 if i choose "NO" then Macro2 thanks Roger Govier wrote: Hi One way would be to add the following event code to the Sheet1 module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 10 Then Exit Sub If Target.Column < 2 Then Exit Sub HideRows End Sub Right click on the Sheet1 tabView CodePaste the above -- Regards Roger Govier "daidipya" wrote in message ups.com... i have one macro as follows Sub HideRows() Dim Rng As Range Set Rng = Sheets("Sheet1").Range("B10") If Rng.Value = "YES" Then Rows("11:50").EntireRow.Hidden = False Range("B11").Select ElseIf Rng.Value = "NO" Then Rows("11:50").EntireRow.Hidden = True Range("B51").Select End If End Sub now i want that whenever i change in the values in cell B10 the said macro should run. Please help me out |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to create a command button, then assign macro to it in excel | Excel Discussion (Misc queries) | |||
Compiling macro based on cell values | Excel Discussion (Misc queries) | |||
assign macro | Excel Worksheet Functions | |||
Macro Help In Excel | Excel Discussion (Misc queries) | |||
Highlight Range - wrong macro, please edit. | Excel Worksheet Functions |