Macro To Sum Values From Various Workbooks If They Exist
Feb 3, 2004
Im trying to come up with a Macro that will perform a =SUM() function across multiple workbooks. Some of these workbooks may exist, some may not.
For example, Summary.xls has a =sum() formula that picks up data from wbk1.xls
wbk2.xls
wbk3.xls
etc, all the way to 100
Today i only have wbk 1, 2 and 3 but i know everyday more wbk's are added so i want to create a sum type function to accomodate the sbk's that may be created at a future time.
Right now when i try it, I not only get REF/# but on opening Summary.xls I get a popup that asks me to define the missing wbk's
View 9 Replies
ADVERTISEMENT
Dec 4, 2006
I want a macro to compare each value on workbook 1, Sheet "Destroyed", column "C" against each value on workbook 2, Sheet "ERT Master", column "B". For each instance where the value on workbook 1, matches a value on workbook 2, the row where the match is found on workbook 2 needs to be highlighted in yellow from columns A to H. This needs to be repeated for each value in column "C" of workbook 1.
View 9 Replies
View Related
Jun 27, 2014
I have data in Column C that looks like this:
John
John
John
Ted
Ted
Ted
Gary
Gary
Is there a macro that can create workbooks based on this data. So, i'd have one workbook that would contain all the Johns and all the other data in Columns A -Z, then another workbook for Ted, and so on...
The number of workbooks I need is not fixed. It all depends on how many names are in column C.
View 14 Replies
View Related
Apr 3, 2009
I have done a spreadsheet that shows leave for staff. At anyone time there can be only 3 managers and 4 staff off as a maximum and the cell value for the day is entered as "AL". Therefore on a given day if someone tried to enter a fifth "AL" for example in the staff section a pop up displays stating they have reached a maximum.
View 4 Replies
View Related
Oct 31, 2006
I need to find the unique column values and sum the next column values. i,e
ID XXX
1 100
2 200
1 100
3 500
4 600
2 200
--------------------
Total 1400
View 9 Replies
View Related
Feb 4, 2007
I have a 'master' spreadsheet containing over a thousand filenames. I have been given another spreadsheet with just a couple of hundred filenames on it and have been asked to find out if the filenames on this 'small' spreadsheet appear on the larger/master one.
Is there any way (by formula or by macro code) that I can do this easily? What would be great is some way of Excel colouring in the filenames on the 'small' spreadsheet that also exist on the master one.
View 2 Replies
View Related
Sep 6, 2007
I am trying to use the function Match into the Index function but as a Result I have nothing than N/A#, I would like to be sure that I'am using this function in a proper way
Workbooks(filename_appli).Activate
Range("B" & dercell_appli, "C" & première_ligne).Select
Set Rango3 = Range("B" & dercell_appli, "C" & première_ligne)
Range("C" & dercell_appli, "C" & première_ligne).Select
Set Rango4 = Range("C" & dercell_appli, "C" & première_ligne)
ws.Activate
dercell_unit2 = Range("C65500").End(xlUp).Row
For y = 4 To dercell_unit2
Coincidir = Application.Match(Rango4, Cells(y, 3), 0)
Cells(y, 2) = Application.Index(Rango3, Coincidir, 1)
Next y
View 6 Replies
View Related
Aug 8, 2008
Each column represents a user and each row represents an application the user has. I would like to extract all the applications that are common to all the users and place it in an arbitrary column.
For example
User1_____User2_____User3
Office_______Office_____Office
Adobe_______Adobe____Adobe
Flash________Flash_____Snake
Firefox_______Firefox
Solitaire
The above list should generate Office and Adobe since every user has Office and Adobe.
View 6 Replies
View Related
Nov 24, 2012
Copy over data from different workbooks and using paste special values to paste it into a new workbook using a macro. Here is what I have and what I am looking for:
My file path is
C:Documents and SettingsMy DocumentsProjectCostsDecember12
In this folder I have workbooks called:
Function1
Function2
Function3
In each workbook I have 4 worksheets
Cashable12-13
NonCashable12-13
Total12-13
GrandTotal12-13
I also have a workbook called DecMonthlyTotal in the same folder with the same named worksheets.
I am looking for a macro to be placed in the DecMonthlyTotal that will pull the data from the Cashable12-13 worksheets from Function1, Function2 and Function3 and paste special the values into workbook DecMonthlyTotal, worksheet name Cashable12-13, it will also pull the data from the NonCashable12-13 worksheets from Function1, Function2 and Function3 and paste special the values into workbook DecMonthlyTotal, worksheet name NonCashable12-13
Both the Cashable12-13 and the NonCashable12-13 have Columns A - G The row that the macro should start the copying from is Row 3 for each of the workbooks; however I don't have an end row for the workbooks as this will vary.
I am using Excel version 2003.
View 1 Replies
View Related
Sep 20, 2013
I have a challenge which I am trying to solve without VBA and I am uncertain how to approach
If I have the following spreadsheet consisting of three columns:
FieldA, FieldB, FieldC
A........3................
B........5........6......
C.................7......
D.........................
E.........................
F........6........4......
The result I would like to achieve is
FieldA, FieldB, FieldC
A........3................
B........5........6......
C.................7......
F........6........4......
So, it means I would like to return the rows where Columns B and C have a value. Is this possible with strictly formulas?
View 8 Replies
View Related
Aug 25, 2006
I have a list of last names in Sheet1!Column A. I want to see if any of those exist in Sheet2!Column A, and if it does I want to post the data from Sheet2!Column B into Sheet1!Column B.
View 2 Replies
View Related
Jun 19, 2014
I am trying to determine if the value in cell Y2 also exists anywhere in cells AE2:QE2.
My initial stab at it is
[Code] .....
This results in a #VALUE! error (I am pretty sure that's because excel doesn't like the AE2:QE2 part).
I would do a formula-driven conditional format for this, but I have 2000+ rows that need to be acted on, so that's not feasible.
Is there any way to have excel check if the Y2 value exists in AE2...QE2, cell by cell?
View 6 Replies
View Related
Mar 23, 2009
I tried both IF and LOOKUP and failed. I'm trying to search for values from one worksheet and identify whether or not those values exist in another worksheet. I attempted the following lookup in field A2:
=LOOKUP(B2,Sheet3!A$2:A$914,Sheet3!C$2:C$914)
B2 (thru B5000 or so) contains values I want to search for; sheet3!A$2:A914 is where I want to look and column C of that same sheet, entered the text "Yes" in an attempt to have the results list "Yes" for hits and N/A for misses. (All fields are text.) I copied the formula all the way down the sheet in column A. The result it is returning is N/A in A2 and Yes in A2 -to the bottom, which is incorrect.
View 2 Replies
View Related
Jun 9, 2014
I have 400 source files containing (among others) 8 sheets with daily results: "Fri 23", "Mon 26", "Tue 27", "Wed 28", "Thu 29", "Fri 30", "Sat 31 (if applicable)", "Mon 2".
Each sheet contains also:
State - D1
Role - D2
Staff ID - D3
Date - D4
Activity group name in column A (starting from row 8)
Activity type in column B (merged with C and D) (starting from row 8)
Activity time in columns E:GV (starting from row 8). Usually, there is none or only one value in whole range (e.g. E8:GV8). But sometimes there are two values.
Customer ID in row 6 (value appears only if time was reported in E:GV range)
CC Number in row 7 (value appears only if time was reported in E:GV range)
It's all about transferring values from all daily sheets in all files (.xls) sitting in folder C:WADFinal to one simple table (WAD_Consolidation_file.xls, sheet "Consolidated") consisted of 9 columns: Staff ID, Role, State, Date, Activity Group, Activity Type, Minutes, Customer ID, CC Number.
Additional note if two values exist in the same row they should be copied as two separate entries to consolidation file.
View 9 Replies
View Related
Dec 17, 2009
I want to do, is search column A for claim numbers that match. When I do have a matching claim number, I want to concatenate the original cells ownership field with the said matching cells ownership field (or move into a column in the same row, I can always concatenate later). Once that is complete, I want to delete the row I took the information out of.
I want to join this data in ArcGIS, but as of right now, it's not a 1-to-1 relationship, so only a relate works. That doesn't help me as I want to display claims by ownership, and this can vary per claim. Company A may have 100% on one claim, and then split another claim 50% with Company B.
This causes a double entry on the claim field in this current spreadsheet I have, which requires me to clean it up by making multiple columns of ownership vs. an additional row for shared ownership.
My problem:
Column A Column B
1235555 Company A (50%)
1235555 Company B (50%)
1235556 Company A (100%)
1235557 Company A (33%)
1235557 Company B (33%)
1235557 Company C (33%)
What I would like to see
Column A Column B Column C Column D
1235555 Company A (50%) Company B (50%)
1235556 Company A (100%)
1235557 Company A (33%) Company B (33%) Company C (33%)
View 3 Replies
View Related
Nov 30, 2006
I have been able to piece together something that works great for me till i tested it on a item that I did not have a picture referanced to it.
I am looking for some help with what i guess is an "if" statement that if no picture is found paste "Sorry no picture found" in c3.
Here is code
Sub Copy_Cells()
'Copying the row
addr = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
Intersect( Range(addr).EntireRow, Range("b:ak")).Select
Selection.Copy Sheet2.Range("b65536").End(xlUp).Offset(0, 0)
Sheets("sheet3").Select
'Picture code
MyPicturesName = Sheets("sheet3").Range("i5").Text
Sheets("sheet5").Shapes(MyPicturesName).Copy
Sheets("sheet3").Range("c3").Select
ActiveSheet.Paste
Range("a1").Select
'hide tabs
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
View 4 Replies
View Related
Sep 11, 2012
I have the following code which saves a certain sheet to a new workbook and then emails it to a range of cells. The directory the file is saved in is from a cell, and changes depending on certain cells in the workbook. I would like to make it so if the folder it is saving to does not exist, it will create it. If this isn't possible with this set up, I would just like it to display an error message if the folder is not present.
VB:
Sub Save_Report()
Dim wbName As String
Sheets("TELELINK & ITINERARY FORM").Copy
[Code].....
View 1 Replies
View Related
Aug 20, 2012
From the keyboard, if you select a chart with data labels, right click the data labels then "reset the data lables to match style", it works fine; but there appears not to be a programmatic equivalent to accomplishing this same task... at least the macro recorder does not shed any light on the subject. Is there code available to do the same thing?
View 3 Replies
View Related
May 8, 2013
We have recently converted to Office 2010 from 2007 I have now got a name conflict with some macros on my templates
I have some code which will open up the affected templates delete the required modules & import the amended modules, this is working OK.
I now have to re assign the new macro to each button on all pages on all my templates., I started of by recording the actions to achieve this (see part of the code), but unfortunately the recorded code will not work, it runs but when I test the buttons I get the message that "this macro does not exist in this work book".
Code:
Sheets("page 2").Select
ActiveSheet.Shapes.Range(Array("Button 255")).Select
Selection.OnAction = "DIAM01"
ActiveSheet.Shapes.Range(Array("Button 1549")).Select
Selection.OnAction = "DIAM02"
[Code] ...........
View 2 Replies
View Related
Jun 29, 2012
1 workbook, 2 worksheets (or tabs). On tab 1, I want a formula/alert that tells the user if any duplicate values exist in Column A of tab 2
Tab 2, Column A, has Unique ID's (6 digit numeric values)
The user manually inputs the ID's on new rows in Column A
Row 1 is reserved and in use for something else
Row 2 is my header, so cell A2 says "ID"
Row 3-623 currently contain unique ID's
When the user inputs a new ID into cell A624, then they return to Tab 1, I want my formula/alert on Tab 1 to tell the user that they have duplicates in Column A of tab 2. I know the Conditional Formatting, but if the user copies in 100 new values, they won't necessarily see the highlighted cells. My tab 1 is my "checks and balances" and the last place the user is suppposed to look to ensure that they haven't created any duplicate ID's. If the user sees a warning message that says duplicates exist, then I'll tell them that they need to look at column A (for cells that have been conditionally highlighted).
One issue that I'm running into with the conditional highlighting is that I want cells A3:A1048576 to already have the conditional formatting - this way when the user inserts a value into Cell A624, then A625, etc they conditional formatting is already there. Right now with data in cells A3:A623, cells A624:A1048576 are all highlighted with the Red/Bold Red Font (which is okay I guess), but ideally it would be nice to not count 2+ empty cells as duplicates and I'll have to have my formula on Tab 1 not include the blank cells.
I DO NOT want to use the Remove Duplicates feature of Excel 2010. If I remove them I could be removing data in columns B, C, D, etc that belong to the Unique ID. I just need the user to be told in Tab 1 that they DO have duplicates and I'll train the user how to research this and fix it.
The reason I want to look for duplicates in the entire Column A is because the list of Unique ID's will grow over time.
View 9 Replies
View Related
Dec 14, 2006
I get the following error:
"Run-time error '1004': "cmc4906.xls" File cannot be found.
Check the spelling of the file name and verify that the file
location is correct."
I am not trying to open a xls file. The path is clear and there are no file names with extensions in the path name (C:Weekly). I'm unclear of why the code thinks its looking for file cmc4906.xls and a xls file at that.
Sub Import()
Dim inputfile As Variant
Dim path As Variant
path = ("C:Weeklys")
inputfile = Dir("C:Weeklys")
Do While inputfile <> ""
Workbooks.OpenText Filename:=inputfile, Origin:=437, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 2), Array(6, 2), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _.............
View 10 Replies
View Related
May 6, 2008
We have a simple holidays workbook, with seperate sheet tabs for each member of staff in the department to note down there holidays in a calendar.
The 1st row (from B1 and onwards) contains the day numbers of the month, ie. 1 - 31
The 1st column (A2 downwards) shows the 12 months of the year.
The holidays are then marked in the relevant cell matching the dates required. The codes we use are F (full day), A (morning), and P (afternoon). A countif adds up all the occurences of the various codes and totals the ammount of used/remaining days.
Hopefully that drew a picture.
The problem is, each sheet only shows the holidays marked down for that person. There is no way of checking for a "clash" (ie. 1 member of staff off on the same day as another) without flicking to the other sheets and checking yourself.
how can I get a cell shading to automatically show up on the sheets, if there is a holiday noted down (ie a value, A, P or F) in one of the other sheets?
View 9 Replies
View Related
Dec 13, 2005
I work for a financial firm. Every morning I compare today's cash balance file (sent from our custodian) with yesterday's to see if there is anything different in each portfolio cash balance column. Right now I'm doing it manually checking row by row. It'll become tedious if more and more portfolios are added. I'm looking for an efficient way I can use the portfolio codes column (as a key) to compare with previous day's file’s portfolio codes column , and list only those portfolios(in another workbook) if the corresponding cash balance column doesn't match. This is what I started doing:
Private Sub compare_cash_bttn_Click()
Dim b1 As Workbook, b2 As Workbook, b3 As Workbook
Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet
Dim i As Integer
i = 2
Set b1 = Workbooks("CashA")
Set b2 = Workbooks("CashB")
'Set b3 = ActiveWorkbook
Set w1 = b1.Sheets(qry4rCash).........................
View 9 Replies
View Related
Apr 25, 2007
i need to make a macro that takes workbooks or files and
runs them through another macro. i already have the 2nd macro
done and it is working perfectly i just need to know how to make the one
that finds the other files and runs them all through the macro i already made. My boss said that he will have about 150-200 files to run through this macro.
View 9 Replies
View Related
Dec 26, 2013
I have workbook 1 and workbook 2.
I need to lookup the value in workbook 2 in order to populate workbook 1.
If workbook 2 value = NA, then "" in Workbook 1
If Workbook 2 value > workbook 1 value, then Workbook 1 value
If workbook 2 < workbook 1, then Workbook 2 value.
Should be simple. Keep getting errors in formulas @if or @lookup.
It would be nice to know by worksheet within same workbook as well.
View 4 Replies
View Related
May 16, 2012
I have a set of data from A1: AQ9000
I need to split this data based on column B = type of fruit e.g. Apple, Banana, Orange etc into different worksheets - e.g named banana with only banana related info. but still need to keep the same level of formating - colours etc.
View 6 Replies
View Related
Nov 6, 2007
I'm wondering if it is possible to read values from different workbooks and not open them first.
I have an overview sheet with values from the other workbooks, and I will not use relative references but us a macro that runs trough the workbooks and collect the values.
View 9 Replies
View Related
Feb 13, 2009
I have several workbooks in a folder with sub folders. How can I get the values located in C6,
E6 and E9 and put in a new workbook the "file name" in Ai and those 3 values in Bi, Ci and Di
respectively? It´d be desirable get the values without open the files.
something like:
------A-----------B---------C----------D
Filename1.xls---13:11------13:57-----00:46
Filename2.xls---17:42------18:03-----00:21
.
.
View 9 Replies
View Related
Apr 27, 2007
I got a problem that I cannot seem to solve, I want to retrieve values from 2 closed workbooks, I have with the help of this forum managed to create some VBA that retrieves the values from one of the workbook. What do I need to think of,to be able to put in the values from the second spreadsheet without the values disapearing from the "master" spreadsheet?
The code so far:
Sub ValuesfromClosedWorkbook()
Dim filetoopen As String
Dim wb As Workbook
filetoopen = Application _
. GetOpenFilename("XL Files (*.xls), *.xls")
On Error Resume Next
Set wb = Workbooks.Open(filetoopen, True, True)
With ThisWorkbook.Worksheets(1)
. Cells.Value = wb.Worksheets(1).Cells.Value
End With
wb.Close False
Set wb = Nothing
End Sub
View 3 Replies
View Related
Nov 20, 2007
I'm just starting to experiment with passing values between workbooks and between modules and so far I've managed to get it working. However, I now can not run the receiving module independently because of the passed value ? Let me explain ...
I use start/end dates within my modules to create date sensitive reports. I have several files (for different departments) and each file has a module called "AbsenceChecker", I have been working on a way to create a Report Master workbook to run and amalgamate the "AbsenceChecker" module from each department.
Sub RunAllLoaders()
Dim AbsenceStart As Date, AbsenceEnd As Date
Dim PassVar1 As Date, PassVar2 As Date
Dim DateStart As Date, DateEnd As Date
On Error Resume Next
'start of data validation script continued in private sub.
GetValidDates FromDate:=PassVar1, _
ToDate:=PassVar2, _
MinDate:=DateSerial(2007, 1, 1), _
MaxDate:=DateSerial(2007, 12, 31)
Excel.Application.EnableEvents = False
Workbooks.Open Filename:="R:RostersRosterALPHA.xls"
Application.Run "RosterALPHA.xls!AbsenceChecker", PassVar1, PassVar2
End Sub...................
View 2 Replies
View Related
