i am currently doing a survey. the survey's are done in excel format and after i send out to everyone they will return me the soft copies in excel format. After which i would have many "forms" in excel format. i would like to extract all the data out from those forms into one worksheet. How is it possible ? It can either be excel formulas ? in-built functions or macro.
View 7 RepliesI've got 20 spreadsheets called Week 1 to Week 20 each has two sheets called Wk 42 T and Week 42 R. They are stored in a shared area. I want to Copy all the data in Column M in both sheets and then transfer the data to a summary sheet with a sheet for each.
I've got the below code to open the workbooks but need help with selecting that data per workbook then by sheet and looping through each sheet and pasting in Column A.
Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
I'm currently facing problem with double for loop in the previous vba ,extracting data from closed book. however, it uses only one for loop to extract all data. I need to extract lots of data from the book and thats why i double looped it to extract more data. however, i can only get the first line of data i can't extract any more data from then on.
Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Dim rCell As Range
Dim lCount2 As Long
Worksheets("Data").Select
Range("a2:ac65536").Clear
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
I am looking for a quicker way to filter and extract data from a closed workbook. My current code opens the file and then does the necessary filtering before copying into a separate workbook, however, the workbook I am opening is huge and takes several minutes to open.
Is there any way to speed things up a bit?
Code:
Workbooks.Open Filename:= _
"T:8. CaseBlocks Data for ReportsStephanieNo_Acknowledgement_Received.csv"
Sheets(1).Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("a:a").AutoFilter Field:=1, Criteria1:=" 10000"
ActiveSheet.Range("H:H").AutoFilter Field:=8, Criteria1:= _
"CAP1001"
ActiveSheet.Range("IJ:IJ").AutoFilter Field:=244, Criteria1:="NULL"
I am using the following code to attempt to pull data from closed workbooks. Something in the code is not working and i can't figure it out. ARG is resulting in the path i need with the exception of TOTAL which is the sheet i need the data from.
Private Function getvalue(path, file, sheet, ref)
'Retrieves a value from a closed workbook
Dim arg As String
' Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & "k217811.xls") = "" Then
getvalue = "File Not Found"
Exit Function
End If
I have one Master Sheet that fetches information off of 30 other workbooks. The data is uniform accross all workbooks.
As of right now, I have code written that will update the master, but ONLY if the other workbooks are open.
Is it possbile to get the same data off of closed workbooks?
Here's what I'm using now:
Code:
Sub Master()
Windows("Master.xls").Activate
Dim Reps As Integer
Reps = Range("Reps").Column
Dim LastColumn As Long
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
[code]....
Variable "List" is the list of Workbook names that I'm using.
The code "Windows(List).Activate" is what I'm using to get the data from the other workbooks, but this only works when the workbooks are open.What can I replace this code with?
I am looking to import a sheet into an opened workbook. I have found a code from this URL [URL]....but I can't manage to get this done correctly. I want to copy the range "A1:Z1000" from the "Source" sheet to the target sheet "Div_P&L" (which will be opened when the macro is run) located in another folder.
Source address : "H:P&LYE TempDiv P&LP&L Report 020312.xls" , sheet("Source"), data = range("A1:Z1000").
Target address : "H:Yield EnhancementPandL.xls" , sheet("Div_P&L") , data = range ("A1")
Line Workbooks(PandL).Activate => Run time error 9, Subscript out of range.
I have tried the getvalue function which works, but it takes a long time. So I want to use an ADO way.
Code:
Sub importdata()
ImportRangeFromWB "H:P&LYE TempDiv P&LP&L Report 020312.xls", "Source", "A1:Z1000", True, "PandL.xls", "Div_P&L", "A1"
End Sub
Code:
Sub ImportRangeFromWB(SourceFile As String, SourceSheet As String, _
SourceAddress As String, PasteValuesOnly As Boolean, _
TargetWB As String, TargetWS As String, TargetAddress As String)
' Imports the data in Workbooks(SourceFile).Worksheets(SourceSheet).Range(SourceAddress)
[Code]....
I would like to create a sheet that looks in a certain folder with several .xls files and pulls data from certain cells ( not necessarily next to each other) automatically with out opening each workbook in the target folder.
Each workbook is laid out the same, based on a template, and emailed to me each day (I'll actually get 3 or 4 a day, one from each plant) So the number of files will grow every day. (I've read about a way to automatically save the file based and the date, hour, and minute, and email the file when a certain condition is met, and plan to use this technique in the template.) So the file names should be consistent.
As an example, I would like cell A1 to contain the date from the oldest file and increment row by row as the files come in, automatically. Then the cells B1 on across would contain data from certain cells within the .xls file with that date and time.
Every time that workbook is opened it would update to include data from any new files in the specified folder.
I've done some basic vlookup formulas to look at one particular workbook but not several.
How do I update changes to a linked workbook without having to open it? Let's say that I have two workbooks, "workbook1" and "workbook2". I want to copy data entered from workbook1 to workbook2 without opening workbook2. I know that I can just open workbook2 so that the formula will work but if I do that I'll end up opening up to 3 workbooks, which doesn't really give you much security.
View 7 Replies View RelatedI tried using Dave Hawley's code, but I can't get it to work. It works if the source workbook is open, but I get all "#REF" results if the source workbook is closed. Sales Order Import is the target worksheet for the data, inside the open workbook where this code is located.
Set wks = Worksheets("Sales Order Import")
With wks. Range("A56:Z100")
.FormulaR1C1 = "=IF('C:DdriveMy DocumentsProjectManagementManagementReport[AU0009099.xls]Sheet1'!RC="""",NA(),'C:DdriveMy DocumentsProjectManagementManagementReport[AU0009099.xls]Sheet1'!RC)"
'Delete all Error cells
On Error Resume Next
'.SpecialCells(xlCellTypeFormulas, xlErrors).Clear
On Error Goto 0
'Change all formulas to Values only
.Value = .Value
End With
The .SpecialCells line is commented out, because it error messages (that's my next problem to tackle).
I have a program that calls the regress function multiple times (sometimes more than 1,000) per run. With each call to the regress function, a new workbook is automatically opened. For each new workbook opened, I am storing the contents in a workbook array called Models so I can later sort the workbooks based on the value of R squared. The program often has to open and store hundreds of workbooks before the sorting can take place so as to consider every possibility. Once the sorting has completed, I close all of the open workbooks except for the two containing the largest value of R squared. Due to the massive amounts of workbooks getting opened and then later closed, it takes about 30-40 minutes to run my program.
I want to know if after a new workbook has been opened and its value stored in the Models array, can I immediately close it and then later open only the 20-30 workbooks I really need to speed up run time? This way I wouldn't have hundreds of workbooks open at one time. Here's some code to help:
'This function will run regression stats for all possible combinations of models
'with choose variables
Private Sub Run_Stats( Combos, ByVal Size, R_Squared, Adj_R_Squared, Std_Dev, Cp_Stat, ByVal Dep_Var, ByVal NumIndepVar, ByVal Observations, ByVal Choose, Reg_Labels, ByVal Residual_Sum, Models)
What I want to do is pull data from columns A,B,C,D in 3 other closed workbooks (export.csv, export1.csv, & export2.csv) to my main workbook (Thunder.xlsm)and append that data in columns A-D on my main workbook. In addition I created a list of 10 names (but need to expand or delete from this list as personnel change) in Column O that I would like to filter the data in A-D. The names in the list must find the data I want to keep in column D, the rest I want to delete (not the entire row, just A-D for that particular row that does not match the criteria in column O, and shift those cells up).
I've attached a sample spreadsheet that will clarify what I am asking. I'm preferably asking for 2 macro's, one for the pull of data, and the other for the filtering.
Column A
Column B
Column C
Column D
[Code]....
I need to import the data from a specific sheet (same named sheet on all closed workbooks) to a sheet in an open workbook. All the columns are identical in every workbook but the number of rows is variable, so the data from each subsequent workbook must be appended to the end of the current data.
Whenever a button is pressed, this macro will clear the sheet, then import the data starting in A3. The workbooks are in different folders but they all have the same name, so some sort of explorer window will probably be needed to actually select each file.
I have tried to write the below VBA to copy a specific cell to a specific workbook. I have set the folder path in B1 and listed the file names in column E4 onwards. E1 being the number of files in column E. I get a run-time error 91 "Object variable or With block variable not set" on Current File = ActiveWorkbook.name.
Sub UpdateParameters()
Dim CurrentFile As Workbook
Dim wbOpen As Workbook
[Code]....
I have the following macro in my spreadsheet to extract specific data from closed workbooks in a folder. It works great but what I would like to do is make it so I can just open the spreadsheet and press a button I create that will extract the data from the folder that it lies in.
Currently I have this specific spreadsheet just sitting by itself and I manually work out the address of where my spreadsheets lie and add that address into the code and run the macro. I find it a little cumbersome and me not knowing a hell of a lot in VBA don't know what the command is to make it pull the data from the folder that it resides in. Once I do this then I can create a button and assign the macro to it. Can change the code to be able to extract the data from all of the workbooks in the folder that the macro enabled spreadsheet lies?
[Code] ....
Is it possible to search all closed workbooks in a folder in a range B13:B33 for a particular word?
All closed workbooks have only 1 sheet in them this sheet is always named the same but the workbooks are named sequentially, eg 1, 2, 3 etc.
I have a workbook for each day recording energy usage from 52 meters,
I need to collate the data on a single workbook.
The only way i can think of doing it is to use the INDIRECT function but this will not work on closed workbook.
I need to sum the contents of B1:AW1 on the closed workbook and input that into a cell on the new sheet.
then repeated for B2:AW2, B3:AW3 up to B52:AW52 once this has been done the process needs to be repeated for 31 workbooks.
The end product should be 31 Columns (one for each day ini the last month) and 52 rown (one for each meter) and the total daily consumption for each meter (sum of column B:AW)
I have a workbook which contains countifs and sumifs reading from about 10 different workbooks.
WHen I have the 10 files open, the values appear but when I close the 10 files, I get the 'VALUE' error. How I can keep the value amounts when the workbooks are closed?
I have all documents in the same folder?
i can use application.username to get activeuser name and have excel check this and close the workbook if its not me, what i want to do is have excel check lets say cell A1 in workbook SECURITY.xls stored in C: and if it says Craig Shippey leave workbook open if not close the workbook, why i said working with closed workbooks is i dont want to have any indication on where its checking from,
1. i have a workbook in which i want an Workbook_open macro lets call this workbook staff.xls
2. the staff.xls should read cell A1 from C:security.xls into a variable called Check
3 if check craig shippey close workbook without any prompt
all this should be done without anyone knowing that a macro opens another workbook, i know if the user disables macros then it will still open, but i will just set their Macro Security level to low so they wont be prompted, i will also remove that item from their menu bar, if they cant see it they wont be able to alter it back
I have this formula in a excel file called test.xls which does a SUMIF on file "Sales By Customer v3 17-11-08.xls". It works fine when I have Sales By Customer v3 17-11-08.xls open at the time. When I close it the file displays a #VALUE in the cells
My formula is:
=SUMIF('G:FINANCEAccantia Budget2009Sales and GC[Sales By Customer v3 17-11-08.xls]DP Total'!$B$7:$M$7,Cover!M$85,'G:FINANCEAccantia Budget2009Sales and GC[Sales By Customer v3 17-11-08.xls]DP Total'!B9:M9)-'Page 15'!E9
This is really annoying as the formula works, and you need to open the linked file to display the results, otherwise you get the #VALUE. Is there anyway around this and why is it doing it??
I have got a folder with 50 different workbooks, and I need to change cell B7 value in each one of them.
Is it possible to have a command button with a VBA to change the value of B7 in all these files, without having to open them?
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.
Lets say I have 10 workbooks in a folder called "Lists"
I want to copy from my open file range("R3:U17") to these workbooks without opening 10 files and copying and pasting.
I just thought if there was an easy way of doing this rather than opening all of them I would give it a try.
I have multiple workbook files using the same template but saved under different files names usually by date. I need to summarize the data in a summary worksheet that pulls the same cells from the various individual closed workbooks. I need to be able to insert the file's path as an input to pulling data from a cell or cells.
View 8 Replies View RelatedI've named some cells in the source workbook, and linked these names to the destination workbook. Then I used the names in some formulas in the destination workbook, and it worked great. But when I closed the source workbook it doesnt work. WHen I open the source it works great, but I need for it to be able to link to the workbook when it is closed as well.
View 9 Replies View RelatedI 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
I have had a good look around and have found some scripts that look like they can help but do not. here is my situation
I have 300+ questionaires in excel that contain around 20 questions with each question having the possibility of 5 answers
i.e
A1
A1Do you like this service, answers will be scored in cells F1,G1,H1,I1,J1
What I would like is for a master document to combine all the data into 1 document so I will know how many of the 300 have F1,G1 etc.
In the filed F1 the variable may be X or it may be a number, I would like to add up the number of non blanks in that field, from 300+ closed workbooks
I've been trying for a while not to reference a range of cells in closed workbooks to create an ongoing automatic log.
I've attached a test log with the details required and the cells are staggered, I have been using the formula;
='NETWORKPATHFOLDER[121113 12.42.xls]Enquiry Form'!$G$1
then the cells are (SAME PATH) J1, A5, A7, A9, A11, A13, A15, A17, A19, A21, A31, B31, E31, J31
and the attached test will placed then in that order under their respective headers.
So, all in all, is there a VBA code where it can run it from closed workbooks in the order above?
log text.xls
I have a little over 100 workbooks which I will receive back from customers and in column A of another workbook I have the names of those workbooks.
Not all workbooks will come in at the same time, but I would like, as we receive the workbooks, retrieve the value from cell H19 from the available workbooks according to the name in column A and place the value in column B.
I've looked into Indirect, but with this function the workbooks have to be open. If one of the workbooks has not been received, I would like for the macro to skip this file name. All files are .xlsm.
The file will be in the same folder as all the individual workbooks.
Column AColumn BFile NameH19 ValueDallas.xlsmSan Diego.xlsmArgentina.xlsmParis.xlsm
Is there a way to find and replace the values from a closed workbooks of a folder.
say i have some 15 files in a folder c:/test
I want to find all "Ltd" and replaceAll with Limited
and find all "Co" and replaceAll with "Company" etc (some 20 different values to be found and to be replaced) if this is in a single file i can easily record a macro to this job, i am stuck for doing 15 files at one shot.