Im trying to get a macro that will set every sheet in the workbook i am usine, to match sheet1.
Sub LOOPY
Dim WS As Worksheet
'Loop through all worksheets
For Each WS In ActiveWorkbook.Worksheets
'Do this for all sheets except these sheets
If WS.Name = "Pcard Statement" Or WS.Name = "namedranges" Then
'Do Nothing
Else
'copy "pcard statement" page setups/print magins
Sheets(WS.Name).Range("A1").PasteSpecial Paste:=print margins?
End If
Next WS
Application.CutCopyMode = False
End Sub
I'm trying to execute a macro and it won't put the focus (radio button) to select x pages wide by x pages tall in the Page Setup/Page/Scaling Area. I looked at the macro and can't find a setting in the code but yet the focus won't change. What can I do about this? In other words the radio button stays selected as "adjust to "" % of normal size. Here's the code...
I'm essentially creating a basic table and I have my first page created exactly how I want it. Header, footer with page numbers, and the main page consists of a table with borders, column headers, and every other row highlighted. I'm making the table for a small company to record the results of equipment tests that they have to run every morning. What I need it to do is to keep that format on every new page that gets activated. The users of this particular form that I'm making are not particularly computer savvy, so asking them to recreate the table everytime they need a new page would be asking quite a bit.
I'm working on this excel tool that I would like to make as user-friendly as possible. It would act like a survey almost where the user would choose responses or input values for specific questions and then on other worksheets it would have the actual calculation and math.
I see that if one were to add a value onto worksheet 1 and which would be a variable that is essential to a calculation on worksheet 2 it does not run automatically.
If there is a combo box w text values that also needs to have a calculation on another page, can i just do an IF statement on worksheet 2 with combo boxes?
Can anybody post me some links to automating data extraction from Websites using VBA and IE. Not something I have ever bothered with before. Basically interested in using the controls and pulling tables.
I am trying to to create a macro that will complete a Pivot Table, then use the Show All pages function. The data has the same number of columns each time, but the rows will differ each and everytime. The content of the column which houses the data which eventually will be a page can differ as well. I continue to get an errro and below is highlighted when debug is selected.
This is a very repititive pivot that is done many times during a month. I have tried just using the data as is then the pivot, and converting the data into a table, doesn't matter still get the error.
Macro that can copy cells of data from about twenty five tabbed sheets in the workbook (subject to change) and compile them into one long worksheet (the first tab).
The cells to be copied will be fixed number of columns but variable number of rows. I only need copying of cells in one direction (from the tabbed pages to the compiled list), and I would like to keep the list automatically up to date or have a "refresh" button.
I am running into a problem with a macro. I have the block of code below repeated about 30x in vba. When I went to create a new list box, ie: "List Box 2", in a new sheet it is not working.. The code is the exact same, but it is not working at all.
I have a folder full of uniformed web pages ( name and design) and I was wondering if it's possible to create a macro that will open up each page, copy specific data from each page, and paste it into an Excel 2002 spreadsheet. Unfortunately, my skills in VBA are very limited at best and I'm not sure if this is doable or is it something I'll have to go into each page and copy the data.
I have a macro that pastes formulas as values on specific pages (("CTY EME", "Int Center", " Total SW dist cost", "Int, pubs & oth", "Total". Is there a way to compress the macro ie with the sheet names?
There were 2 macros. One printed all of the defined ranges (40) on separate pages, and the other printed all the graphs ("charts" - 39) on separate pages. I tried to combine the VBA code to print each range and then the corresponding graph. Everything is still on separate pages, but it saved time because I didn't have to collate after printing. It seemed to work. Then I tried figure out if I could print them all to a specific tray of the printer as set in the workbook or as the printer default. Now both the combined macro and the original macro are giving errors.
Is the code I have correct to do what I am trying to do (print each range and then the graph all on separate pages)? Is there any way to put the output tray choice into the macro?
Sub Load_Data_Report() ' ' Load_Data_Report Macro (print all tables & graphs) ' Macro recorded 12/21/00 by xxx ' ' Keyboard Shortcut: Ctrl+j '
I have attached a 97-2003 .xls file with data for multiple store locations on sheet 1, and the desired result on sheet 2. I am actually using excel 2007, but I dont think I need any special features that it provides.
I will try to explain the issue here without opening the attachment.
I have two columns where there are dates (e.g. 11/05/2009) in a date format; I would like to change the format to `general`; but without losing the original values, i.e. I still want to see 11/05/2009, but just in `general`format. Is it possible to create a macro that will do that? I want these values to stay in the same place, i.e. if it is in cell K10, I still want to have it there - just in other format.
I have tried to write code to format numbers to zero decimal places as well as to justify the format as the zeroes appears as 00000000 when imported.
I need the macro to do this on the first 7 sheets.
I also need ------- lines and ) to be cleared on the first 7 sheets.
I have attached sample data and my code below
Code: Sub Format_Data() Dim Cnt As Long, i As Long Cnt = Sheets.Count Application.DisplayAlerts = False For i = Cnt To 7 Range("F:H").Select With Sheets(i)
how to interrupt VBA code, allow user modifications to a chart, and then continue the code where it left off with a click of a button. I currently have the code in place where a UserForm pops up at a specific point and tells the user to make adjustments and press OK when done. It works fine but the UserForm displays and the macro resumes when OK is clicked, but I can't figure out how to activate the chart or the spreadsheet to allow editing while that UserForm is on the screen. If only I can get excel to allow me to sleect the spreadsheet and make changes while the UserForm is on the screen, I would be set. Can anyone please help me with any options to allow editing while the UserForm is on the screen so I can edit and then click the OK when done?
I posted something similar to this over two years ago. The way I got around it at the time was to break the code into two separate subs. This time around, the code is making 17 graphs and I want to ask for editing for each one before continuing. That would be a lot of individual sections of code.
I have a website with lots of pages and I have a tool where I can see how many visits these pages get. What I want is to find out which pages didn't get any visits.
So I have in one column all the pages URL's on my site In the other column I have all the pages URL's that have been visited, and in the column right next to it I have the amount of visits that page has received.
For example, this is what it looks like today: column A: row 1: /site/hello.htm row 2: /site/how.htm row 3: /site/are.htm row 4: /site/you.htm
Ideally the URL's that have been visited should show up on the same row as the URL in column A, and then for the ones that have not been viewed it will just be blank in column B and C.
so in the above case it would look something like this: column A: row 1: /site/hello.htm row 2: /site/how.htm row 3: /site/are.htm row 4: /site/you.htm
I am trying to create a PDF of every 2 Worksheets. I currently have this code that creates my PDFs for each individual sheet but I need it to group 2 together. Ex: Sheets 1 & 2 a separate PDF, Sheets 3 & 4 a separate PDF and so on.
I'm trying to find an easy way(or any way) that I can have excel automatically insert a page number into my document. I'm looking at 60+ pages on separate tabs that I will be adjusting and modifying for a few weeks yet and I don't feel like continually fixing page numbers.
I have a user form that has several tab pages on it when the form opens it checks to see if the user has entered there default info if it is empty it needs to go to the default tab so the user can enter there info. How do I do this using vba in excel 2000 I have not been able to find any code that will do this if I use the set focus option for a text box on the tab page it comes up with an error saying the item is not visible! The user forme is names = UserDataInputForm. The tab pages I have are
1st = InputDailyTimesPage 2nd = OverTimePage 3rd = DataPage 4th = DefultDataPage the form opens using the 1st tab page by default in the user forms inisilisation code I have this check
I have created a spreadsheet which serves as a reporting portal - if you select a product from a drop down, the spreadsheet automatically updates with data regarding that specific product. I would like to give my worksheet the ability to select a new item from the dropdown (that part i can do) and then print each of these product reports (1 page each) and aggregate them into one large pdf.
I have a formula that checks the previous page(Tab) for a figure so the formula goes =SUM(F37-'05-27-2007 thru 06-02-2007'!F37). Is there a way to instead of asking for the page '05-27-2007 thru 06-02-2007' to have it generically ask for the previous page?
In a macro, I calculate fees (Bold Blue format) on a sheet "Fees" then copy one value to sheet "All Vertical". The values come out regular and black. How can I copy the format aswell?
I have a long growing statistical report(18 pages + more), and 14 of the pages will use report table headers. I went into the page set up and selected the row to repeat on each page. I do not want the table headers on any pages after 14. The rest of the report is formatted differently and does not use the row headers. but all of the information is related. Is there a way to only show the row headers up to page 14? I can't use headers and footers, of course. The report will be set in one place and the user will print it out once a week. It seems as if this cannot be done but I this is my last resort.
My question is about webqueries... specifically how to set up a query that will automatically fetch data on different pages (same data, but includes page 2, page 3, page 4, etc )
I've just figured out how to import a "new web query," but it seems like I won't be able to import 63 pages of it unless I do all of them by hand.
I have a workbook that has a total of 128 pages. The problem is that a lot of those pages won't be used. Basically I have a sheet that needs to be filled out for each day up to around 30 days, sometimes more, most times less.
Currently I have created all the sheets that I will typically need (31 daily's, 31 daily printable reports).
Data is entered into the daily (and other spots) and then with the use of formulas transferred to the report sheet which is hidden and then printable with the use of macros.
I also need to withdraw some of this information (CSV File) to be able to populate a database.
Is it possible to have my "daily" page as a template and then create the subsequent pages as I need them? (this would have to be done with a bunch of other report pages as well). For ease of use I would need all the formulas etc that I currently have to be able to be "created" as well. As an example, there is a running total of costs associated with the "daily" pages that would need to be carried forward.
