Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Discussion (Misc queries) > Can logic be added to footer to add a name from a worksheet?
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 361
Default Can logic be added to footer to add a name from a worksheet?
Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 22,906
Default Can logic be added to footer to add a name from a worksheet?
Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl

Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 361
Default Can logic be added to footer to add a name from a worksheet?
Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl


Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 22,906
Default Can logic be added to footer to add a name from a worksheet?
Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl



Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 361
Default Can logic be added to footer to add a name from a worksheet?
Your code worked great but it leaves the font size at default, 10. Would you
mind providing the code to set the font size at 6 please? Thanks again in
advance, Carl

"Gord Dibben" wrote:

Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl




Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 22,906
Default Can logic be added to footer to add a name from a worksheet?
Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = "&""Arial,Regular""&6" & Range("A1").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 12:44:02 -0700, Carl wrote:

Your code worked great but it leaves the font size at default, 10. Would you
mind providing the code to set the font size at 6 please? Thanks again in
advance, Carl

"Gord Dibben" wrote:

Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl





Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 361
Default Can logic be added to footer to add a name from a worksheet?
Thanks again, Gord. It worked great using the example you showed but, if I
can impose on your patience one more time, I ran into problems when I tried
to use it before the insertion of the date (it changes the font to HUGE).
Thanks again in advance, Carl

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&6" & Format(Now(),
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Home").Range("B7").Value
End With
End Sub

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = "&""Arial,Regular""&6" & Range("A1").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 12:44:02 -0700, Carl wrote:

Your code worked great but it leaves the font size at default, 10. Would you
mind providing the code to set the font size at 6 please? Thanks again in
advance, Carl

"Gord Dibben" wrote:

Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl






Reply With QuoteReply With Quote
  #8   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 22,906
Default Can logic be added to footer to add a name from a worksheet?
You need an extra space between the fontsize(6) and the ampersand before the
date.

Your current code runs the 6 into the date and winds up 610/20/07 so Excel tries
to re-size the font to 610 size. 409 is largest so that's what you get.

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&6 " & Format(Now, _
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Day").Range("B7").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 19:12:00 -0700, Carl wrote:

Thanks again, Gord. It worked great using the example you showed but, if I
can impose on your patience one more time, I ran into problems when I tried
to use it before the insertion of the date (it changes the font to HUGE).
Thanks again in advance, Carl

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&6" & Format(Now(),
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Home").Range("B7").Value
End With
End Sub

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = "&""Arial,Regular""&6" & Range("A1").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 12:44:02 -0700, Carl wrote:

Your code worked great but it leaves the font size at default, 10. Would you
mind providing the code to set the font size at 6 please? Thanks again in
advance, Carl

"Gord Dibben" wrote:

Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl







Reply With QuoteReply With Quote
  #9   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 22,906
Default Can logic be added to footer to add a name from a worksheet?
Please note I changed "Home" to "Day" for testing.

Don't forget to change back like I did<g

Gord

On Sat, 20 Oct 2007 07:22:12 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

You need an extra space between the fontsize(6) and the ampersand before the
date.

Your current code runs the 6 into the date and winds up 610/20/07 so Excel tries
to re-size the font to 610 size. 409 is largest so that's what you get.

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&6 " & Format(Now, _
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Day").Range("B7").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 19:12:00 -0700, Carl wrote:

Thanks again, Gord. It worked great using the example you showed but, if I
can impose on your patience one more time, I ran into problems when I tried
to use it before the insertion of the date (it changes the font to HUGE).
Thanks again in advance, Carl

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&6" & Format(Now(),
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Home").Range("B7").Value
End With
End Sub

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = "&""Arial,Regular""&6" & Range("A1").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 12:44:02 -0700, Carl wrote:

Your code worked great but it leaves the font size at default, 10. Would you
mind providing the code to set the font size at 6 please? Thanks again in
advance, Carl

"Gord Dibben" wrote:

Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl







Reply With QuoteReply With Quote
  #10   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 361
Default Can logic be added to footer to add a name from a worksheet?
It worked perfectly! Thanks so much (again). Carl

"Gord Dibben" wrote:

Please note I changed "Home" to "Day" for testing.

Don't forget to change back like I did<g

Gord

On Sat, 20 Oct 2007 07:22:12 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

You need an extra space between the fontsize(6) and the ampersand before the
date.

Your current code runs the 6 into the date and winds up 610/20/07 so Excel tries
to re-size the font to 610 size. 409 is largest so that's what you get.

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&6 " & Format(Now, _
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Day").Range("B7").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 19:12:00 -0700, Carl wrote:

Thanks again, Gord. It worked great using the example you showed but, if I
can impose on your patience one more time, I ran into problems when I tried
to use it before the insertion of the date (it changes the font to HUGE).
Thanks again in advance, Carl

Sub CellInFooter()
With ActiveSheet
.PageSetup.LeftFooter = "&""Arial,Regular""&6" & Format(Now(),
"mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Home").Range("B7").Value
End With
End Sub

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = "&""Arial,Regular""&6" & Range("A1").Value
End With
End Sub


Gord

On Fri, 19 Oct 2007 12:44:02 -0700, Carl wrote:

Your code worked great but it leaves the font size at default, 10. Would you
mind providing the code to set the font size at 6 please? Thanks again in
advance, Carl

"Gord Dibben" wrote:

Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl








Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
why is ...xls] being added to the name on my worksheet? beauwl Excel Worksheet Functions 2 October 3rd 07 05:00 PM
How do you insert a worksheet into a footer? doosz77 Excel Discussion (Misc queries) 1 May 7th 07 04:30 PM
Worksheet name in footer mike_vr Excel Discussion (Misc queries) 4 March 2nd 07 11:53 AM
Can a creation date be added to a footer rogerl_uk Excel Discussion (Misc queries) 3 June 2nd 06 02:03 PM
Stop Worksheet being added John Calder New Users to Excel 3 September 29th 05 03:07 PM


All times are GMT +1. The time now is 11:04 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement