I currently have a piece of code that opens all of the files in a folder that are called "*agent*", opens them and copies information. Now, these files come with numbers at the beginning which, are always the same. I only want to open certain files that begin with, for example, 801, 802, 803, 804, 805 and 806. How would I write this into my code? As you can see from the below code, it now looks for the files that all have "agent" in the name, but this is opening files that have that name but are not the right ones. Here is my current macro...
I hope this isnt as simple as putting "MyFile = Dir(MyFolder & "*801*", "*802*")" etc.
Objective: use VB to copy the first sheet (tab) from every Excel file in a specific folder to a new sheet/tab (for each) in a master spreadsheet. I will then aggregate this data into a summary table.
Following the advice of an old thread (Access: VBA combining multiple excel files to 1 new sheet), one time for each file in the folder. So with three excel files in the folder, I get 3 new tabs in my master spreadsheet but all are copies of the first tab in the master spreadsheet.
I'm wondering if maybe the code, which was in a post from 5 years ago, needs to be "modernized" for Excel 2007. Thanks for any help.
This is the code I'm using:
Fpath = "C: emp2" ' change to suit your directory Fname = Dir(FilePth & "*.xls")
Do While Fname <> "" Workbooks.Open Fpath & Fname Sheets(1).Copy After:=Workbooks("Master.xlsm").Sheets(Workbooks("Master.xlsm").Sheets.Count) Workbooks(Fname).Close SaveChanges:=False Fname = Dir Loop
I have a master workbook that has been set up to mirror the structure of a single worksheet in various other workbooks saved in different directory locations. I need some VBA code to retreive specific data from a specified worksheet in multiple workbooks which are saved in different directories and then copy the data to the master workbook, listing each data set one after another. I do not want to open any of the source workbooks to acheive this.
I attach two example workbooks to better explain:
The code has to look in various sub directories to find the relevant workbooks, (Source1) then find the specified worksheet, (Stock) and copy only rows that have data from column B to O. The data needs to be copied to the master workbook, (master) from all the source workbooks as a list with no space.
I have excel data file where the code can split the data into different xls file on the basis of country for first sheet only.
execute the code so as to create single country wise files for all sheets. i.e. file consisting of data with sheet A1,B1,C1. The present code works only for sheet A1 and it creates different files with data related to that country. I was looking for the output file with B1 and C1 as well for that country. Also new output file needs to be renamed just as of original one.
That does allow me to filter the output in Master, but ideally what I would want to do is not have to set aside 300 lines in the Master file for each of the Staff files. Conceptually, I'd like to have the spreadsheets Staff A, Staff B, etc. look for and export only lines which have data in them and then have Master bring those lines in automatically. This may not be possible, in which case your suggested solution is the best approach.
I'm building an inventory report based upon a daily report downloaded from a website. The downloaded report changes from day-to-day. All of the data I need remains there, but the location of the columns changes, with the exception of "BOL". I need to sort all of this data in a macro. I have most of my macro figured out, but I'm having trouble with one "sort". I need the data to be sorted FIRST by whether or not the 4th column contains "Clear" or "Dyed". I have the next two sorts already coded, based on SPOT vs Contract and then numerically by column A. But I cannot find macro coding or an excel formula (either would work) that reliably searches the 2nd column for the word "Clear". I have tried different combinations of IFERROR, FIND, SEARCH, IF, ISNUM, etc. in hopes of writing a new adjacent column containing the values "Clear" and "Dyed". I have found many combinations that work if I search only the correct cell. But when I extend the range to search through ~26 cells in one row, they all fail. Below is a (small) example of what I start with and what I want to end with. I've also included my current relevant Sorting code in my macro.
I cannot find Excel files that contain specific strings. For example, if I create a new file, and in the first cell type in "123456". Then save the file to the folder c:Temp Then in Windows Explorer, right-click on C:Temp and select "Search . . ." Then under "A word or phrase in the file", type in: 123456 It will NOT find the file! It will find a txt file or a doc file, but not xls files.
I thought maybe it fails because that is a number. But I have hundreds of Excel files with Integer numbers stored in "General" format cells and I desperately need to be able to search them to see which files contain certain numbers. It all started with some files that were sent to me - they work PERFECTLY for searching cells for numbers. So strange - yet if I open the file then save it . . . no changes or edits at all, just Open and Save. . . then the search fails for all numbers in that file. This is so perplexing that I have placed 2 zip Sample files on my website for you to Download: http://www.infocellar.com/Samples.zip
Unzip the two files to any folder. One is named "Sample-Works.xls" - Then do a Windows Search for any number in the file, here is one to try that is in the two files: 174026 And it will list "Sample-Works.xls" but it will NOT list "Sample-Fails.xls", even though BOTH FILES ARE IDENTICAL! I copied the same file twice and then named them. The only difference is that I opened the file Sample-Fails.xls and then immediately Saved it, which as I stated earlier, makes it fail all Searches from that point forward.
I have created a desk planning spreadsheet in excel. Each week a mailmerge sends out an email to everyone in the office asking them to confirm when they will need a desk in the next week.
As the normal employee doesnt get involved in desk planning I want them simply to state whether they will be in the building or not by entering "GH" (our building) in a cell under each day in the email they get sent.
When the reply comes in we select the cells from the email and then paste them into the desk planning spreadsheet. -----
WHAT I NEED TO DO: Select some cells (must be in the same row - that we have just pasted in). Press a button on the Worksheet labelled "Auto Assign Desk", which does this:- For each cell that contains "GH", replace with the right-most cell to the left of the selection that starts "GH_"... (this is the start of a unique desk reference (GH_1_1, GH_1_2,etc.) -----
This will assign the employee to the desk they were sat at last, when they are in the office next week.
From mySQL database, i am getting a ton of data that is all being inputted into a single excel cell. Within this cell, there are certain data points that i wish to obtain (Bank #, SSN #, Routing #). There are multiple difficulties in obtaining this information.
1. these cells contain the same fields, but different number of total characters (differing in names, addresses, etc.)
2. some of the data points (like SSN) are inputted incorrectly, so even though a SSN is only 9 digits/characters, I may have to output all 11 that the SQL database placed within the cell.
Can I get some help? I'm thinking of a search function/macro within excel, because all of the fields show up correctly.
something like (i know this doesn't work)
= or("cellA1" contains/finds/function SSN,return the 9 characters after "SSN ")
um...yeah. difficult to explain, i'm sorry!
edit: not sure what is wrong the file. I have attached a new one.
I would like to change the greater than number to the value in cell 'I11' in sheet 'Linear Programming Data' and the less than number to the value in cell 'I12' in sheet 'Linear Programming Data'. The code I am using was done by recording a macro since I don't know how to code in vba.
Code: Sub Results2() ' Results2 Macro ' copy table filter power by greater than and less than Sheets("Finalizing Results 2").Select Cells.Select
I have a protected template and unprotected source worksheets - - - what I would like to happen is for the macro to start and if the source worksheet cell B3 equals "Report Total" then stop - otherwise copy template worksheet then copy 6 specific cells from the source to paste values to specific cells on the newly created worksheet (B_ to C7, D_ to I7, E_ to C9, F_ to K9, A_ to C11, M_ to K11 and then K13=F13-30)
After that then start all over again unless the next row’s cell (B4, B5, B6, . . .) is "Report Total" then stop - - - the row count could be from one to a couple hundred.
Here is what I have so far but I know that with each copy the name will change and as it goes down the source file each row will change and I also need help with that.
I need to conduct keyword searches in excel and color the keywords a different color without changing the font color of the entire cell. now, i found some code from another thread that does this, but i cant seem to get it to work with more than 2 keywords. i need fine-tuning the provided code to do what i need it to do.
the VBA code i used was this:
I was playing around with the example, the Cat_Mouse.xlsm, and when i modified the 'myList' and 'myColor' arrays, it does not work.
For example, I modified the code to add the word bat:
When i run the macros, the word "Bat" does not become colored red. interestingly enough, when i substitute the word "bat" for the word "hat" in the "myLIST array, the word "hat" does change to the red font.
I am looking to use this code to address keywords in my excel file by coloring all key words red and i have more than 10 key words.
I have number in cell (A1) = 100. when I enter number in any cell of column(B) for example (B1)=10. then in cell (C1) the result of (A1) - (B1) = (90) and if I add in cell (B2)=10 then in cell (C1) the result of (A1) - (B1+B2) = 80 .accumulatively in cell (C1). and any number in column (B), the result will be (A1) minus any number in column(B) accumulated in (C1)
I have number in cell (A1) = 100. when I enter number at cell (B1) = 10 then the result would be in the adjacent cell (C1) = (A1) - ( B1) = 90 and If I enter a new number in cell (B2) = 10 then the result would be in the adjacent cell (C2) = (A1) - (B1+B2) = 80 and If I enter a new number in cell (B3) = 10 then the result would be in the adjacent cell (C3) = (A1) - (B1+B2+B3) = 70 and so on. I want the result to be add automatically to adjacent cell in column (C)
I can pick one of these. If i pick Cash then i want a specific cell to run a specific formula. depending on the item chosen.
So in cell A6 is the list.
in cell B6 an amount will be place and in C6 another amount will be place. the number for c6 will range from a -number to a +number.
But D6 looks to see if B6 meet the requirements for MTT, SnG or Cash depending on which item was selected from the list. and uses the formula below with $c$3 changing from to either $D$3 or $F$3 and comparing the values for the chosen item. the formula changes would look this
=IF(ISBLANK(C6),IF(B6>$C$3,"Do Not Play","PLAY"),IF(C6<B6, "Lost","Win"))
=IF(ISBLANK(C6),IF(B6>$D$3,"Do Not Play","PLAY"),IF(C6<B6, "Lost","Win"))
=IF(ISBLANK(C6),IF(B6>$F$3,"Do Not Play","PLAY"),IF(C6<B6, "Lost","Win"))
we have a Workbook... in this workbook we want run a VBA or Macro which macro copy a specific sheets (Sheet Name "Abstract") this sheet but when we copy this sheet then in sheet name show file name where this sheet come..
if Abstract sheet copy ABC.xls file then sheet name show in my workbook ABC
We have 205 file in the folder (folder store in E:yr 13-14) is it possible that in few files abstract sheet not found..
I'm trying to find vehicle make and model in a cell containing a lot of text and then display that in the formula cell. For example if A1 is a paragraph that contains somewhere within it "Ford" & "Ranger". I want B1 to display "Ford" and C1 to display "Ranger". I have a list of vehicles makes (column A) and models (column B) on a seperate sheet.
I want to search for a value, in a specific range (in this case, in a row). If that value exists, l want the formula to return that value, otherwise l want it to return "FALSE" or whatever.
The formula must exist in one discrete cell only, i.e. the output will be contained in only one cell.I don't want to match the occurrence of that value with another row's cell. I don't want to search for multiple values (although if you have a way to do that, l'll be interested to know!), l don't want to count the number of times the value occurs.All l want is to return that value if it exists in the specified range of cells, and if it doesn't, l want to say "FALSE" or something.
I have a Master work sheet consisting sale data of more than 400 Sales person for a period of 6 Months.
The Employee Codes are entered in column "F" starting from F6, F7, F8 and so on....
G5,H5, I5, J5, K5, L5 to GV5 has the product names.
G5,H5, I5, J5, K5, L5 to GV5 has the qty of product sold by that concern sales person.
Since each sales person's occurrence is 6 times in the master sheet, I would like to have a code to search each and every sales person by their employee ID through out the entire master sheet, sum each product they sold as per the product name and get it entered in their concern cells.
I need to look through a range for a specific value. When I find it if the nearby time column matches a specific time I want to retrieve the lookup value. Because I am not very macro savvy, and the spreadsheet has to run on both mac and pc I do not want to use a macro. Can I do this with an IF((AND combination or is there a better way? If there is a way to look through a range with IF, how would I structure the criteria to look through an entire column for the value? Lookup won't work because the value can occur several times through out the range, but only once with a specific time value.
I need to consolidate/summarize specific rows from various workbooks into a summary sheet on a new workbook. I get a daily workbook, and am currently manually copying and pasting the rows I need at the end of the month into a summary sheet.
All of the workbooks are in the same folder. All of the workbooks contain data in Sheet1 only, all have the same header row (A). I need to find and copy the entire row based on two values in column AH. If the column contains JAN LA or JAN LA 125, then I need to copy that entire row into my new summary sheet. Not all of the workbooks will contain data for me, but most will.
I have been trying some of the macros I found on here to try to copy every Sheet1 from all workbooks, but I can't get it to work. I was then going to filter through the data to find the ones I need. If I can get it to copy only the rows I need instead of the entire sheet,
im trying to do is create a database of autocad drawings based on style of house number of bedrooms sq ft and if theres a garage. what i am wondering is how can i add a search function. for example i want to find a Cape with 2 bedrooms...i have all the information on the spreadsheet. what do i need to do to be able to search among the spread sheet without using the find function this is just the beginning of the data
I am trying to develop a macro that does the folllowing
1) Takes the value from a specified column of a sheet in the workbook and sequentually go the the values of that column and compares those values to another sheet in the workbook
For ex: sheet1 in column A row 1 has string value abc123 and sheet2 column A row 1 has value 123abc. I want to compare these two values from different sheets.
2) However if the values don't match I would like to take the value from sheet1 and see if it is in the list on sheet2.
3) If the value from sheet2 isn't on the list from sheet1 then paste that row information to sheet3
So far this is what I have. All it does now is go through both lists and compares the values but I am not sure how to single out those values for conditional formating. I am sure that the singled out values will need to be derived dynamically since I won't know what or when the values will be up for conditional formatting.
Dim LoopCount As Integer Dim RangeCount As Integer Dim CellVal As String Dim CellIncrement As Integer Dim ErrorCount As Integer Dim PasteConfirm As Boolean