I have a very large spreadsheet that is run by a different department. Regularly, I need to go into it do the following:
-filter the sheet by the information in one particular column - - the column is always the same but the number within it by which I filter changes as needed
-double-click each column to autofit the columns
-go to the page break preview to make the document fit one page
-print the results.
My question is can I automate this somehow with a macro or something else?
One of the few flaws I have found using pivot tables is that when selecting from the the page field it does not filter the other page fields to match your current selection. It does in the actual table, so why not the page fields?
For example we have a pivot table like the following |Country| (ALL) |City| (ALL)
|Count of People| |YEAR| ________ |Gender| _______________Male__________Female 2008__________1000 _________500000 2009__________9999999_______1
If I select England from the country, when I go to select a City I do not want to be able to select only the cities in England and not every city in the world.
The Attached File shows you how to deal with this Problem.
I have a spreadsheet of raw data that has been downloaded in Excel. In Column N there are different site numbers.
I want to use a new Sheet for each site. Using a formulae I want to filter the data for each site and then copy the entire row to the relevant site`s page.
So I should end up with a sheet for each page and allthe data sorted correctly?
I have a userform which writes a date into a cell within a row within a table. The code is
[Code] .....
Everything works fine, the date gets sent to the cell as stated and is all correct. However, I also have vba which runs an advanced filter, which the following code is included in.
[Code] ....
P7 and O7 are the advanced filter criteria. Basically in the form I have a "completion date" which is posted with the first code I posted. So lets say that the date posted is 25/07/14, and I want to have a filter of all the dates which are coming up in the next 7 days to be shown in the Advanced Filter results area of my spreadsheet.
With the second part of code I posted, this results in nothing when using the advance filter. The original posted date in the cell (from the first code) is shown as "25/07/14". So when I run the advanced filter, nothing happens. HOWEVER, if I go to the cell containing "25/07/14", delete the contents and write "25/07/14" manually and then run the advanced filter (second code posted), the date shows up in the results working fine. But I dont understand how me typing it out again makes it work?
I need a macro that will print a hidden page that is linked to the page I have active.
It needs to be able to find the correct hidden page that corresponds to the active page because there are multilple pairs of the hidden/visible pages. The name of the hidden page is the same as the visible one with "printout" added to the end. When created, the sheet code names are sheetn and sheetm; n and m being consecutive numbers.
I've been trying to code a macro that will select a worksheet (that has formulas) to copy just the values into a new workbook. I want the page setup data to also be included. It seems that if a select the workbook and do a copy, it includes the formulas. If I select the cells, then do a paste/special values into the new workbook, the page setup is the default one. Each worksheet that I want to copy/paste has different page setup values and I'd like to be able to carry over the page setup. Otherwise, I have to have code to do all the page setup in the macro. There are over 20 worksheets and it's slow.
This code does the copy/paste special but no worksheet page setup is included
When I view a sheet under Page Break Preview, it shows the Page numbers in the centre of the Page. While I am aware that it would not print the page number I was wondering if there is an option to remove/hide the page numbers.
I have set up a spreadsheet with a drop down box. Which says "Show All", "Show Pending" and "Show Completed" This is in Cell H7
Below that I have a table of information from A10 to I1200. These are a list of jobs
In column I is the date the job was completed, if it has a date the job is done, if it has no date its still pending. I wanted a macro that meant if you click on Show all, all jobs show, if you click on Show Completed on the jobs with a date in column I show and if you select Show pendning only the jobs without a date show
I did try this by recording a macro but failed miserably
I have created a macro to filter results from a set of data, paste that data to a new file, and then create charts based on that data. Right now, my macro is basically multiplied 20 times to do this for each heading. Is there a way to create a loop that will just redo the same macro but for the next data heading? Here is a sample of the first part of the macro:
I need to remove all existing page breaks in a document and add a page break every 72 rows. I've tried some similar codes from this forum with other functions that I don't need in it.
I am currently writing a macro that does a variety of things, one of these being that it automatically sums up columns I,J and K. The dilemma I have is that I need to be able to see the sum of the data in a cell at the bottom of the column, after manually filtering it according to what I want to see.
I have the following macro so that we can use the outline feature without having to unprotect a sheet.
Private Sub Workbook_Open() With Worksheets("Schedule") .Protect Password:="APQP", Userinterfaceonly:=True[code]....
However once the macro is run, filtering will not work without unprotecting the sheet first. If you choose not to run the macro, filtering will work without unprotecting the sheet however the outline feature will not. what I need to add and where to make both the outline and filter features to work without having to unptotect the sheet?
I'm trying to write a macro that filters a table via textbox (criteria), specifying the column to filter through a combobox. I managed to get it to work with every format (date, text, etc.) except with numbers. I'm attaching the file so you can take a look at the code.
If I have a column containing numbers but the cells have text format and I reformat those cells to numbers (using points to separate thousands [I'm from Venezuela, we use dots, not commas]) the results aren't visible unless I modify each cell individually. How can I avoid this?
Lastly, I'm using a macro that I found online that sets invisible shapes on each cell of the header and asigns another macro to these shapes to sort by ascending or descending order in the column over which the shape is put. I made some changes to the macro that actually sorts the values and it works fine, but sometimes I have to resize the shape (on the left side) so that it's further inside the cell or else I'll get an error.
EDIT: It doesn't work with dates either!
EDIT2: I tried copying the table and the codes to a new workbook and now magically it works with numbers, but still not working for dates. Also I'm still having to resize the invisible shape (only in header of the first column ('C')) and the changes in format still aren't visible unless I modify each cell. I think this last issue has something to do with 'SortOneTime' macro or the 'Ordenar' macro because it happens after I run them.
I have a pivot chart, filtering data from a pivot table, the problem I've got stuck is that every time I filter the chart the colors and weights of the chart change to default values, not what I want, I've managed to every time I click on the pvt cht tab it updates with the colors and weights I want, but when filtering I don't know how to do.
I am fairly new to macros and I am currently working on a project where I would like to create a 2 buttons which will filter by date and by owner. The spread sheet I have is fairly large and is added to weekly.
I have two objectives that I am trying to reach:
First I need to filter for all past due task items from the Thursday of the week I am working in back and for a specific person (owner) by the finish date
Second I need to filter for upcoming tasks one week out for a specific person (owner). The objective of this is so that on any given day a user can find any upcoming tasks that are due one week out.
If this is not an option. My thought was to create an input box where the user can input the date and the information on the spread sheet will pull all past due items or upcoming tasks. These two items need to pull seperatly not together.
I know I can create a macro by autofiltering by columns however I am trying to avoid having to go in and change the date each week.
Start date is column E Finish date is column F Owner is column L
I have a very big Excel file (62 MB). I need to be able to filter by one column (FACILITY) and sort the whole file using the (REGISTRATION NO) column as well as finding the missing sequence number in the (REGISTRATION NO) column. The problem is that the (FACILITY) column has more than 200 different facility name. I am thinking of macro as I have different Spreadsheet I need to do the same steps in each one separately.
I have attached a copy (example from the data that I have) .
I have a situation where I have a macro that sorts on sheet1. I would like it to run when a cell changes on sheet2 in E9:N21. Since the cells on sheet1 are linked to data on sheet2, I cannot trigger the macro from sheet1 due to the cells being formulas instead of values.
Here is what I have tried and it is not working. I must be doing something wrong with the syntax.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range(Sheets("Games")("E9:N21"))) Is Nothing Then Exit Sub Else ActiveWindow.SmallScroll Down:=33 Rows("6:55").Select Range("A55").Activate Selection.Sort Key1:=Range("A55"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("A3").Select End If End Sub
I am inserting a page break with the following macro, however a page break is also inserted when the word " Total Miscellaneous G&A" is found. I am sure there is an easy solution, I am just not very proficient with VBA.
If Not (Application.IsErr(Application. Find("MISCELLANEOUS G&A", UCase( Cells(myCounter, 1))))) Then ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Cells(myCounter - 1, 1) End If Next myCounter
I have some code that parses an html table. I want to put in error handling in case the format of the page changes or the internet page is unavailable. I am testing without an internet connection and the run time error is not being branched off to the error handler and is fatally ending the macro. This is true also if I raise an error manually.
Private Sub ParseInjuryPage() On Error Goto ErrorHandl Dim strPage As String Dim webIE As SHDocVw.InternetExplorer Dim myURL As String Dim tableBeg As Long Dim tableEnd As Long Dim RowBeg As Long Dim rowEnd As Long Dim cellBeg As Long Dim cellEnd As Long Dim strBeg As Long Dim strEnd As Long Dim myCell As Range Dim rowNum As Integer With Sheets("INJ") Set myCell = .Range("A2") .Range("A:F").Value = vbNullString rowNum = 2 Set webIE = New SHDocVw.InternetExplorer myURL = "http://www.sportsline.com/nfl/injuries" webIE.Navigate myURL Do Until webIE.ReadyState = READYSTATE_COMPLETE DoEvents Loop strPage = webIE.Document.body.innerhtml...................................
Once a week I need to export data to excel for a report. Some weeks there may be 30 rows and other weeks there may be 100 rows. I created a macro in the attached spreadsheet called 247 formattedV2 that seems to work fine except that it seems to get caught up in the Page Set up area. Here is the things that I have already in the macro that need to be accomplished.
1.All cells should be set to wrap text 2.Bottom justify text on row 1 for wrap text 3.Top justify all rows below it for wrap text 4.Adjust width of columns to exactly what is shown. If text runs over, it should wrap (shown in parenthesis) 5.Center all titles at the top of each column - show with grey background as indicated 6.Center text in columns A, B & C 7.Lighten grey cell in beteen each call (keep them in for all notes, they were accidently removed in this version) 8.Darken grey cell for column headers
Page setup: Set margins to narrow setting at .25 top, bottom, left, right. Set to landscape. Should be 1 page width, as many as necessary for height
Set for 8.5x14 paper (legal size)
Column Widths •A - Last Call Date (w=10), •B - Priority (w=7),.............
I have a macro already made to protect all the worksheets upon leaving. One thing I have noticed as I go into these workbooks is it opens on whatever page you left or saved on. I would like it to open up to the first sheet, which is my master.
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets Select Case ws.Name Case "Delta Crew" ws.Protect "delta"
I have a excel sheet with multiple sheets in it.And I have a VBA macro which split all those sheets into one file each.When I am trying to print one file(SHeet) which has more than 15 columns it is printing in two pages(Width).Is there any code i can use so that when ever i open a file which was split by me and give print command the width should fit to the page and peint.
I need to create a macro to "paste special - values", therefore I have coded
"Selection.PasteSpecial Paste:=xlPasteValues"
It works well if copy and paste special within the same excel sheet. However, when I ctrl C on any other website and revert back to excel to use my macro to paste special, it cannot work.
However, when this is executed it returns the following error:
Run-time error '-2146697210 (800c0006)': Method 'FollowHyperlink' of object '_Workbook' failed
Clearly, I'm doing something wrong. I wondered if it had anything to do with the fact that the webpage I'm trying to open is a pdf and not html or similar, but this doesn't appear to be the issue.
Im using information from oracle to do applications on excel. As im nothing related to IT department and I'm working on a BIG company, i did it by myself, i dont have support.
What i did is to investigate about oracleas (portal), then from my excel application i create the URL of the search i need, query it and paste on the document the table i need. I did this from months and worked great.
But now portal have been upgraded and need to do login before use it. I have some amateur knowledge about some HTML, PHP, CSS but i dont get how to fill the username and password for this new portal.
I will copy part of the code from portal that i think is the key:
<SCRIPT TYPE="text/javascript"> <!-- Comment out script For old browsers Function setFocus() {
