Transfer Macro With File Name Changes
Jan 19, 2008
I have a macro that transfers data from one workbook to another, this works fine, however the problem I have is that one of the files has the name changed frequently to another name, so each time i run the macro I have to change the original file name to the revised file name.
here is a copy of the macro
Dim NextRow As Long, Isht As Worksheet, Lsht As Worksheet
Application.ScreenUpdating = False
Set Isht = Workbooks("RMG Daily.xls").Worksheets("Retail Team 1")
Set Lsht = Workbooks("Weekly Monthly YTD Scores.xls").Worksheets("Raw Data")
NextRow = Lsht.Cells(Rows.Count, 2).End(xlUp).Row + 1 'next empty row in col A
the "RMG daily.xls" is the file change is used as a template but then saved as ie "010108.xls"
rather than me editing the macro each time I need to create a pop up box that will allow user to type in file name for the transfer - this will then link in with this part of my VBA code
"Set Isht = Workbooks("RMG Daily.xls").Worksheets("Retail Team 1") to instantly recognise where my data is being transferred from.
View 9 Replies
ADVERTISEMENT
May 17, 2007
As my data in the txt file has grown so has the time for the code to write back in into a workbook sheet line by line
Open LogFileName For Input Access Read Shared As #FileNum
While Not EOF(1)
Line Input #1, WholeLine
WholeLine = Mid(Trim(WholeLine), 2, Len(Trim(WholeLine)) - 2)
my_array = Split(WholeLine, ";")
Sheets("Text"). Range(Cells(x, 1), Cells(x, UBound(my_array) + 1)).Value = my_array
x = x + 1
Wend
Close #1
Is there a syntax for the whole txt file to be transfered?
View 9 Replies
View Related
Apr 8, 2014
That probably was not the best title, but here is my dilemma. I have one file that has about 10,000 records in it and I would like to place the information in the records into a new file, under different fields.
Is there a wizard or script I can use to identify what the equivalent fields between the two files and have it transfer all the records over to populate that new file in that format that I specified?
View 4 Replies
View Related
Feb 10, 2010
I have a data in excel sheet which I would like to convert into a text file. In the text file, the data format should be with the brackets and comma separated.
For example:
In excel sheet:
12 2 45 25
23 1 35 50
24 1 21 23
In text file the same data should be in the following format:
(12,2,45)[25]
(23,1,35)[50]
(24,1,21)[23]
The above is for one data set . In other data set, the brackets may change places for example: (1,23)[12,34,56]
View 4 Replies
View Related
Jun 15, 2006
I have Workbook1 that I need to update from another Workbook2 in a different location on the network. Workbook2 is read only. Workbook2 is generated automatically with a name like "product 06-14.xls". Now my problem is that, since it get created automatically, the next day it will create a new workbook with a new name "product 06-15.xls" leaving the old file in the same directory for future reference.
I need to update a cell with the new current date up to the completion of the month plus the beginning of the next month to make it a complete month, so a completed month will be from 05-01-2006 to 06-1-2006 because the last day of the month doesn't get recorded until next day. What I have problems with is the looping to go to the next day until the beginning of the next. Then stop and start again on a new cell inputting the new month.
April-06 ---- 5,907
May-06 ----- 4,954
June-06 ------ 524
July-06 ----
This is what I have so far.
[PHP]
Sub GetData()
Dim Cel As Range
Dim Row As Long
Dim Col As Long
'Turn off ScreenUpdating for faster macro runtime so screen won't flash while running.................
View 4 Replies
View Related
Jun 1, 2009
i have the following macro which transfers credit control data from an outstanding tab to a paid tab:
View 9 Replies
View Related
Mar 6, 2014
I have a form to fill out and I would like a macro to input the data on the form (column) to another sheet in the next open row.
See attached. DATA_EXAMPLE.xlsm
View 4 Replies
View Related
Dec 16, 2008
I have some values in Range F2, F26 ,F48 and so on.
I need to transfer these values using a macro to
C8776
C8777
C8778 and so on.
Since there are a lot values , I would like to have a macro for this operation;
View 5 Replies
View Related
Jul 10, 2009
I am wanting to create a spreadsheet for my stationary orders with some macro's and I have no idea on how to set this up. All the product information will be in Sheet 1 and the Order Form will be in Sheet 2 of the document.
In "sheet 1" we will make a list of all items that get ordered on a regular basis. This can be up to 500 items but
I have given you an example of 6 to play with.
We need the "QTY", "Unit Price" & "Total" in both "Sheet 1" and "Sheet 2" to sum up with a formula
Once the user has chosen the line item they will click on the "add" button next to the line item.
This will inturn take that particular line item and insert only the "Code", "Product", "Unit Price" & "Total" columns in "Sheet 2"
and leaving out the "Page Number", "Item Number" & "Description" & "QTY" fields to Sheet 2 (Order Form)
The user will manually change the "QTY" field on the "Sheet 2" (Order Form)
When the user selects another product and clicks "add" then this new line item will be added below the first line item
on Sheet2 (Order form) and so on.
We will probably only be ordering 10 - 50 items each time so we wont need a huge list on the order form (Sheet 2)
View 9 Replies
View Related
Jul 12, 2013
I'm having trouble with this macro I'm trying to write. I have a worksheet that's subtotaled like this:
Cash 100,000
Land 65,000
Equipment 104,000
Kroger Foods Total 269,000
Cash 200,000
Buildings 25,000
Equipment 25,000
Prepaid Rent 50,000
Whole Foods Total 300,000
The data is obviously just an example, but that's how it's set up (a subtotaled worksheet with three columns). My issue is that I need to write a macro to copy these numbers in column 2 (ex. land - $65,000) and paste them in a cell in another worksheet that finds the particular cell to paste it in based off column 1 and column 2.
For instance:
Cash Equipment Land Prepaid Rent
Whole Foods
Kroger
Essentially, I'm trying to find a way to copy the totals in column three and paste them into a cell in a certain row (based on column 1), and column (based on column 2). I'm pretty lost, and I just need some guidance as to how to tackle this. So far my code sets column 1 and 2 as strings and sets the columns in the second worksheet to these strings, and from there I'm lost
View 7 Replies
View Related
May 26, 2009
I need a macro for a command button to perform the following:
If B8 is the active cell and I click the command button,
transfer value from:
B3 to B8
D3 to D8
E3 to E8
F3 to F8
G3 to G8
H3 to H8
I3 to I8
Likewise, if B9 is the active cell and I click the command button,
transfer value from:
B3 to B9
D3 to D9
E3 to E9..........
View 9 Replies
View Related
Dec 8, 2006
Two macros have been developed in order to write entries to a sheet called Detention Register from another sheet named Database.
The first macro (AutofilterDatabase1) filters for two criteria in the Database sheet: 1. All dates 7 or more days prior to today's date (5th field called rDate) & 2. The smallest positive value for a person in field 10 (called rSmallest).
Once these filters have been applied a second macro (named WriteDetentionRegister) is supposed to write the filtered entries to a sheet called Detention Register. However, if no enties at all are found by the filter it writes all entries to the Detention Register. Is there any way of stopping the writing process if no entries at all are found after the filtering process?
I'd also prefer it if after the writing process (or not as the case may be) that all autofilters were returned to displaying 'All' data in the Database sheet for fields 5 and 10. Is this an easy tweak to make to the existing code?
I enclose the code of the 2 macros.
Sub AutoFilterDataBase1()
Application. ScreenUpdating = False
'Get today and convert to serial value, subtracting 7 days
d = CLng(Date) - 7
DBase.Activate
DBase.AutoFilterMode = False ......................
View 9 Replies
View Related
Mar 5, 2014
I'm building a report and need to transfer data to a History Tab each time the macro is run.
"Report" Tab contains data to be transferred: C6:F6 to the "Historical" tab B:E in the appropriate date row.
The Date would be found from the Oldest date (furthest into the past) on the "Calculations" sheet, Column U.
View 3 Replies
View Related
Oct 23, 2008
I have a s/s encompassing over 350,000 rows.
Data consists of a series of ranges from columns A:N and rows varying in number between 3 and 30.
There are two blank lines between each range of data.
Each range is (with exception) numerically ordered down column H (e.g, 1, 2, 3, etc).
Problem: there are around 1100 occasions when a range contains a row of data which is to be disqualified from consideration. On these occasions the data always appears in the top row of the range and is identifiable in column H by the nine codes 111, 222, 333, 444, 555, 666, 777, 888, and 999).
I wish to find a macro which will :
1. where the top row of a range in column H is one of the codes 111 to 999, transfer that row of data to the bottom of the range.
2. delete the now empty top row from which the transfer was made from.
3. insert a new blank row at the bottom of the range below the row which the data was transferred to (in order to maintain the two blank rows above and below each range).
View 12 Replies
View Related
Jan 9, 2013
I am now on my third attempt to perform a fairly basic task of transferring data keyed to a separate log. I originally started with a user form transferring to a separate work book however this was not practical. I then had a values keyed into a worksheet being transferred to a separate workbook however network issues mean this data keeps being lost.
I am now trying to simply transfer data keyed in one worksheet to the next available line in a different worksheet in the same workbook.
Here is my code that I have chopped and mashed together from my previous versions.
The sheet the data is be keyed into is called Key and the sheet where the data is to be sent is called log. I would also like the values in the Key sheet to cleared once transferred:
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Log")
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
ws.Cells(iRow, 1).Value = Key.Range("E7")
Key.Range("e7").Value=""""
End Sub
View 9 Replies
View Related
Dec 4, 2006
I'm looking to build a macro which will automatically transfer a line of text from one worksheet to another within the same workbook. Once the macro has been run, the text in the original sheet should disappear and re-appear in the other worksheet. It should appear in the same column, but different line from the original.
View 9 Replies
View Related
Sep 15, 2008
I have been given the following code to transfer data from multiple workbooks within folders and subfolders to retreive the same line of data from each of the workbooks and place them in a master workbook.
the folders are set up as follows,
there is a main folder, (a yearly folder)
within this are 12 monthly folders (named January to December)
within these are four weekly folders (named week 1 -week 4)
contained within these weekly folders are the workbooks that i wish to copy data from.
for example a1 - k1
the code i am using transfers the file names but comes up with #REF! instead of transfering the data
Here is the
View 9 Replies
View Related
Jul 16, 2014
I am currently working on a workbook to have employees fill in data on what tasks they compelted for the day, and how long it took. There are 5 colums (for this purpose) Task, Description, Time, Required to complete, Completed. The tasks are predefined and listed out in each row. There is also a space for employees to select the date they are entering the data for.
I would like to have a macro that is linked to a submit button and when pressed populates this data into a database on another sheet. This database is split into two sheets (1 with time and one with tasks required/compelted). Each sheet has the list of tasks going down a cloum on the left, and dates along a row on the top. When the employee presses submit I would like this data to popuplate in the coresponding date and task fields and then reset the form on sheet 1 to all 0's.
View 1 Replies
View Related
Dec 18, 2012
I have a template file for ordering trafolyte and steel plates. I have added macros to this template file. The existing macros do the following (shortly described):
Macro 1: clears order
Macro 2: update order date + send a read only file to the supplier of plates + save a read only copy of the file into one of three folders acc to info in one of the cells.
It's the Macro 2 I want to edit.
I want to add a "function" which copy a selection of data.column A to N from row 12 to 548 but only the rows where there is a value in column A.
Row 1 to 11 includes standard order info and Macro buttons.
Row 11 includes the heading for order data.
For everytime someone click on the Macro 2 button in the template file, I want the selection to be paste into the first "available" row in a "Total list" file.
The "Total list" file may have to be open (or a function to open, paste selection and then close the "Total list" file may be added)
File and Folder info:
To simplify suggestions, the following file and path info can be used (I can change to the correct later):
Template file name: template_order.xlsm
Template file location: \servershared emplate
Total list file name: total_list.xlsx
Total list file location: \servershared otal
Selection info:
The template file exists of a "general order info area" A1:N10
The column heading for order data is located at A11:N11
The selection to be copied is A12:N550 - But only rows where column A includes data (not empty).
(If the spesific order consists of 14 plates than there will be item no 1-14 in column A and I then I want to copy A12:N25 (row 25 will be item 14).
When I try to use record macro it looks like it only records what's happening in the template file - It doesn't record the pasting in the total list.
View 1 Replies
View Related
Feb 23, 2014
I have a requirement to download a lot of historical data files from the archieve of an website. The url goes something like this: [URL]....
This downloads file for 21022014 ie. 21-Feb-2014. I need to be able to have a facility to have a selection criteria on my user form (in excel) where I specify a date range and the macro automatically downloads all the valid excel files available within that date range (files for Saturday, Sunday and some holiday dates will not be available in the website archive database) one after the other (like at single clcik of button) into a specific location (predefined viz.. c:/Users/EOD files/) on my laptop. Best would be if I am able to select the save location run time by using a 'Browse' like feature where I go and choose my local laptop folder...same type when we try uploading a file from our laptop to the web..
View 1 Replies
View Related
Jul 7, 2008
I am setting up a "save as" macro that saves a file by replacing another file in a folder. Even though the macro has been recorded by approving the replacement (the prompt appears "the file --- already exists. Do you want to replace the existing file?"), when I run the macro, I am again prompted about replacing the file. Is it possible to avoid the prompt so the file is automatically saved by replacing the named file?
View 9 Replies
View Related
Feb 8, 2013
I do routine tasks every day which involves opening 3 different files and pasting data into my main file. The data is always in the same format, and the 3 files are saved in the same location (3 different folders through). The 3 files are saved each day and the naming convention is constant, with only the date changing. For example, the files are always saved in C:My Documents and the files are called test_05.02.2013.xls. Tomorrow the file will be called test_06.02.2013.xls and so on.
So each day I will be rolling a file forward and I want to bring in the info from each of these files based on the new day.
How to do 1, and I will do the others (because the concept will be the same).
View 1 Replies
View Related
Mar 14, 2014
I have a macro which successully saves a worksheet as new file to another file path....(below)...but I can't figure out how to close this new file and return to the original file...
Dim myPath As String, fName As String
myPath = Sheets("Date").Range("C8").Text
fName = Sheets("Date").Range("C9").Text
Sheets("Sage CSV File").Copy
With ActiveWorkbook
.SaveAs Filename:=myPath & fName
End With'
View 2 Replies
View Related
Jun 24, 2006
I have a base excel file for summarizing some data, the problem is that the data comes from a different excel spreadsheet. What I want to do is make a function that pulls the data from another spreadsheet into my base file. It would be easy if it were just one excel sheet, but this job would require where the data is pulled from a data file which has many modified versions.
Can anyone tell me how to do this? The files with the data will be structured the exact same but with different data entered in. I just want a button so I can click the file I want the data from and have it show up on my summarizing base file.
View 9 Replies
View Related
Feb 21, 2014
I need to set up an automated process to open an existing .xls file, extract the data from specific cells located in that file and insert it into a totally different file that I have preformatted to accept this data.
Example scenario:
If I have "that_file.xls" and it is unopened, but it contains data in cells "A2 thru F2" that I need to extract... then I have "this_file.xls" , which is open, and set up with all my calculation cells and a specific layout (lets say it has cells "D8, E9, F10, G11, H12, and I13"). I want to be able to add a button to "this_file.xls" to run a macro that would open a file search window where I can select "that_file.xls", and then it will automatically extract the data from "that_file.xls" into "this_file.xls" as follows:
A2 to D8
B2 to E9
C2 to F10
D2 to G11
E2 to H12
F2 to I13
View 4 Replies
View Related
Mar 6, 2012
I want to create a macro that will select all the worksheets (names and quantity will vary) and saves the file as the current file's name but in PDF. Since I only know how to record a macro it specifies the worksheet names but I need it for various workbooks. The name will vary plus the number of tabs can go anywhere from 3 to 40.
View 9 Replies
View Related
Mar 7, 2012
I am receiving an error at
Set CopyRng = Wkb.worksheet1.Range(Cells(RowofCopyworksheet, 1),
Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))
I am trying to copy the first sheet in each file in the designated folder and paste it into a master worksheet.
Below is the code.
'Description: Combines all files in a specific folder to Format File for Upload.xls
Sub MergeMultipleFiles()
Dim path As String, ThisWB As String, lngFilecounter As Long
Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
Dim filename As String, Wkb As Workbook
Dim CopyRng As Range, Dest As Range
Dim RowofCopySheet As Integer
[Code] ....
View 1 Replies
View Related
Oct 11, 2006
I presently have a macro that, when run, takes to conents of C4 and C6 and saves a new version of the file being worked on into a folder on my desktop. I love the macro with the exception of one part: I don't want to be prompted to overwrite the file if it already exists. How can I change this macro so that, when pressed, it overwrites the file without prompting the user and waiting for their answer?
Here is the current
Sub SaveIt() ...
View 3 Replies
View Related
Feb 2, 2007
When it opens the desired file, it increments the file name by 1 each time it is opened (via the macro).
Example;
The first time it is opened you see the file name in the header read "P'Binder L&T Pages" for a moment, then it changes to "P'Binder L&T Pages1"...
I close the file and open it again (via the macro), and see the file name in the header read "P'Binder L&T Pages" for a moment, then it changes to "P'Binder L&T Pages2"...
The file name continues to increment on every opening until the PC is rebooted, then it starts at 1 again.
Sub OpnLTpages()
Dim wb As Workbook
Dim AlreadyOpen As Boolean
AlreadyOpen = False
For Each wb In Workbooks 'Scan open workbooks
If wb.Name = "P'Binder L&T Pages.xls" Then ........................
View 9 Replies
View Related
Feb 23, 2014
I have data in 2 different workbooks, and I need to transfer all data in 'Jx_ex1' to sheet1 in the 'template' workbook, and all data in 'Gr_ex1' to sheet2 in 'template' workbook. All data should be transferred to the same cell numbers, from A1 to Y5000. I actually have loads of workbooks to transfer to the template but if I have an example with the two then im sure I can work out how to modify it. All files will be in the same folder.
View 8 Replies
View Related
