Copy & Transpose Addresses From Multiple Files Into 1
Jun 29, 2008
I want to write macro for below requirement.
I have 10 file in a folder and in that there is address, pone and other detail of employees in these sheets it will be static from D3 - D13 rows. Which is of below format:
Original format
Name
Address1
Address2
Phone
Sex etc..
I want to the above data to populate from these 10 sheets to one sheet (new workbook) as columns as below format :
Sl.#, Name, Address1, Address2, Phone, Sex etc...
I want to write an macro to achieve this. Please let me know your views to achieve this functionality.
View 4 Replies
ADVERTISEMENT
Jun 29, 2014
I have a directory which contains many files, they are all names based on their locations. eg. Burwood-File1.xls,Burwood-File2.xls,Burwood-File3.xls etc
I have a master that which will contain the branch in the first column.
I have defined the directory location in a separate sheet as well as email template.
When I click on the Send Email button I want ti to attach the files that match the Branch name.
The Branch list will constantly grow.
View 2 Replies
View Related
Jan 4, 2014
how I can loop through folders to select files starting with a certain word and copy all of them to a different folder and rename them. The folder structure is given below
Company 1(parent folder)
North South East(sub folder) West(sub folder)
Jan Feb Mar.... Dec Jan Feb Mar.... Dec Jan Feb Mar.... Dec Jan Feb Mar.... Dec
In the above structure, the files are present inside each folders Jan, feb...Dec under the regions North, South East n west. note that I have to select files starting with "Sales" and copy them into a new folder(say results) and rename copied files as Sales1.xls, Sales2.xls etc. (Files are not present in the folder company1, north, south, east and east.)
View 1 Replies
View Related
Jan 25, 2010
writing a macro that could save me loads of time. In the attached file there are 2 separate sheets of data ( named "Elements Innovation" and "Dinttap") that I need copied, pasted, transposed and consolidated into one master sheet (named "Desired result"). Note that the fields that relevant cells are highlighted in yellow. In reality I'll have many (~100) of these sheets that I need the data extracted from, and the work looks like it can be automated using VBA to speed things up.
View 2 Replies
View Related
Jul 21, 2014
I have over 200 worksheets - separate participants data. On each sheet there is a summary column of data at the moment. I now want those columns of data copied to a summary sheet but transposed to rows.
I have attached an example with 3 worksheets and the sort of summary sheet I am after.
View 6 Replies
View Related
Mar 25, 2014
1. The idea is that the macro will start on sheet1, look at column "Jon", copy the values down to the last active cell as well as the dates and paste special values and transpose them onto the "Jon" tab starting in B8 and B9. Each day all of the dates and values on the "Jon" tab should be overwritten with the data on sheets1 and 2, instead of it being cumulative.
2. The macro will then go to sheet2, look at column "Jon", copy the values to the last active as well as the dates and paste special values and transpose them onto the "Jon" tab starting in B18 and B19. Each day all of the dates and values on the "Jon" tab should be overwritten with the data on sheets1 and 2, instead of it being cumulative.
3. The macro would then save the "Jon" tab as a separate pdf in a specified location.
4. The process would then repeat for "Mike" and "Paul". Each day the number of columns can fluctuate, so it may be 3 one day (Jon, Mike, Paul) and 8 the next. The number of rows also may vary from day to day, and column to column.
I have attached a workbook that contains the data for the scenario above as well as the output (Jon, Mike, Paul tabs). Ideally there will not be new tabs that remain for Jon, Mike, Paul, just a default tab (e.g. "output" tab) that would receive the transposed data from the columns for Jon, Mike, Paul. I put all 3 in the workbook so you could see how each of them would output.
View 4 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
Nov 7, 2009
I have 8 different files all have a set of data in them
each one has a long list of (column a-n) however the number of rows change by date. I need each file copied into the finalfile.xls one after another. in the files that will be merged into the final file the final row i need copied is blank.
I have all the copy formulas and everything set, I just need a range to copy that automaticaly takes cell a10 to the first blank a cell from each file and pastes it in the finalfile.xls under the last paste so they dont over write each other.
View 9 Replies
View Related
Jun 29, 2009
way to take the data from a specific cell that is in the sheet1from every file and put those result in the A2,A3,A4,... cells in the sheet1 of new excel file.
View 13 Replies
View Related
Jan 2, 2007
I want to know if its possible to write a macro that will prompt me to open a document, then once open it will copy data and paste it into the working spreadsheet. I have a mini macro that cuts and pastes data elsewhere in the sheet but at present I am manually opening a file then copying all and then pasteing the data which is rather slow.
View 9 Replies
View Related
Mar 23, 2007
I have multiple workbooks in a directory and I need to copy a range of cells from 1 particular worksheet in each workbook and paste the data into the " consolidation workbook (Lar.xls)" that contains the macro I'm working on. I have found the code to open & close all of the workbooks and I can even get to the particular sheet in the workbooks but I cannot select and copy the range of cells that I need (I cannot get it to select any specific cell on the worksheet). Here's the code I'm using, have tried many different variations with the same problem.
Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
Set wbCodeBook = ThisWorkbook
With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "C:Temp1"
.FileType = msoFileTypeExcelWorkbooks
'.Filename = " Book*.xls"................................
View 2 Replies
View Related
Jan 10, 2014
I am trying to combine 60 separate excel files into one main file. I've been opening each file copying it then pasting it into the main file.However, this is getting tiresome.
View 1 Replies
View Related
Dec 19, 2007
I have created a Macro that lists and creates links of all the Excel Documents in a Directory (500+). I would like to extract from each of those files data from a single cell on a certain sheet. (The sheet and cell are the same in each of these files). The code I have written opens each of these files, copies the data and pastes the value in the column next to each sheet. This is a very time consuming task because of the shear volume. I feel that there is a better way to do this, I'm just not seeing it. If you could come up with a way to create this as a reference that would be great too instead of having to rebuild the entire list if the data changes. Here is the code I have written.
Sub Test2()
' Select cell A1, *first line of data*.
Range("A1").Select
' Set Do loop to stop when an empty cell is reached.
Do Until IsEmpty(ActiveCell)
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("Contact Information").Activate
ActiveSheet.Range("B8").Select
Selection.Copy
ActiveWindow.Close
ActiveCell.Offset(0, 1).Select
PasteSpecial zlPasteValues
ActiveCell.Offset(1, -1).Select
Loop
End Sub
View 2 Replies
View Related
Aug 14, 2014
I have one master excel file (masterexcel.xlsx) and 100 small excel files. The small excel files are saved as M30.xlsx, M31.xlsx, M32.xlsx, M33.xlsx, M34.xlsx....
I want to open the M30 file, copy a certain section and paste it into the master excel file, close the M30 file whilst saving the new information in a file called recording. Then open the next file which is M31, copy a certain section and paste it into the master excel file, close the M31 file and then open m32 and so on....
How do I create a loop for the files so it automatically opens the files in the order M30, M31, M32.......and performs the aforementioned actions.
I have attempted the following for m30 but i need to make it a loop for m31, m32, m33, m34, 35 and so on....
[Code] .....
View 1 Replies
View Related
May 6, 2014
I receive a daily bath of 6 files (for now lets calls them 1.csv, 2.csv 3.csv etc...)
I have to manually open these select all the data and then paste them into a single worksheet in a different xls file (called master.xls).
I am trying to figure out some vba that will open each .csv file, copy the data and append to the end of worksheet 1 in master.xls. Ideally i would also like it to paste the name of the .csv it has copied the data to in column A of master.xls
Also, the .csv files will not always contain data, occasionally some will be blank.
Both .csv and master.xls will be stored in the same folder.
View 3 Replies
View Related
Mar 10, 2013
This is what I am trying to achieve:
1) Prompt user to select a file (or multiple files)
2) Copy the files that meet certain criteria to a folder
My attempt (fail):
VB:
Sub FILES2SFTP() Dim FileNames As Variant Dim I As Integer Dim fso As Variant Dim Data As String ChDrive "G:" ChDir "G:TEST" Data = InputBox("Enter the date", "Enter the date", Format(Application.WorksheetFunction.WorkDay(Date, -1), "yyyymmdd")) Set fso = [code]....
I get error 424 object not found in this line:
If fso.getfilename(FileNames(I).Name) = ("Name1" & Data & ".xls" Or "Name2" & Data & ".xls") Then
View 3 Replies
View Related
Sep 22, 2013
For the last year I have been downloading cash register X1 and Z1 files onto an SD card. Each night's files (X1 & Z1) are stored in a new folder with the naming convention "RP + [DATE]", (EX: RP120910, [YYMMDD]). I have 265 folders! I need to go through each folder, select the Z1 file (I don't care about the X1, X2 or Z2 files) and rename each with the following naming convention: "Z1 + folder_name + .xls". For Example: Folder RP120910 contains the Z1 file named "Z1_T1729.ECR". After renaming, the file should be "Z1RP120910.xls". As the VBA code loops through each subfolder, selecting and renaming the Z1 files, I would like the new files to be placed into a new folder named "Z1Files". Note: All subfolders are currently in a directory named "RegisterFiles". I am using Excel 2010.
View 3 Replies
View Related
Apr 25, 2007
I'm trying to draft together a simple VBA script or even =HYPERLINK string to utilize a range of cells in Excel for the To: field in an Outlook email.
I have 7 columns each with categorized for different individuals in different departments.
Instead of dealing with contact groups, I have created a spreadsheet that breaks down the departments and supplies the email address for everyone in the department.
So, what I want to do is make a link or button for each group that when it is clicked on will open a new email via outlook with all of the addresses in the appropriate range in the To: field.
Example:
Cell: A1 is the heading
Cell: A2 is the link/button you would click on
Range: A3:A255 would contain the addresses.
One other thing, I'm not positive if this is an issue or not...The script might need to add the customary semicolon and space after each address added to the To: field...As needed when using multiple addresses in Outlook.
View 9 Replies
View Related
Jul 23, 2009
I have some code that will parse the FIRST IP address it finds in a string. Could someone help with the code for continuing through the remaining part of the string and parsing out any additional IP addresses it finds and concatenating them with a comma and space (", ")?
There are specific rules for validating a "proper" IP, but for the purposes of my work, I don't need to validate. I found the following code on a google group (thanks Jeff M). All it does is parse the numeric text surrounding the 3 periods that all valid IPv4 addresses contain. For my purposes, it works ....
View 9 Replies
View Related
Jul 12, 2007
I'm just now working on what appears to be a Macbook (never used Macs before) and I'm working on an Excel file for my job that is going to be pretty tedious for me unless I can come up with some form of automation (a macro).
Here's what I have to do. Every hyperlink in this excel file has the wrong address connected to it (don't ask). The basic problem is that every hyperlink goes [url] when they should all be [url]or something like that.
Now the good part is that I don't have to put the full [url]because since the Macbook is connected to the server that these links are linking to, I just need to say "folder/file" and the rest behind it is added automatically. THe problem is that I have no way to go to each and every hyperlink and just delete the [url] part.
I've tried using the macro recorder, doing this change to a single cell, then running it on other cells, but it doesn't work and I get errors. I have some programming knowledge, so I tried to go into the VB Script editor to edit the macro myself to my liking, but I don't know VB very well and it'd take me a while to learn it, on top of learning Excel's libraries.
So could anyone write up a quick macro for me that will go through every cell with a hyperlink and delete that [url] part of the address or teach me how do it?
View 9 Replies
View Related
Nov 19, 2009
I'm trying to figure out a way to get my invoice templates to copy the names and addresses from them to another worksheet to form a customer database if you will.
View 14 Replies
View Related
Apr 5, 2009
I'm a primary school class representative and I want to create an excel contact list of the parents email addresses so that I can click a button, it will open the default email (in my case MS Outlook) and then populate the "To" email address field with the email addresses (separated by a comma).
Can anyone provide me the VB code that I can paste into my worksheet VBA that will look at a range of cells (say E2:E30) that contain email addresses, and put them in the "To" field of a blank email?
I have put a button on the page and it's called "EmailButton" but I don't know what VB to put with it. I'm using MSExcel 2007 (at home) and 2003 (at work)
View 7 Replies
View Related
Mar 7, 2013
I have a list of email addresses in the range K10:K33, (one address per row).
How can I use that range as the 'To' field of an email address, putting a ';' between each name?
This is what I am using at the moment but I want to amend it to do the above;
Code:
Sub Mail_Selection_Range_Outlook_Body1()
Dim rng As Range
Dim OutApp As Object
[Code]....
View 2 Replies
View Related
Jul 3, 2013
I was planning to transpose this sample data into the output designated below.
Original sample: (There is an empty row after every 4 entries)
Name: xxx
Email: xxx
Phone Number: xxx
Address: xxx
[Code].....
View 9 Replies
View Related
Feb 25, 2013
I have a document which is full of HTML code. Please find attached. I have copied the information into an excel document and I need to find Twitter addresses i.e @test123 and place these in a separate column.
If i make a search there 190 of these addresses.
View 1 Replies
View Related
Jan 6, 2009
My vb code works well for sending worksheets to multiple recipients (about 400 rows) IF I have only one email address in a cell, however, I have some rows that have more than one email address (eg. bob@hotmail.com, dan@gmail.com). I've spent hours researching a clean way to do this and I think I need to be able to extract each of them and assign them to a variable to use in an array???
I'm using Lotus Notes 6.5 and Excel 2003.
'Here is where I get the email address to put in the mailAddress variable
Workbooks("GSA Mileage Report.xls").Activate
mailAddress = ""
On Error Resume Next
mailAddress = Application.WorksheetFunction. _
VLookup(EmailAddrSheet.Cells(RowNum, 1).Value, _
Worksheets("MailInfo").Range("A1:B" & _
Worksheets("MailInfo").Rows.Count), 2, False)
On Error GoTo 0
View 10 Replies
View Related
Jun 12, 2014
I need to back up files, which may be excel or MSword, by copying them from different directories, say C: to the backup directory, say X:. any vba to backup the files? I expect the vba can copy all file listed in column A.
E.g. C: est1File1.xls or C: est2File2.doc, and then pasted to the directory in column B. e.g. X:BackupFolder1 or X:BackupFolder2.
View 1 Replies
View Related
Dec 21, 2007
I have a excel file that I enter information into. I have code that saves the files to a certain folder with the name, date, and time stamp for the file name. At the end of the day I might have 3 to 15 excel files I have created that day and I would like to take information from certain cells (examle: L3, B6, B7, B8, G8, and so on) and create a txt file with all of the information in it.
Example:
12/20/2007
Your Name
123 Somewhere St.
Here, OH 45111
Home Visit
12/20/2007
Someone Else
345 Anywhere St.
There, OH 45211
Hospital Visit
View 9 Replies
View Related
Jan 29, 2008
I'm attempting to import around 200 (and growing!) separate text files into Excel. I am using the formula below to import the text file and then using a separate macro to select the information I need, copy it into another spreadsheet, and then run the import macro again.
However, I have a problem in that my import macro gives me 'Run-time error '1004:
Application defined or user defined error''. At first this wasn't a problem as the information is pasted into the spreadsheet despite the error anyway. However, now that I am looping the macro it is obviously causing more problems as it prevents the loop. I would really appreciate it if anyone knows of a work-around or can spot an error in the coding to resolve this!
The code below shows is for the import macro only:
Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
View 8 Replies
View Related
Sep 26, 2007
I have about 100 Excel files in one folder that need to be saved as text files. They can keep the same name, but simply need to be converted to text files. I'd like to use VBA for this and I can't find examples that do exactly that...or ones that my limited knowledge can handle.
Excel files exist in C:Source and ALL of them should be saved as text files in C:Destination. Maybe there is an easier way, but I thought for sure there was a routine I could use.
View 4 Replies
View Related
