How can I fix 'Runtime error 1004 - Unable to set the center footer property of the page setup class' I would like a reference to a cell in the footer.
Code:
Sub UpdateFooter()
ActiveSheet.PageSetup.CenterFooter = Range("A1").Value
End Sub
Basically I want setup a range that an user can insert/paste picture into this range. Some pictures might be to large and I don't want them to take over the whole screen. I need some kind of window that I define it's range, and user insert/paste picture into this window. Oversize picture will be resized to fit within this window.
Thanks!
I am using a excel file which involves a group of pages. I need help with 2 formula's. The first formula is i would like to lock the the pulls from other pages so that when i sort either page it will keep the correct value. the other formula i want to use is a fill color change. if its less then a specified value then i want it to be red if it meets or exceeds i want it to be green. I would also like to set it so that if it exceeds by a certain amount it turns blue or some other color.
can anyone help me with these? thank you
This might seem a strange type of Excel question.
Some "Clever" person decided to create a site plan using MS Excel. It has been done quite well tbh. The problem with Excel is that I am unable to set a custom page size as this plan sits nicely on a paper size I made ealier through using Word. Guess what there is a custom page size selection on Word but not Excel. Is there a walkaround for this ?
The only other way I can do this, is to print off 2 a4 landcape print out but the printer goes to the next page and leaves a nasty seperation.
The copy of Excel i have is 2003 sp3
I have an excel workbook which contains a number of sheets (it is an asset
list). I need to be able to produce something (VBA?) that enables the 7
sheets to be searched so that items that were purchased and discarded on a
specific date ranges can be found in the worksheets and then pasted into a
new worksheet in order to produce a "report". Ideally I also need to be able
to filter the report by location of the assets. I can do basic stuff in
excel like forumlas to add up a range of cells and take averages etc but this
is as far as my exsperience extends. I would therefore like to know if
anybody advise me the best way to go about this? Given my knowlege is this
going to be achivable without taking too long i.e. iv only got about 7 days
over the period of 2 to 3 weeks to do this. As an alternative I was thinking
of importing the spread sheet into access, as I felt that I might be able to
achive this better in there, however the end user of this would prefer if the
asset list remained as a spread sheet. Any comments would be apprciated.
Hello,
I recently switched to a new computer, and have found Excel behaves differently on this machine. Certain capabilities no longer work the same.
For example, when I do a "Copy" and then "Paste Special" the "picture" option often comes up, meaning it gives the option to paste as Picture, Bitmap, Text, etc. I instead would like the Paste Special box to appear that contains the choices such as All, Formats, Values, Formulas, etc.
Also, I am no longer able to create a formula referencing a cell in an external excel file. I will type the "=" and then jump into the external file, but the location of the cell in the external file does not fill in to the formula.
I apologize if this explanation is vague - I am hoping this is something that can be resolved easily - I'm just not aware of it.
Thanks so much!
I am exporting to Excel and am running the following code to setup the page layout
This takes 9 seconds on a P4 3.0 with 2GB Ram Excel 2003
Should it take so long ?
Can it be optimised ?
Code:
Code:
Public Sub ExportExcelRpt()
Dim xlCol As Long
Dim ColRange As String
Dim XLRow As Long
Dim wbkNew 'As Excel.Workbook
Dim wksNew 'As Excel.Worksheet
On Error GoTo XLErr
If frmReport.GridRpt.TextMatrix(0, 1) = vbNullString Then
MsgBox "Zero records to export", vbCritical
Else
On Error GoTo myErr
RunExport = True
TotalRegs = frmReport.GridRpt.Rows
Load frmExport
frmExport.prBar.Min = 0
frmExport.prBar.Max = TotalRegs
frmExport.Show , frmReport
Dim appExcel As Variant
Dim MyStr As String
Set appExcel = CreateObject("Excel.application")
ExcelVersion = appExcel.Version
frmExport.Label1.Caption = "Excel Version " & ExcelVersion
appExcel.Visible = False
appExcel.Workbooks.Add
appExcel.Visible = False
' The first thing I do to the worksheet is to set the font.
' Not all are required, but I included them as examples.
With appExcel
.Cells.Font.Name = "Arial"
.Cells.Font.Size = 8
.Cells.NumberFormat = "@" 'all set to Text Fields
' My first row will contain column names, so I want to freeze it
.Rows("2:2").Select
.ActiveWindow.FreezePanes = True
' ... and I want the header row to be bold
.Rows("1:1").Font.Bold = True
.Rows("1:1").Font.ColorIndex = 1
.Rows("1:1").Interior.ColorIndex = 15
' ... and I want it to print on every page when in Print Preview
.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
.ActiveSheet.PageSetup.PrintTitleColumns = ""
' Here, we set more Print Setup properties
.ActiveSheet.PageSetup.LeftHeader = CompanyName 'sHeader ' Custom header (name of SQL Query)
.ActiveSheet.PageSetup.CenterHeader = ReportName
.ActiveSheet.PageSetup.RightHeader = "Date: " & "&D" & " " & Format(Time, "hh:mm") & " Page: " & "&P of &N" & " OPID:" & OperatorID '"RRRR"
.ActiveSheet.PageSetup.LeftMargin = appExcel.Application.InchesToPoints(0.75)
.ActiveSheet.PageSetup.RightMargin = appExcel.Application.InchesToPoints(0.75)
.ActiveSheet.PageSetup.TopMargin = appExcel.Application.InchesToPoints(1)
.ActiveSheet.PageSetup.BottomMargin = appExcel.Application.InchesToPoints(0.5)
.ActiveSheet.PageSetup.HeaderMargin = appExcel.Application.InchesToPoints(0.5)
.ActiveSheet.PageSetup.FooterMargin = appExcel.Application.InchesToPoints(0)
.ActiveSheet.PageSetup.PrintHeadings = False
.ActiveSheet.PageSetup.PrintGridlines = True 'False
.ActiveSheet.PageSetup.CenterHorizontally = False
.ActiveSheet.PageSetup.CenterVertically = False
.ActiveSheet.PageSetup.Orientation = 2 'LANDSCAPE xlPortrait
.ActiveSheet.PageSetup.Draft = False
.ActiveSheet.PageSetup.FirstPageNumber = 1 'xlAutomatic
'.ActiveSheet.PageSetup.Order = xlDownThenOver
.ActiveSheet.PageSetup.BlackAndWhite = False
.ActiveSheet.PageSetup.Zoom = 80 ' Reduce to 80% when printing
End With
hi all.
I'm starting to play with an online SQL server, and wanting to link it to excel.
i've gone to excel, opened a new SQL connection, entered the server, username and password, but i keep getting the error;
[DBNETLIB][ConnectionOpen (Connect()).]SQL Service does not exist or access denied.
i've tripple checked all the addresses, username & password but no luck..
am i missing something simple? do i need to change a setting in excel?
cheers
Hi there. I am trying to setup my Excel 7 sheet to be merged into Word 7 to create mailing labels. I am confused as to how to do this.
I have three columns set up like this:
<<Name>> <<Address>> <<City>>
When I open up a Word document and go through the process of creating a mail merge to create labels, the information from the Excel sheet isnt showing up in the merge.
I am not sure if I made sense (my apologies if so).
I need to get this done in the next hour so I dont have time to go through past answers for this problem.
Your help is much appreciated!!!
I have changed (in Page Setup) the orientation of my document from Portrait
to Landscape but Page Break Preview and the document itself does not show the
landscape format. When I print a page, the page setup changes show.
How do I see the document in landscape format so I can set column widths,
etc.?
----------------
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
