Free Microsoft Excel 2013 Quick Reference

Rows to repeat on each page Results

You know how in page setup, sheet tab, you can select a row or range of
contiguous rows to repeat at the top of each page?

Is it possible to also repeat a row or rows a the bottom of each page?
Ideally the bottom row is not adjacent to the row or rows repeated at the top.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

I am using Excel 2002 and have documents with 9 colums wide and 100 to 200
rows long.
I am printing in landscape mode on letter size paper.

I want the first three rows of the very first page to repeat at the top of
each new page that gets printed.

So every time there is a page break it will re-insert the top three rows
before continuing with the row sequence?

Ok,,, so I am a newbe )
Thanks for any help.
StardustDave.

Simple but not so nice printing issue. I want to print rows 2 and 3 on top of
each page (no problem - works like a charm).

Where the icky part kicks in is that I want to repeat A3:B11 on every page
as well. How the heck do I do this?????

I have the first few rows of my sheet frozen so that I can scroll down the
long columns (about 3 printed page lengths) without losing sight of the top
headings.
I would like to be able to set it so that those top rows print at the top of
each page.
Is that possible? It would be a great deal easier than trying to repeat the
heading columns at periodic intervals down the page becasue i don't know how
to figure out where I would repeat them to make them be the top rows of each
consecutive new page. Hope this makes sense.
Thanks,
CD

I am trying to print the column labels on each of a 10 page list. When I go
to Page Setup, then the Sheet tab, the items under Print Titles are greyed
out. i.e. I can't enter a row for the "Rows to Repeat at Top" option.

Anyone know why? Can't find anything in the help file.

Thanks,
Tim

I want to repeat the same text in the titles across multiple sheets
of
a workbook. I grouped the sheets but the pagesetup shows the options
under the
Sheet Tab Disabled. I want to print titles by repeating the same text
on the top of all
the workbook. Copying the required titles to multiple sheets won't be
a good option because each workbook contains many sheet and there are
several workbooks. As this cannot be done with grouped sheets it would
require VBA macro to perform the operation.
I tried the following code by Gord Dibben.
'select all sheets and then run the macro.
Dim pArea As String, titleRows As String, titleCols As String
Sub Same_Titles()
titleRows = ActiveSheet.PageSetup.PrintTitleRows
titleCols = ActiveSheet.PageSetup.PrintTitleColumns
For Each oSheet In ActiveWindow.SelectedSheets
If TypeName(oSheet) = "Worksheet" Then
oSheet.PageSetup.PrintTitleColumns = titleCols
oSheet.PageSetup.PrintTitleRows = titleRows
End If
Next
End Sub
This worked but not as i required. This sets the same print range and
rows to repeat at top on
each sheet in grouped sheets. ie. Rows 1:3 in each of each
Sheet1,Sheet2.............. are repeated in their respective pages.
But what i need is to repeat the Rows 1:3 of Sheet 1 to be repeated
in
the top of the Sheet1 as well as Sheet2,Sheet3 and other sheets in
the
workbook.
Any help would be appreciated.
Thanks in advance.

I am not sure if this is the correct place to post this or not but here goes.

I have been doing some programming to take information from an Access
database, massaging it and putting it in an Excel spreadsheet. The
programming overwrites the file each time.

I have done some formatting eg. Bolding, Autofit, horizontal alignment, and
in some projects I have put in some Sum formulas.

My client is now asking for specific printing formatting options that are
normally setup after the information gets to the spreadsheet. The list is
below but I have no idea where to even begin looking for information on
these. Basically once the spreadsheet is setup and opened, they want the
settings below predone. Since I am overwriting the file each time these
formatting options are also overwritten.

I have found a couple of references to some printing options but they don't
all seem to work as expected. For example, I am trying to set the gridlines
to show with

ExcelSheet.PageSetup.PrintGridlines = True

This seems to work ok but when I try to set the pages to 1 page wide by
whatever tall I don't get what I want. It continues to expand past the page
but does not show the remaining columns that do not show on the first page
and I get many copyies of the same pages.

ExcelSheet.PageSetup.FitToPagesWide = 1

I am trying to set the first row to print on every page but it does not seem
to be working either. I would prefer to just say Row A and all of them show:

ExcelSheet.PageSetup.PrintTitleColumns = "$A:$CZ"

1. Landscape orientation
2. Legal size paper
3. 0.2" margins, except bottom edge @ 0.75"
4. Footer: Left - Date & time printed; Centre - Name of Show; Right -Page#
of #pages
5. Fit to print 1 page wide by however many pages long
6. Gridlines
7. Repeat header row on every page

One to add is how to set the Freeze Panes? I usually can tell in the code
what the cell would be if I were to do it manually but am not sure about what
function to use.

TIA rasinc

I need to be able to have a "totals" row at the bottom of each page. I also
have to hide unused rows in the middle (or "body" of my form). Is it possible
to "lock" the last row so that it's independent of the rows I hide just like
you can have the top rows repeat at the top of every page.

Hello,
Working with 2000 Excel is bringing some new chalanges. I see things are done different.

I am trying now to keep my header to repeat from page to page.

For example I have a header that may say something like:
People, numbers, date, ect.

And there are so many new rows they go on for pages long.
How can I keep my header on the top of each page when it prints out on paper.

Thanks

You know how in page setup, sheet tab, you can select a row or range of
contiguous rows to repeat at the top of each page?

Is it possible to also repeat a row or rows a the bottom of each page?
Ideally the bottom row is not adjacent to the row or rows repeated at the top.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

Is it at all possible, to have a table with column headings/titles that can be repeated on further pages if the table takes up more than one.
So that the headings will appear on the top of each page without having to insert rows to copy and paste the headings in

would appreciate any help

even if it is just to confirm that there is no function that will do this

To preview and print multiple pages with column headings on each page the procedure is as follows;
a.. click 'File' then select 'Page Setup...'
b.. select 'Sheet' tab
c.. place cursor in 'Rows to repeat at top:' field
d.. and simply position cursor above the dialogue window until the cursor changes to a right pointing arrow and click once on the first row or drag down to select the number of rows you want to show
e.. the formulae will appear in the field automatically
Hey presto !

I have a macro that copies data from 6 different worksheets into one summary worksheet - based on certain criteria - I need a way to note on each row of the summary sheet which worksheet it was copied from. Each worksheet is specific to a salesperson, so ideally I would like that salespersons last name to populate in column on the summary page for each line of theirs that is copied over....here is my current macro I use to copy the data: (this scrpit is repeated for each sales persons sheet - "Blankenship", "Dew", etc...)

Sheets("Bailey").Select
    Range("B29").Select
    Set r = Range("B29:B153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Award") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
    
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Pending") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Bid") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Lead") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Lost") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    Range("B29").Select
    
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Follow-up") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    Range("B29").Select
Any help would be greatly appreciated!

I have a database that starts on row 10 with header information in row 9 explaining the purpose of the data for each column. In rows 1 through 8 I have general information that when I print the database - I would want on the first printed page (as well as the beginning rows of the database) and have the remaining print pages be the remaining portions of the database but have the header row (row 9) at the top of each - like a header row.

I know how to goto FILE > PAGE SETUP > SHEET > ROWS TO REPEAT AT TOP: - but this will put row 9 at the top of ALL pages...which I want, but not on the first page.

Any suggestions? I'm ok with making a print button with a macro...but no idea where to begin with the vba code to do this.

Thanks,

GuruWannaB

Hello,

I have a file (Using Excel 2007) with several rows on top that repeat on each sheet and I need to insert vertical column/page breaks. I see that people have written code for their specific need that appears to do this, but I know nothing about writing code. Is there an easier way to accomplish this?

Thanks.

I have a macro that copies data from 6 different worksheets into one summary worksheet - based on certain criteria - I need a way to note on each row of the summary sheet which worksheet it was copied from. Each worksheet is specific to a salesperson, so ideally I would like that salespersons last name to populate in column B on the summary page for each row of theirs that is copied over....here is my current macro I use to copy the data: (this code is repeated for each sales persons sheet - "Blankenship", "Dew", etc...) I have attached a scaled down version of my file.

Sub
SumData()
'
' SummarizeData from Sales Sheets
'
    Sheets("Bailey").Select
    Range("B29").Select
    Set r = Range("B29:B153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Award") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
    
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Pending") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Bid") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Lead") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    
    Range("B29").Select
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Lost") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    Range("B29").Select
    
    Set r = Range("B29:C153")
    For n = 1 To r.Rows.Count
    myval = ActiveCell.Value
    
    If InStr(myval, "Follow-up") > 0 Then
        ActiveCell.Range("A1:N1").Select
        Selection.Copy
    Sheets("Summary").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Select
    End If
    Sheets("Bailey").Select
        
    ActiveCell.Offset(1, 0).Select
    Next n
    Range("B29").Select
Any help will be greatly appreciated!

I import data into a spreadsheet so there is no way of knowing before hand how many pages the sheet will be. I also do not use the Footer because of its lack of security. Is there a way to have page numbers inbedded into the sheet itself? I was hoping to use Excels ability to repeat rows on each page and put a page number function in one of the cells in that row but there is no such function. Ideally, I'd like page a of b. Thanks in advance

I am trying to print the column labels on each of a 10 page list. When I go
to Page Setup, then the Sheet tab, the items under Print Titles are greyed
out. i.e. I can't enter a row for the "Rows to Repeat at Top" option.

Anyone know why? Can't find anything in the help file.

Thanks,
Tim

Hi,

I would like to add variable data to the header section that calls data from the current Page.

I have found info that would apply variable data to the header of the entire worksheet, but cannot find anything that display variable data that is different on each page.
To be more specific I have 7 rows that repeat at top on print, this is fine. I then need the data from a cell in the last row before the pagebreak to be shown in the Header of that page. Similar to the &Page, but instead of refering the page number refers a cell value.

Any ideas would be much appreciated.

I am using Excel 2002 and have documents with 9 colums wide and 100 to 200
rows long.
I am printing in landscape mode on letter size paper.

I want the first three rows of the very first page to repeat at the top of
each new page that gets printed.

So every time there is a page break it will re-insert the top three rows
before continuing with the row sequence?

Ok,,, so I am a newbe :o)
Thanks for any help.
StardustDave.


No luck finding an answer? You could always try Google.