Re: Spacing
Someone sent me a private message and my popup blocker was on so I didn't get it, can you please send it again
Re: Spacing
Someone sent me a private message and my popup blocker was on so I didn't get it, can you please send it again
Re: Spacing
I just discovered this website not that long ago and I had already paid for the program if I had known that you guys could program this then I would have rather you guys done it cause it seems like everyone knows what they are talking about here. For the future how would I get someone from this site to build me a program ?? Can anyone tell me how I can move the word Total List Price please , I need to make these changes today as my boss is breathing down my throat
Re: Spacing
I can't add the file because it is to large. Is there any other way I can do it? Also what do you mean by earn a fortune?
I paid someone good money to build me this program and when I got it, it was not up to company standards. I have fixed many of the problems but am stuck in one particular area. I am a business owner and don't understand to much of the coding so any help would be appreciated.
I have the following code:
Private Sub CommandButton1_Click()
'
'
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.ClearContents
Range("A8").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6, 9), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Application.Goto Reference:="models2"
Selection.Replace What:="Total", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Grand", Replacement:="Total List Price", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.TextToColumns Destination:=Range("A7"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 1)
Range("B7:E7").Select
Selection.copy
Application.Goto Reference:="R40C2"
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-15
Range("B7:E7").Select
Selection.copy
Application.Goto Reference:="R40C2"
Range("B8:B200").Select
Range("B200").Activate
ActiveSheet.Paste
Application.Goto Reference:="R7C7"
Application.CutCopyMode = False
Selection.copy
Application.Goto Reference:="R40C7"
Range("G8:G200").Select
Range("G200").Activate
ActiveSheet.Paste
Application.Goto Reference:="R7C1"
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B12").Select
Application.Goto Reference:="R7C1"
ActiveSheet.Outline.ShowLevels RowLevels:=2
Display More
I would like to how I can move the words "Total List Price" over to column "C" rather than have it displayed in column "A". If someone can please advise me as to what part of the code I must change in order to have these changes take place that would be appreciated.
I have a print button with the following coding:
Private Sub CommandButton2_Click()
Sheets("QUOTE").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
but what I would like the button to do is the following:
a)to look at all the rows and columns from A8 and on and change the text to a specific font, bold and text size
b)to format the cells to wrap text: horizontal centered and vertical centered
c)to look in the last cell in row A indent it about 5 spaces
d) finally i would like it to ensure that the page break remains the same
I have researched this on the internet and can't seem to figure this out. Any help would be appreciated
Re: Button To Copy Selected Cells And Paste To A New Sheet
Thank you the site is amazing and everyone on here deserves a big applause.
Quote from Dave Hawley
Re: Button To Copy Selected Cells And Paste To A New Sheet
Thank you for all the help it is appreciated. If I may one more question please, what if I wanted to paste the information into another workbook on a particular worksheet.Could you please help me with that. I know these must seem like petty question but they mean the world to a beginner like me
Quote from Dave Hawley
I have a spreadsheet named PRODUCTS and in row A there are a bunch of product codes. I would like for the user to be able to use the CTRL and mouse to select all the products that they want and then once they push that button I would like it to paste the user selected cells into a sheet called Quote starting at A7. Can someone please help me with this as I am new to excel and this is far beyond my scope. All the help is appreciated
I have created a vba code to display the page numbers in the right hand side of the footer. This way when I add a page I can automatically number the pages.
But my work book has a few pages at the beginning that I don't want numbered at the beginning of the document.
For example i, ii, iii, iv, v, vi, vii, viii, ix, x, xi, 1, 2, 3, 4, 5
right now I have the vba code
Sub InsertHeaderFooter()
'insert the Revision Code and the Page Numbers on all worksheets
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
Application.StatusBar = "Correcting Page Numbers for BRC Natural Series" & ws.Name
With ws.PageSetup
.LeftFooter = "R04/2006"
.RightFooter = " Page" & "&P"
End With
Next ws
Set ws = Nothing
Application.StatusBar = False
End Sub
Display More
I would like to know how to start the page count so that it starts at "WorkSheet1" rather than starting at the beginning of the document. Can someone please help
Re: Building A Toc
THANK YOU SO SO SO MUCH!!!!! This website [COLOR="Red"][H1]ROCKS[/H1][/COLOR]. YOUR HELP IS APPRECIATED SO VERY MUCH, AND IT IS NICE TO SEE PEOPLE WORKING TOGETHER JUST FOR THE SAKE OF HELPING.
Re: Building A Toc
I have attached the file of what I would like to do. Each sheet name will be named after the page number, if you look in the header of each page I have created a custom header and would like for that header to appear in Table of contents as the first row for example and the page number ( sheet name) to appear in the column next to it. I would like the vba script to go through all the worksheets and sort this information onto a page called Table of Contents
Re: Building A Toc
But how would I pull information out of the right header and have it post the information into that same sheet. Sorry but I am new to the VBA aspect of excel.
I have a workbook that I am trying to build a TOC. The right header is where I will be pulling the information from and would also like to add the page number "which will be the sheet name". I would like excel to set a page called Table of Contents that will automatically generate this information when I make any changes to the workbook. I am farily new to VBA and having a lot of difficulty trying to figure out how to do this, can some please help??