View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
daidipya
 
Posts: n/a
Default 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