Hi
the same works only for the file in which we put the command, i am
looking for a command wherein the sheetname should get printed
automatically without requiring to put the command
Further to my ealrier query regarding the macros
the 1st code that you gave me is working fine. teh code you gave me
was
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("B10").Select
ElseIf Rng.Value = "NO" Then
Rows("11:50").EntireRow.Hidden = True
Range("B10").Select
End If
End Sub
<the said code i have copy pasted at modole 1>
another code
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 HideRows
If Target.Value = "NO" Then HideRows
End Sub
<the same i have copy pasted at sheet1 (sheet1 )
Now i have modified the 1 st code as follows
Sub HideRowsddk()
Dim Rng As Range
Set Rng = Sheets("Sheet1").Range("D65")
If Rng.Value = "Y" Then
Rows("66:70").EntireRow.Hidden = False
Range("D65").Select
ElseIf Rng.Value = "N" Then
Rows("66:70").EntireRow.Hidden = True
Range("D65").Select
End If
End Sub
to run the macro i have changed the 2nd code as follows
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 65 Then Exit Sub
If Target.Column <> 4 Then Exit Sub
If Target.Value = "Y" Then HideRowsddk
If Target.Value = "N" Then HideRowsddk
End Sub
the same i have pasted at sheet 1(sheet 1) below the arlier code but
the macro is not running automatically, instead after chossing Y or N
i
have to go to Tolls > Macro. Hideddk and then run
how to get the second macro run automatically as well
regards
daidipya
Roger said:
Hi
I also have Windows XP and Office 2003 and it works fine for me
File>Page Setup>Header/Footer>Custom 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 said:
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
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 tab>View Code>Paste the above
--
Regards
Roger Govier
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
