Auto Run Macro On All Workbooks/sheets
Feb 8, 2007
I have 100's of workbooks that have a mispelled word in a cell. Some of the workbooks have more than one sheet. I have written a macro that will correct the mispelling, and now would like to have the macro run automatically everytime I open a workbook, I would like for it to check all the sheets, but if not, then whatever sheet the workbook opens to will be fine. Here is the macro.
Sub mySpelling()
Dim myWord
Range("b22").Select
myWord = ActiveCell
If myWord = "Quanity" Then
ActiveCell.FormulaR1C1 = "Quantity"
End If
End Sub
I have done a search and have seen about "personal.xls", that does not seem to work. Thinking that I will have to add something to XLStart folder but not sure.
View 3 Replies
ADVERTISEMENT
Jan 24, 2014
I'd like to create a macro that will take 10 workbooks and add them to a new work book, but have each workbook as a separate sheet.
So every month from work I get a report file labeled as the current month (JAN_14). Then there about 19 folders in that folders labeled with product names; then in those folders are two excel files (they're all named MSTASCH_QUICKLOOK_1 and MSTASCH_QUICKLOOK). I figure if I can see the macro to combine 10 workbooks I can change it to do less or more workbooks. I had tried a macro that takes the workbooks from one file and puts them into two seperate sheets (although I would love to have the order changed of how they're put into the workbook).
VB:
Sub MergeSheets()
Dim wbDst As Workbook
Dim wbSrc As Workbook
[Code]....
View 4 Replies
View Related
Oct 16, 2009
I am trying to make a save&close workbook macro.
I found several examples on google, but unfortunatly it conflicts with another macro I use for forceing users to enable macros (hide all sheets except one if macros are disabled).
The attached file is an example contaning the save&close code and the show/hide sheets depending on macros enabled.
If the file is opened with macros disabled then only one sheet will be visible.
If the file is opened with macros enabled other sheets are visible.
The problem if that this code uses a custom save, witch makes the save&close not save... (in module1 and in ThisWorkbook)
The pourpose of the save&close is to make sure some users don't forget the excel open and thus block access to it. So if a certain idele time passes excel has to save and close without any confirmation messages.
View 10 Replies
View Related
Aug 29, 2008
I would like to use VBA to search a folder and copy data from tabs within the excel files there. The data will be pasted to a tab of same name in the the main file. All the files are in the same format.
So far I have only managed to list the files in the folder using code I found on your site!
View 7 Replies
View Related
May 28, 2014
I am trying to program a macro that get the sheets in four different workbooks and put them into another workbook where my macro is located. I have managed to open the first workbook and copy the first sheet but when going for sheet two in the same workbook it gives me an error 91 stating the variable or with block variable not set on the following line:
[Code] ..........
Here is the rest of my code and attached file.
Attached File: Training Hours Macro.xlsm‎
View 5 Replies
View Related
Jul 17, 2008
I had a Costs file which had a sheet per product (about 30) and a totals sheet with a basic 3D sum in each cell.
Columns A:E held the cost codes and descriptions and then column F onwards were a column per month showing any associated costs for a six year plan.
This file was cumbersome and not user-friendly, as they then linked into the 30 different product files, so I've effectively moved every sheet from this file into the relevant product file, so the cumbersome Costs file no longer exists.
This works much better. However, I still want a summary page to show me the total costs of all of these products.
Can I do some kind of SUMPRODUCT, or INDEX MATCH to take the cost for Code 13011234 for Jan 08 from each of the 30 files, without having to make a copy of each sheet or write a long winded suma+sumb etc?
NOTE: Not all sheets contain all codes (although they did for the previous 3D sums). My master list does, but I don't want any errors if code 13011234 is not found on one of the sheets.
Also, all of the sheets are now called COSTS within each of the individual files.
View 9 Replies
View Related
Jun 4, 2006
I have workbook which content a lot of sheets. I want to separate each sheet to separate workbook. I would be glad if somebody got a clue how to do it.
View 4 Replies
View Related
Feb 1, 2007
I am looking for the code to transfer a sheet from one open workbook to another open workbook. I am just wondering what type of code I need to type so that a particular sheet from one workbook goes into a particular workbook that I desire. i.e if there were 10 workbooks open, I want a particular sheet from one workbook to be moved into one particular workbook out of these 10 sheets.
View 3 Replies
View Related
Jun 30, 2014
I came across the following code, which does exactly what i want. It opens up all workbooks in a specified folder, and consolidates these into one. Each worksheet data is added below that of the previous workbook.
[URL]....
I have changed this to suit my workbook which has the header rows starting in row 6, but is now giving an error due ot the copy area not being the same size as the past area. It appears to be copying columns A:M and trying to paste this into the main workbook in columns A:N.
[Code] .....
View 9 Replies
View Related
May 21, 2006
I've attached two separate workbooks that have indentical sheets in each. One workbook is a 2 day later update of the first. I'm trying to develop VBA code that will open both workbooks uses column B (work order #) as the unique identifier for each like sheet (which represent a month) and compares all other columns for that unique indentifier. Then I need to generate 3rd workbook that is identical in format (has a sheet for each month) and content to the two source ones but shows the unique identifier and any changes:
Column A (due date)
Column d (order quantity)
Also,if in the newer workbook(5_12_06) there exist a unique indentifier (work order #) that was not in the older workbook(5_10_06) and the same if there exits a unique indentifier in the older workbook that was removed in the newer workbook.
View 2 Replies
View Related
Aug 29, 2007
I have same kind of file stored in a folder every day. For example an expense statement that is being pulled every day has sheet tabs Mon, Tue, Wed, Thu, Fri. Every day it gets stored in a particular folder. I need to consolidate for say 4 weeks. All sheet tabs look alike. I need to consolidate all mondays, all tuesday sheets ... in a master work book.
View 9 Replies
View Related
Mar 6, 2008
I need to develop a VBA that counts all worksheets named sheet1 within all open workbooks in addition to many other useless tasks. I have spent many hours trying to figure out how to do that. My guess is to use some sort of with statement, but my efforts have been unsuccessful.
Sub CountWKS()
Dim wb As Workbook
Dim msg As String
Dim myTotal As Long
For Each wb In Workbooks
msg = msg & vbLf & wb.Name & vbTab & wb.Sheets.Count
myTotal = myTotal + wb.Sheets.Count
Next
MsgBox "The number of worksheets in each workbook is " & msg & vbLf & Workbooks.Count & " open workbooks and " & myTotal & " total sheets"
End Sub
View 2 Replies
View Related
Mar 22, 2013
How do I continuously loop various sheets in different workbooks pausing then for 5 seconds on each sheet (not all sheets in each workbook).
View 2 Replies
View Related
Sep 17, 2009
I have several workbooks that supervisors in a call center use to grade calls for quality.
Each supervisor has a seperate workbook, and after scoring the call, the supervisor runs a vb script that copies all of the data from the worksheet "observation" onto "sheet1" for storing the data.
So now I want to use another workbook to:
1. Copy each sheet1 from all of the supervisor workbooks onto a sheet named "cumulative" in a different workbook.
In a perfect world it would also:
2. Keep a count of how many observations were done by each supervisor each day
3. Keep a count of how many have been done week to date
4. Keep a count how many have been done total since January 1, 2009
Each workbook is kept on a network drive at s:supervisorsqadata and named - for example QAformMelissa.xls
I'm okay with keeping the master sheet in the same directory if that makes it easier to accomplish this.
View 8 Replies
View Related
Nov 7, 2012
I need to find a way to split a sheet with a variable number of users (in column a) into either multiple tabs in the same workbook (preference) or into separate workbooks that are secured by a password for each user that is determined by another column on the original sheet (column b). There are going to be 25 columns and I'd like it to split with the column headers. As far as parsing the data into tabs, I've got several different methods for this I can already use. It's the secured part that I can't seem to get automated. I can, after the fact, manually insert code into each tab that will secure it or loop back to a tab that is viewable when the wrong password is entered. But what I'd like, is some vba code that will do this for me.
View 1 Replies
View Related
Sep 8, 2009
I am trying to do is to combine multiple sheets from multiple workbooks if in the created parameters table it has a 'y' next to it. (So you can specify which workbooks to copy from and which worksheets to copy from) - please see example file to get a better understanding.
Example file:
Master
What I have is a parameters table which defines which workbook/worksheet to look in (please see attachment) on the 'parameters' worksheet.
I also have a 'raw data' worksheet within the same workbook where I want the combined data to go.
File a.xls/b.xls/c.xls etc
Theses are the workbooks where all the data is held which I want to combine, each workbook is the same, just different 'data'. - they are all in the same path too.
In the first column in the parameters table I have the available workbooks:
a.xls
b.xls
c.xls
etc
and next to it a 'y' or 'n' - 'y' if I want to copy data from that workbook or a 'n' if I don’t.
In the second column in the parameters table I have the available worksheets:
sheet1
sheet2
sheet3
etc
and next to it a 'y' or 'n' - 'y' if I want to copy data from that worksheet or a 'n' if I don’t.
In the attached example I have code which loops through each file a,b,c dependent whether it has a y/n next to it but I need some code to get it to copy data from the specified sheets in the second column (if it has a Y next to it) in the parameters table to the raw data worksheet in the master workbook with the filename of where the data came from in column A (eg A.xls).
View 3 Replies
View Related
Jul 17, 2007
I have a created a main workbook with a macro that opens workbooks on a particular sheet from a list of workbook paths and filenames in the main workbook. The macro are suppose to copy the sheet and paste it into a sheet with a new name that I have defined from the list in the main workbook. I can get the macro to open the workbooks and close them. But I can't get the macro to copy the sheet into the main workbook.
I have attached the code and the workbook. I used slet_ark to delete previous sheet and hentark and henttekstfil to open the different workbooks.
The code I use are:
Public Sub Slet_ark()
Dim ark() As Variant
Dim Counter As Long
Dim FirstSheet As Long
Dim LastSheet As Long
View 3 Replies
View Related
Sep 23, 2007
I have been working on this project for some time and still haven't got anywhere with it. What I am essentially trying to do is create a master summary workbook where by you press a button to activate a chunk of VBA that will grab the same range of data from multiple workbooks but also multiple sheets in those workbooks, only problem is the number of sheets in each workbook are constantly changing so I need first find some way of accessing a closed workbooks, then I need a way of looping through a segment of code that will look into approximately 10 workbooks all with a different number of sheets and taking a fixed range of cells out of each sheet and for every workbook make a new tab and paste the information in that tab then move onto the next workbook, find the number of tabs (missing out the first 3 tabs of every workbook) and copy and paste the fixed range from each tab onto a new tab the summary workbook.
I will then have a summary workbook with a number of tabs, each one a different workbook with all the data from all the tabs in that workbook, I can then pull that information using formulas or some more VBA into a summary tab on the summary workbook, consolidating all of the information.
View 6 Replies
View Related
Mar 22, 2013
I've got folder of 44 files - all copies of each other apart from the data entered in the cells - which have 7 worksheets in them all named differently (Each one is a different day of the week - this is the work of someone else that I have to work on !).
I want to copy the data in the columns A-R of each worksheet from row 2 to the last one with data in column M into a single file so that I can then then work on all that data in a single file..
View 9 Replies
View Related
Aug 26, 2008
='NAME OF SHEET'!$#
where # equals the exact cell in the other sheet I want to copy. I'm also starting to realize that with this formula, Senior Monkette and I could take Dingleberry and Bliddiboo and combine them into a more powerful and robust spreadsheet (called "Voltron!").
1. If we're going to be sending Voltron! to the client, all I would need to do is password protect, then hide the Dingleberry sheets so that the client doesn't look at them accidentally, right?
2. If I hide and protect the Dingleberry sheets, the cell information will still show up on the Bliddiboo sheet, right?
3. Since Senior Monkette isn't as Excel-savvy as I am, the entire process would have to be as painless as possible. What I was thinking of doing was having one master Voltron! where Senior Monkette could make her changes and updated. Then every week, save the entire thing, protect/hide the Dingleberry sheets, and then save a copy as a separate Voltron! file, marked by the date, which then gets shipped off to the client. Is there a macro I can run that will do that all with the press of one button? (And how do I install macros?)
View 10 Replies
View Related
Mar 28, 2008
I am sure this is a very simple questions. I am using the below code to work on the worksheets on a workbook called "MF BANK EXPOSURE SUMMARY.xls" so far the code that I am using is:
Sub Commandbutton2()
Dim iCol As Long
Dim Isheet As Long
Dim Item As Worksheet
Set MFBANK = Workbooks("MF BANK EXPOSURE SUMMARY.xls")
For Each Item In MFBANK.Worksheets
With Item. Range("A1:T65536")
For iCol = .Column + .Columns.Count - 1 To 1 Step -1
If IsEmpty(.Cells(65536, iCol)) And IsEmpty(.Cells(1, iCol)) Then
If .Cells(65536, iCol).End(xlUp).Row = 1 Then .Columns(iCol).Delete
End If
Next iCol
End With
Next Item
End Sub
I would like to extend the code so that it works on the worksheets of two workbooks at the same time the one being the "MF BANK EXPOSURE SUMMARY.xls" and the other being "MF CP EXPOSURE SUMMARY.xls" .
View 3 Replies
View Related
Jul 16, 2013
sum all my sheet data....I have around 200+ sheets with same format and I'm doing one summary sheet where I can see the sum of all sheets (column L) but not able to get the formula .....
Example: Currently using below formula
=Sum('Sheet 1'!L:L)
How to I change the Sheet 1, Sheet 2 ..etc If I drag the formula I'm not getting the results....
get the right formula to copy all the sheets column L:L sum details...
View 6 Replies
View Related
Apr 9, 2014
I am trying to combine several workbooks containing data in multiple sheets into a master workbook. All the workbooks have the same number of worksheets. I would like to combine all data in Sheet1 into a new Sheet1, all data from Sheet2 into a new Sheet2, etc.
View 1 Replies
View Related
Mar 20, 2009
I have directory with multiple workbooks. Each workbook contains multiple sheets (sheet 1, sheet 2, etc). On each sheet of the workbook, there are various data. The data I am looking to extract from these sheets are in the same cell of each sheet. (See data sheet –datasheet.xls). If I can extract these data without opening the file, it would be preferred. Otherwise, opening the workbook, extract the data, and then close the workbook is acceptable.
Desired Solution:
I would like the assistance to create a macro that will extract data from each sheet of the workbook in the directory at a time until all the workbooks and sheets within the directory are read. The macro shall extract data from cell B5, B6, B10:B20, and sheet name from each sheet of the workbook and copy these data to an active sheet called “US” on workbook, DesireResult.xls. The DesireResult.xls shows how the data should be copied over. Before copying the data to the DesireResult.xls workbook, the macro will prompt the user to enter a cell on the “US” sheet as the starting point to paste the information to. Prompting the user to enter the beginning cell shall happen only once and not for each workbook or sheet being read. The reason for this is because the “US” sheet will already have other data in it. After reading each sheet, the macro shall leave a blank row at the end. The data from the next sheet shall be pasted below the blank row. Note: all the workbooks contain macro and link to other file. When opening each workbook, the macro should automatically choose not to update the links.
View 4 Replies
View Related
Dec 22, 2009
I'm using Excel 2007 and need some color help. I'm making a spreadsheet based on goals. Sheet 1 is the main sheet where every employee's progress is seen at once. Sheet 2, 3, 4 are my employee's individual pages where they log their progress. They simply fill a cell red if they've failed a goal, yellow if it's in progress, and green if they were successful.
If Jim fills cell E4 green on his individual sheet (Sheet 2), how can I make cell E4 on Sheet 1 turn green as well?
View 10 Replies
View Related
Dec 29, 2012
if it was possible to have Excel sort and then Auto generate a work sheet.
Once a week at work I get a report that is split up via our 3 digit office codes.
Once a week I manually sort the info and split the original sheet into separate sheets based on the office code and mail it to them.
Its is simple and repetitive but takes me half a day to do due to the size.
View 2 Replies
View Related
May 22, 2007
I have a macro assigned to a command button that will auto filter a single worksheet. I need to be able to use this on multiple worksheets at the same time. Here is the Macro:
Private Sub CommandButton1_Click()
Range("Q7:Q567").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
End Sub
View 5 Replies
View Related
Nov 26, 2008
Split off from Fill Multi Select ListBox With File Paths & Open Selected Files
if I can add a other request I just thought of.
If a sheet is also in one of the workbooks list, can I add a link directly to it?
For example, Workbook1 has a sheet named "MARCH".
When i'm working on sheet "MARCH" I want to be able to click on a button to see the Userform I created from the script above and see if the sheet "MARCH" is present from the other workbooks listed, if there is a sheet "MARCH" in the workbooks listed, I want another listbox to show what files contain sheet "MARCH" and link to them.
View 9 Replies
View Related
Oct 7, 2009
this may or may not be easy for some of you but its driving me nuts. Here's what I need to do.
1.Create a new workbook
2.Cycle through multiple workbooks and all worksheets within each workbook (all in the same folder). All workbooks will have the same structure.
3.Take the worksheet names and put them in rows
4.Take the data from the first column (column A) from the first worksheet of the first workbook and put them across the top (i.e. transpose the data). The first column will be the same in all workbooks so it doesn't matter where I get it from.
5.Copy the data from column E from each worksheet and paste them in rows in the new workbook (again transpose) corresponding to each worksheet.
6. Perform simple mathematical calculations at the end of each row.
I expect to have approximately 26 workbooks with a total of 7000 worksheets. In the target workbook (i.e. the new one), I expect there to be 7000 rows (corresponding to the 7000 worksheets) and about 260 columns.
The only reason I need to transpose stuff is because Excel 2007 doesn't have 7000 columns.
Here's an example of what it would look like.
Example worksheet (Input)-
Worksheet ABC
Col A Col E
1/1/2004 $25
1/8/2004 $30
1/15/2004 $15
Imagine another worksheet called LMN with the same ColA but different values in Col E.
Output workbook
ColA Columns B Column C Column D
Sheet 1/1/2004 1/8/ 2004 1/15/2004
ABC $25 $30 $15
LMN $xxx $yyy $zzz
View 7 Replies
View Related
Apr 22, 2008
I have a workbook with multiple worksheets. First 4 tabs are the standard tabs and rest of the tabs are created based ona macro with the unique names. Now i want to create the separate workbook for each tab by its name and , date and time stamp in a C directory.
View 5 Replies
View Related