ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Can logic be added to footer to add a name from a worksheet? (https://www.excelbanter.com/excel-discussion-misc-queries/162506-can-logic-added-footer-add-name-worksheet.html)

Carl
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

Gord Dibben
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


Carl
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



Gord Dibben
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




Carl
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





Gord Dibben
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






Carl
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







Gord Dibben
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








Gord Dibben
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








Carl
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










All times are GMT +1. The time now is 01:49 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com