Code to put contents of A1 and B1 in header

  • Thread starter Thread starter Sandy
  • Start date Start date
S

Sandy

I would like to put the contents of A1 and B1 into the
header. A1 and B1 are not names of columns.

Is there a way to do this? I came up with zip when
searching Help.

Sandy
 
If you mean in the gray labels, no. You can make them (A1 and B1) look
similar to labels using formatting and hide the labels, but I am not sure of
the utility of that.

Regards,
Tom Ogilvy
 
Dear Tom:

Thanks for your reply. I mean that I have text in Cell A1
and text in Cell A2. I would like that text to display in
the Header of each printed sheet.

Sandy
 
Sorry - misinterpreted what you meant by header.

You can put it in the header using code such as Gordon provided (as
corrected).

Or you can try using rows to repeat at top in the last tab of the page setup
dialog.
 
Thanks Tom, for the heads up.

I got no error, but the code also did not place the cell contents in the
Header as I thought.

Gord
 
Thank you very much!

Sandy
-----Original Message-----
Sorry - misinterpreted what you meant by header.

You can put it in the header using code such as Gordon provided (as
corrected).

Or you can try using rows to repeat at top in the last tab of the page setup
dialog.


--
Regards,
Tom Ogilvy





.
Click to expand...
 
Thanks, Gord!

Sandy
-----Original Message-----
Thanks Tom, for the heads up.

I got no error, but the code also did not place the cell contents in the
Header as I thought.

Gord
Click to expand...
 
It appears that in Excel XP, the ".LeftHeader " line is just skipped (with
no error for me either) when it encounters a run time error (
..Range("A1:B1").Text ). Don't know about earlier version though.


Sub CellInHeader()
With ActiveSheet.PageSetup
.LeftHeader = [A1] & Space(1) & [B1]
'...etc
End With
End Sub

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


Tom Ogilvy said:
.Range("A1:B2").Text gives an error

.Range("A1").Text & " " & .Range("B1").Text

maybe what you meant.

--
Regards,
Tom Ogilvy

Gord Dibben said:
Sandy

Sub CellInHeader()
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1:B1").Text
End With
End Sub

You could also place this code as a BeforePrint in the Thisworkbook module.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1:B1").Text
End With
End Sub

Gord Dibben Excel MVP XL2002
Click to expand...
Click to expand...
 
Back
Top