I have a directory folder with an active workbook and another workbook id like to copy data from. The Following macro opens up a file in the same directory, copies some data and pastes it in the active workbook. However with this code I have to specify the filename, 'Data.xlsm' in the example code. I would like it to copy data from the only other workbook in the current directory WITHOUT having to specify the name in the code, so just opening it up no matter what filename it has.
In addition I would like to extract the filename from the workbook im copying data from and paste it into the activewoorkbook in sheet 1 Cell A1. I had a look at getopenfilename function but cant seem to make it work for my purpose.
i have file A3R-(345).xls, B1Z-(235).xls etc files inside folder called MyFolder.
another master file Master.xls which will extract data from files inside folder MyFolder.
what i need is to put values from file names inside Master.xls. It will loop through all files inside that folder and extract the numbers between (). So column A in Master file will have: 345 235 ..
How to do this using VBA? (only Master File should have the VBA code)
Out of this file name it consist of the serial number (F30C3105E00) of the equipment which is the first set off italics/bold and time(08_39) and date (2013_09_10) this test was performed.
So My question is there a way or a vbs macro or anything that will be extract these three different information and save them in three different cells on the spreadsheet. BTW Also I should mention that these files are going to be stored on a network drive
PS- The only way I have figured out to do this is to create a .bat file that runs the dir command and saves it to a text file.
I have a list of file names in an excel sheet. The requirement is to find the extension of each file in the next column. For example file name 123.456.789.jpg extension jpg
file name 123.abcd.789.xlam extension xlam
is there a worksheet function equal to InStrRev in vba?
I have a macro that lists all documents in a selected folder and am looking to add the author/owner, created on date, last saved date as shown in the document properties.
I have been trying something like this before, i could not get it fixed. Let's give it another go:
I have a number of files in a specific folder. I need to extract values from cell Sheet1!G42 out of [b]every file[b] in this folder. Problem that occurs, is that I do not know how many files are in this folder, neighter do I know what the filenames are. I need some magic to perform extraction of the desired values.
As for the files in the specified folder I have this VBA code, that suits my needs just fine:
Private Sub Workbook_Open() Dim fileList() As String Dim fName As String Dim fPath As String Dim I As Integer
This code will display all found files, including their path in column AD. (as plain text) [b]Question that remains:[b] how am I to fix a formula In (column AE) that will extract the value found in Sheet1!G42 of each file? This must be very easy, but i can’t get this to work….
I have a file from PubMed with a bunch of citations in it, which often go above 10,000. There are fields that mean certain things and I would like to be able to import the text file into Excel and parse certain fields into columns.
The text file looks like this:
PMID- 19782657 OWN - NLM STAT- In-Process DA - 20091109 IS - 1872-6240 (Electronic) VI - 1303 .......
I've got a host of files within a host of directories, e.g:
c:ContractsJim BobJim Bob Site.xls c:ContractsJane JonesJane Jones Place.xls c:ContractsJeremy HillsHills House Lvl 1.xls
I'm working in VBA to try to extract the site name from the file string. Unfortunately there is no other reliable location where I can find an accurate name of the site, so it needs to be taken from the second subdirectory. So I'm using the following code to get the file location:
Sub FilePicker(fileToOpen As String) ChDrive "C:" ChDir "C:Contracts" fileToOpen = Application. GetOpenFilename(FileFilter:="PPM Files (*.xls),_ *.xls", Title:="Select a PPM Scope File", MultiSelect:=False) End Sub
This returns a string along the lines of "c:ContractsJeremy HillsHills House Lvl 1.xls". From this string, I need to isolate the string "Jeremy Hills".
Below Macro which I am using to extract .PDF files. Now, I also want to see the Date moified while extracting the .PDF files. Hence, adding date modified to this macro.
Sub get_pdf_name() Dim FR As Long, sh As String, FPath As String, FName As String sh = Sheets("Sheet2").Name FR = Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row + 1
10/05/0808:30:00 AMValid Card EntryLamDoor 1 10/05/0808:31:00 AMDoor Leave Open Door 1 10/05/0808:32:00 AMDoor Closed Door 1 10/05/0808:41:00 AMValid Card Exit Yap Door 1 10/05/0808:46:00 AMValid Card Exit Lam Door 2 10/05/0809:14:00 AMValid Card EntryLam Door 2 10/05/0810:18:00 AMValid Card Exit Lam Door 2 10/05/0810:19:00 AMValid Card Entry Yap Door 1 10/05/0810:40:00 AMValid Card Exit Yap Door 1 10/05/0810:42:00 AMValid Card EntryLamDoor 2 11/05/0808:30:00 AMValid Card EntryLamDoor 2 11/05/0808:20:00 AMValid Card EntryYapDoor 1 11/05/0810:20:00 AMValid Card Exit Lam Door 1 11/05/0811:40:00 AMValid Card Exit Yap Door 1
the above is the data i need to work with (dates are in dd/mm/yy). i need to find a way (a macro, preferably) to extract the date and time corresponding to one person, and paste it into a new sheet, e.g. at sheet 2 (renamed to "lam") should be
10/05/0808:30:00 AM 11/05/0808:30:00 AM 10/05/0808:46:00 AM 11/05/0810:20:00 AM 10/05/0809:14:00 AM 10/05/0810:18:00 AM 10/05/0810:42:00 AM
I have a spreadsheet full of data and I need to extract only those lines of data which can be identified by the last three letters in a cell. I am adding an example spreadsheet which highlights the rows I am trying to extract based on the contents in column B but only where column B ends in KY.
I have two exported lists of data to compare from my newsletter program. One is the list of email addresses that I sent the newsletter to and the other is a list of the bounced email addresses.
Question: How can I extract the bounced emails from the list of sent email addresses? In other words I want a list of clean, sendable email addresses.
I have a blank file and a data file for current year with formulas.
So I am trying to take a couple of tabs from current year data file and pasting them into the blank file.
My question when is do that all the formulas get referenced to the current years file. i want to keep the same formulas but reference the tabs on blank file.
Is there a quicker way to do this rather and going into all the cells and changing reference from current years files data to blank files data.
I looked at the source code of the website and realized that if you notice (above) that the variables listed in the link (i.e year, month, day) are exactly what i need to change in order to get the data for a specific date. how can I accomplish this using VBA. so say I have in on an excel sheet year in column A, month in column B, and days in column C (time interval is constant so we don't have to worry about stime and etime). and i run the macro and it loops through each row taking year,month,day for all rows and saving the data as .csv or xls files?
I have created a table of data with Serial No, Name, Age & Common Friends field. Now i need to extract all the data (complete Row item) where the condition matches a certain criteria. Basically a formula or function which will say what are the names of people along with all other corresponding fields (Age & Common friends) who have common friends as "Jill" or "Jack" (For example). Note : I cannot use filter option and copy/paste the filtered data in new sheet as i am working with thousands of data items. Due to the nature of report software/data extraction report, multiple data items appear in single cell only (Multiple friends name appear in single cell).
I have a problem with VLOOKUP not extracting the data I need from 1 workbook.
I want to populate 4 different sheets in the "108" workbook with data from the "1st" workbook. I've uploaded the workbooks to show the formulas I have already. The data in "1st" workbook changes daily and can have upwards of 2000 rows. I've simplified the list for the example.
In the "108" workbook I want to fill in the first three columns with the formula down to about row 500.
I've tried different formulas to do this using EXACT, MATCH, and VLOOKUP but to no avail.
I have a table of data on 20 employee performance stats for my department. It is in the format of col A names and corresponding values for multiple skills and performance data from Col B to M in rows. I have a worksheet for each employee within the workbook. What I would like to do is to be able to extract the individual row of data to each employee sheet. I have played with OFFSET but can't get it to work other than in a column..
I have table that has a list of agents (Colum B) and then corresponding appraisal dates; 3 Month (Colum C), 6 month (Colum D) and annual (Colum e).
What I would like to be able to do it to have something that looks at the table and tells me all the 'appraisals' that are due the same month we are in, and the date that it is due, as well as the 'agent' that is due the apprisal.
I have played with the INDEX MATCH formulas and also pivot tables but have not found a solution, is it something that is going to require VBA or is there a simpler solution?
Let's say 1 Feb starts on week 5, 1 Mar starts on week 9 and 1 Apr starts on week 14. As such, feb has 4 weeks and march has 5 weeks. I have a spreadsheet of data on a weekly basis, and i want the data from week 5 to week 8 to be under feb and data from week 9 to week 13 to be under march. The data is to make a graph. Is is possible for excel to be linked to the calander so as to detect which month has 4 weeks and which month has 5, depending on the 1st of each month?
I have many company-specific Excel files containing given data fields such as company name, company address, commodities supplied, etc. An example is attached here under the tab "Company Profile". I would like to extract all the information from the different "Company Profile" Excel files and put it into a more usable format, as shown in the attached tab "Results," where the company data runs horizontally across.
I tried to record a macro to do this ("CompanyProfile" -- included in the attached file), but I am not able to make it do what I want it to do. I also do not know how I may be able to capture the information in the "check boxes."
In one cell i have a dropdown. Depending on what is in that dropdown, i want a table of data to be written. I'm not too hot with pivot tables but my understanding is that is predominantly to do with counts. This is more of a multiple vlookup i guess. I want to pull from a list of data (3), all the cases matching the dropdown (1) and deposit into a list (2). What is the best way of doing this? I don't want to use filters. See attached.
I am using INDEX functions to extract up to 2 items of data which I now need to extend to upto 6 items.
The spreadsheet shows a list of staff initials and a day by day work rota of (M)ornings, (A)fternoons, (N)ights and (O)ffs. What I am needing to do is to identify only those staff who are rosterred Off and to place those intials in the two sets of colored cells in rows 5 and 7.
The attached spreadsheet, Tester1.xls shows the 2 existing INDEX functions in use. These can only detect the first occurrance of "O" and the next. I now need to be able to extend this functionality to cover all "O"'s in both section 1 and section 2. So, eg if 12 Aug is input to B15, I can only select IB and GG, but I now want to be able to see MG in the next blue cell.
how I can extract data from a non-linear line graph to be used in a calculation. The graph will be made based on user input data and the values to be obtained will not be entered, but read off the graph. Again, it is non-linear, and while it could be log-normal data, it may not be any particular function. Basically, I want the program to read off an x-value for a particular set of defined y-values.