 |
|
|
|
|
|
A footer is something that appears at the bottom of every worksheet, as opposed to a header, which appears at the top. It is a good idea to use a document identifier, such as the full name and path of your file as your footer. Not only with this enable you to find quickly where you have stored your workbook, but it will enable others to find and modify your workbook should they need to.
Footers are not viewable when your spreadsheet is in Normal view, only Page Layout view or Print Preview.
To insert a footer into your workbook follow these steps:
On the worksheet you wish to have the footer in;
1. Select the Insert tab
2. Select Header & Footer under Text options
Notice that the View of your workbook has changed to Page Layout view and you
are clicked in the centre �Header� area of your worksheet.
3. Select the Go to Footer option under the Navigation group.
You could scroll down the page and click into the Footer area with your mouse
if you prefer.
4. Make sure you are in the left-hand footer area and select File Path
from Header & Footer elements
This will insert what are called �field codes� into your document. A field is
something that can update either automatically or by a prompt. These codes will
show the full filename and path of your document once you have saved it.
5. As a footer should be unobtrusive, highlight and make it a size 8
font.
Note here that the lowest font available in the font sizing box in the Font
group on the home tab is 8, but you can actually type as low as 1pt if you like.
Another handy field that you can put into your footer is the page number and
number of pages.
1. Click in the right hand side of your footer
2. Select the Design tab under Header & Footer tools
3. Type in the word Page and a space. Click the Page Number option under
Header & Footer tools
4. Now type in the word of and another space.
5. Select the Number of Pages option under Header & Footer tools
6. Highlight your field codes and make them a size 8.
Again notice the �field codes� that have been placed in your worksheet. These
will show the current page number and the number of pages in your file.
If you wanted to force your page number to be a certain number ie; if you wanted
to call your first page page 2, try this:
1. On the Page Layout tab, select the dialog box launcher on the Page
Setup group
2. Select the Page tab
3. Under the option First Page Number change the word Auto to page 2, or
whatever number you want.
There are other fields that you can place in your footer, such as the current
date and the current time. Variations of these and other header/footer fields
can be found by selecting either Header or Footer from the Header & Footer group
on the Design tab under Header & Footer tools
Note that if you saved your file as another name, or adjusted the number of pages, or changed the date printed, or in face anything that will force your fields to update, The footer will update either when you save the file, or when you send it to print.
EXCEL VBA. DELETING ROWS MEETING CRITERIA
By the fastest way to delete rows meeting a condition, is with the use of AutoFilters. The code below offers a lot of flexibility for the end user. See Also Delete Rows By Up To 4 Conditions across 4 Columns and Using the Find Method To Delete Rows
Option Explicit
Sub FastestAndMostFlexible()
''''''''''''''''''''''''''
'Written by www.ozgrid.com
''''''''''''''''''''''''''
Dim rRange As Range
Dim strCriteria As String
Dim lCol As Long
Dim rHeaderCol As Range
Dim xlCalc As XlCalculation
Const strTitle As String = "OZGRID CONDITIONAL ROW DELETE"
On Error Resume Next
Step1:
'We use Application.InputBox type 8 so user can select range
Set rRange = Application.InputBox(Prompt:="Select range including header range" _
, Title:=strTitle & " STEP 1 of 3", Default:=ActiveCell.CurrentRegion.Address, Type:=8)
'Cancelled or non valid rage
If rRange Is Nothing Then Exit Sub
'Awlays use GoTo when selecting range so doesn't matter which Worksheet
Application.Goto rRange.Rows(1), True
Step2
'We use Application.InputBox type 1 so return a number
lCol = Application.InputBox(Prompt:="Please enter relative column number of evaluation column" _
, Title:=strTitle & " STEP 2 of 3", Default:=1, Type:=1)
'Cancelled
If lCol = 0 Then Exit Sub
Step3:
'We use default InputBox type as we want Text
strCriteria = InputBox(Prompt:="Please enter a single criteria." & _
vbNewLine & "Eg >5 OR <10 OR Cat* OR *Cat OR *Cat*" _
, Title:=strTitle & " STEP 3 of 3")
If strCriteria = vbNullString Then Exit Sub
'Store current Calculation then switch to manual.
'Turn off events and screen updating
With Application
xlCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
'Remove any filters
ActiveSheet.AutoFilterMode = False
With rRange 'Filter, offset(to exclude headers) and delete visible rows
.AutoFilter Field:=lCol, Criteria1:=strCriteria
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
'Remove any filters
ActiveSheet.AutoFilterMode = False
'Revert back
With Application
.Calculation = xlCalc
.EnableEvents = True
.ScreenUpdating = True
End With
On Error GoTo 0
End Sub
Excel Dashboard Reports & Excel Dashboard Charts 50% Off
Become an ExcelUser Affiliate & Earn Money
Microsoft � and Microsoft Excel � are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft