Macro To Copy Data From One To Another Sharepoint File
Apr 16, 2014
I created a macro on an excel file on my local PC that opens another excel file on my local PC and copies some data from file 2 and pastes that data in file 1. In file 1 have a Path and File Name that the Macro uses to get Open File 2 from. This works Great on my local PC!! However, I need to move this to a SharePoint. When I did I tried to change the Path and File name to the ones from the URL generated by SharePoint Send Link. No Luck, then tried to change the 20% replace for spaces. Still no luck. Do I need to use some other method of opening a file that is on SharePoint vs Local PC?
I have recorded the below code that functions fine from my computer. My issue is that I need to export/import this macro to other workstations who may have the save to location mapped to a different drive letter. Is there a way to replace the drive letter with the URL (SharePoint)?
ChDir "E:3. CRQsRemedy Dumps" ActiveWorkbook.SaveAs Filename:="E:3. CRQsRemedy DumpsToday_CRQ_8Dump.xls" _ , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Save To Directory: \server_1Dir_1Dir_2FolderToday_CRQ_8Dump.xls Permissions are in place.
I'm working with a file from SharePoint (FileA), "FileA" goes out to Sharepoint and opens "FileB" (if not already open) then copies information from "FileA" to "FileB". However if "FileA" is left open, or someone else has it open I am unable to open "FileA". How in VBA can I check to ensure I don't have it open locally (if so swich and continue), checkout and open in SharePoint (if not already open) or Prompt with options to force checkin, checkout to copy info?
I am trying write code withVBA to save separate file in a different folder with Loop.
Write a code with "loop" till it finds empty cell in the column and for every change in number a separate file needs to be saved in specified folder with file name as "10010, 10011,10012... and so on with data copied in the file saved.
I have an Excel workbook that has a data connection to a Sharepoint List. I have 4 columns showing the quaterly status of a project. I want to apply conditional formatting based on the value in the column. I have 5 possible choices so I have to use VBA code to accomplish this because of the limit of 3 option in Excel. I am using this
Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Set rng = Intersect(Target, Range("X:AA")) If rng Is Nothing Then Exit Sub Else Dim cl As Range For Each cl In rng Select Case cl.Text Case "1" cl.Interior.ColorIndex = 4 Case "2" cl.Interior.ColorIndex = 6 Case "3" cl.Interior.ColorIndex = 3 Case "4"...............................
This is a sample of the data with which I am working. I know that a macro can do what I need, but I am only versed in Excel formulas and not that much programming. I need to be able to first sort the data by Column C ("Element Type"), then by Columns E, F, G ("Year", "Month", "Day"). Then, I need to be able to copy all rows that have the same "Element Type" and "Year" to a new file, using the same header from the original spreadsheet on each new spreadsheet - doing this multiple times until the end of the file is reached.
Ideally, the new files would have a strict naming convention: XXXXXX-ZZZZ (YYYY).xls, where the X's are the value of the "COOP Station ID" in Column A, the Z's are the "Element Type" from Column C, and the Y's are the "Year" from Column E. If this theoretical macro were run with the Sample Data file I provided, it should result in the creation of five new workbooks. Is there a way to write a macro to do this, or at least something similar
I already have code that I believe is supposed to do what I'm trying to accomplish. However, it doesn't fully work. The Macro is below:
VB: Workbooks.Open Filename:="C:Documents and Settingsplp138DesktopExample 1.xls" On Error Resume Next With Workbooks("Example 2.xls")[code]....
Basically, what I'm trying to accomplish is to have a certain range from one file copied, and pasted in the next available (empty) row of another file. While debugging I see that everything is working except for the actual pasting.
I have csv files auto generated (with date stamp in name) and saved in a specific folder everyday. I need to find a macro that will copy the row(s) every day and add to the next empty row in the master excel file. Some days the csv file may have a single row of data and on some other days it may have multiple rows of data to copy and paste.
Is there an easy way to automatically copy data from 1 Excel spreadsheet to another when the data is slightly out of order? Currently an admin copies and pastes from file 1 to file 2 manually. There are approximately 800 names to copy. It would be ideal to type a command or press a key and have file 2 updated automatically. Is there a feasible way to accomplish this without spending a lot of money or time?
file 1 file 2
john 100 john 100 june 200 lance 50 marie 150 june 75 stan 100 marie 125 phone 50 stan 200 hold 25
In the example above, if lance doesn't appear in file 1 his amount doesn't get copied and his 50 remains the same. The amounts do not get added, just pasted over from file 1 to file 2 with the days sales results. Only the names on file 2 get pasted over. Phone and hold amounts in file 1 are ignored.
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.
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
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.
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.
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
I have a macro which opens two different hyperlinks in excel. Opened workbooks have are named like 1.asp and 2.asp. Both contains only one spreedsheet. I need to copy these spreedsheets to the Workbook, from which they are opened.
I am continuing to struggle with my first attempt at a macro, and wonder if someone would mind taking a look to see where I have gone wrong? All I am trying to do is create file copying tool where the user can define the source and destination directory in workbook cells, and assign the macro to a button to complete the copy of all files from source to destination.
The macros do this:
Source and Location directory defined in Sub Archive1. These are passed to file copy macro Sub ArchiveScript. This macro checks for presence of destination directory, ensures that the directory backslash is in place, specfies the variables fn and fn2 to make sure the filecopy command copies all files in the directory, and then carries out the filecopy function itself.
However, I am getting two errors from the code that I can't figure out (I am still very much a beginner!)
- Invalid procedure call or element on fn = dir() at the bottom
- The copy still works, but only seems to copy one file from the source to the destination, and not all of them.
I am trying to automate a process that I do manually today. I have a specific folder that contains 4 .csv files. We will call them:
sheet1.csv sheet2.csv sheet3.csv sheet4.csv
They are the only format that ARS Remedy can export in. I wish to copy the contents of these four .csv files to unique tabs in an Excel workbook. The name of each tab should match the name of the .csv file that provided the data. For exmple sheet1 would contain all the data from sheet1.csv and so on... I'm just learning the ropes to VBA and I am running out of time to play around with this.
I need to copy data from File 1 to File 2. I need the macro to copy B5:B14 in file 1 and paste the data in file 2 under Column C. However the row it starts it depends on todays date (which is located in Column A). It would need to find tomorrow date in column A, move over to Column C and paste the data.
How in the heck do you get VBA to look and find the correct date, and paste the data 2 columns over?
I have a current macro that saves each sheet as their own file. The first 10-15 sheets are not really necessary, so I typically delete them once the macro has run. I am looking to add two things to my current code:
1. Add a tab called Start. Make the macro look for 'Start' tab and then just save each sheet to the right of that as its own file.
2. Save each sheet in the macro as just a copy/paste value. They current have a lot of links and it makes each file close to 3MB. That makes it incredibily difficult to paste all in one email.
Here is the current code:
Sub CreateWorkbooks() 'Creates an individual workbook for each worksheet in the active workbook. Dim wbDest As Workbook Dim wbSource As Workbook Dim sht As Object Dim strSavePath As String On Error GoTo ErrorHandler
My simple copy and paste macro copies data but while pasting it pastes data starting in cell A1 rather than A5. Code is as below. I thought of copying cell by cell but the problem is that this is only a very small part of code. Below code copies column C in source file and pastes into column A of destination file.
I would be doing about 50 of these columns transfers between two files and thought that copying cell by cell would take ages to run.
1) Can someone please help me resolving the above problem i.e pasting data in cell A5 rather than A1.
2) Secondly how can i add an OR to the autofilter criteria? for example below code filters based on criteria "CS"? what do i need to do to filter based on "CS" or "AS".
How do I create code that will copy and paste 30 rows of data
Copy from filename "Record1", worksheet name "CA3M", in column A and B, and Paste data in filename "Record2", worksheet name "CA3M"
- Column A 30 rows of data paste into A20:A49 of the new file and worksheet
- Column B 30 rows of data paste into E20:E49 of the new file and worksheet, prior to pasting these results remove all dashes "-" eg.0-0-1 = 001
The location of the 30 rows of data to be copied changes, so the code should always look for the following information in the row before and after the 30 rows to copy in column A and B:
- Find the 30 rows of data in Column A and B where the first row immediately follows the row with the cell result "Account Date" and the last row is immediately before the row with the cell result "Previous Page Page".
Also, I will probably have to update the code to repeat this function for several other worksheets within these 2 files after my database is completely built.
I am trying to set up a file name and path in a cell, and then use this from a number of other cells but with a cell location added to it. So for example:
cell A1 contains a file name "c:mydirectoryexcelfile.xls"
cell A2 needs to contain the contents of the cell at location K12 (for example) from the file referred to in A1 cell A3 needs to contain the contents of the cell at location K13 (for example) from the file referred to in A1
This is to save having to put the filename and cell reference in all of the of cells. I would then do the same thing with another file in column B of this file and the same with column C etc.