Macro To Find Duplicates And Consolidate Certain Relative Cells?
Feb 5, 2014
I am currently working on a project where i am given a sheet that typically has several hundred rows of data and not seemingly organized in any manner. This document has 6 columns, and my main focus is a range of dates (in MMM-YYYY form) from around early 2000 to now that can have duplicates. The dates(Column C), have corresponding Usages (Column D), and Costs (Column F) and I need to add these values together and remove the duplicate months so I only have one Usage and one cost Per month.
My spreadsheet has 6 Columns of data, and varying number of rows. Currently, since I receive the numbers in an unorganized fashion, my macro organizes the data into a table and then sorts the table be date so I have the oldest dates first and the duplicates are adjacent. There may be varying numbers of duplicates, though typically 0 to 4.
The code is supposed to find HEQL in column G in BOOKED.XLS ( attached) and then do a series of copy pastes into two other workbooks. For some reason, it is only finding one instance of HEQL and there should be 255.
I'd like to search for a specific value like (1) in an array of cells like (A:A). The result needs to be the average number of a different column (B:B) in the same row as the searched value (1). And the resulting number should be rounded up to the nearest 10.
Example below: (Find value = 1 in A:A) ... 1 is found 4 times.
In the example above there are 4 (1's) found. By adding all the values in column (B) of the same row, we get 295+400+354+400 = 1449, dividing that in 4, the average is 362.25, rounding that up to the nearest 10... THE RESULT I'M LOOKING FOR IS: 370
I have four columns of data (in column B) across 4 worksheets within the same workbook. The rows in this columns contain text. In some cases the text in various rows of each columns are identical, and in other cases they are unique. There is a percentage in column C for each text in column B.
What I'm trying to do is as follows:
Create a consolidated list of all four columns into a single column (say column A in a separate sheet). Therefore, each row in this consolidated column will have a unique text based value.
Have the percentage value for each unique text based entry in column B of the separate sheet. if the text based contents in the column A row is one of those that had the same entry in the original four columns, then the average of the percentages will appear in column B.
I work with large spreadsheets. I was hoping that someone would know how to create a macro that will take selected cells in column C and search all of column C for exact duplicate entries. The macro envisioned would let you select cells to test. If a dulicate entry is found I would need the macro to test the cells in column E against one another. If both C & E match exact (if possible maybe display the findings in a pop up box) I would like the macro to ask me if I want to delete the duplicate entry, if yes, delete the entire row. If no, skip it and move to the next one. If C but not E match I would need the macro to ask me to remove test cell. if yes, cut out the entire row of the TEST cell and paste it in a new sheet. If no skip it and move on. Am I just dreaming or can this be done.
I work with large spreadsheets. I was hoping that someone would know how to create a macro that will take selected cells in column C and search all of column C for exact duplicate entries. The macro envisioned would let you select cells to test. If a dulicate entry is found I would need the macro to test the cells in column E against one another. If both C & E match exact (if possible maybe display the findings in a pop up box) I would like the macro to ask me if I want to delete the duplicate entry, if yes, delete the entire row. If no, skip it and move to the next one. If C but not E match I would need the macro to ask me if I want to remove thetest cell. if yes, cut out the entire row of the TEST cell and paste it in a new sheet. If no skip it and move on. Am I just dreaming or can this be done. If it can be done, but more info is needed let me know.
I want a VBA that searches for duplicates, triplicates, or more and combine the cellvalue that is next to the duplicates. Also, if it combines them, it should only use the last letter. I have a code that works partially, but I'm stuck.
For example, I have this list:
1 2014A
2 2014B
3 2014C
1 2014D
4 2014E
1 2014F
I want it to combine the A, D and F like this:
1 2014A
1 A/D/F
2 2014B
[Code] .......
I created the following script, but i can't get it to use the last letter. Also it creates a " / / " when the cells are empty.
So I have the macro written, but I don't get the complete data that I am looking for. This is what I am trying to achieve
Here is an example of what I am trying to achieve. This is in the first sheet: Column A Column B Car Saw Dew Jacket Pen Key Saw Screen Hand Shoe Jacket Window Screen Sock Screen Mouse
Now I want this in the next sheet: Column A Column B Column C Column D Car Saw Screen Sock Car Saw Screen Mouse Dew Jacket Window Pen Key Saw Screen Sock Hand Shoe Jacket Window Screen Sock Screen Mouse
In my current macro, It displays most of what I am looking for, but not a duplicate ID if there is one. For example Screen, there are 2 IDs. My macro is only getting the first one and then skipping over the second ID. I would like it to where if there is a double or if it is there more than once that it gets all of the data.
Here is my macro.
[Code] ....
I will also attach the document of what I am looking for : Data 1.xlsx
Looking for a macro to find and delete all duplicates and keep only unique values from a column. For example column AS has ACLU0403598 ACLU0403598 ACLU0403598 ACLU0406600 ACLU5165518 ACLU0406581 ACLU0406581
All red items need to be removed and keep only green items. Would also like the entire row the duplicates are in to be deleted.
I need it to clear the contents from the cells, then copy a number of sets of cells from selector, paste them in to AM call plan and then delete the duplicates. My code is getting stuck very early in the whole thing. The copy, paste sequences, were originally recorded as a macro, then added to trying to get it to work.
Here is the code, and the red line of code is where it is stopping:
Sub Call_Plan_Targets() ' ' Call_Plan_Targets Macro ' Dim LR As Long Application.ScreenUpdating = False LR = ActiveSheet.UsedRange.Rows.Count
I am working with data that is to be used for a regression analysis, and I am having trouble being able to find and replace multiple observations.
For example, column A has the two-letter abbreviation for each country in the world. Column B has the name of the corresponding country. At various places throughout the worksheet, names of countries exist.
I would like to find all instances of say "Albania" and replace them with "AL" then Algeria, Angola, Andorra, etc. Since columns A & B are in alphabetical order and the abbreviation and name correspond with one another, I would like to use a macro that will find all occurrences of the country name in the selected cell and replace them with the abbreviation then repeat the operation.
So, I need to: 1) Find all occurrences of the content in "B1" 2) Replace them with the content in "A1" 3) Repeat operation beginning at "B2"
In column A I have a set of Ids that are not unique. In column B I have a set of latlong values for those Ids in column A. In column D I have the unique list of Ids from column A(Removed duplicates from column A & pasted them in column D). In column E, I need the latlong value which has highest frequency for each Id. I tried countif,Frequency and tried mixing them up with various other formulas but it is out of my reach.
I want to find the subtotal amount on one worksheet, which is two columns over from the text, "Sub Total:" on the same row. The subtotal line floats up and down each week. Once I can find the subtotal I want to populate another worksheet with the data.
I want to set range a entire column,the rows are dynamic and i want to do it on all the columns in the sheet, my problem is that after i set the range(i hope i did good) i want to do a average of the range and to put the result in a new sheet on a row. I'm sorry for the mess in the code its one of my first macros
Option Explicit Sub Average() Dim R As Integer Dim help As String Dim Range1 As Range Dim E As Integer Dim Avg As Integer R = 1 '/////CREATE NEW SHEET AND COPY THE FIRST TWO ROWS TO THE NEW ONE Sheets("UXP data").Select 'Sheets.Add Sheets("UXP data").Select......................
how to write a vb code to do the following actions with an excel sheet, which contains a dump from SAP. This dump usually consists of anywhere between 25 to 30 columns and about 20000 to 30000 rows…
1. Find all rows which contain “VN” and place it into the sheet Vendor Charges (which already exists). Which could be in any column
2.Find all rows which contain “MT” and place it into the sheet Material Charges (which already exists).
I have attached the excel sheet to better explain what I had in mind. ‘sheet1’ contains the raw data from SAP but, the number of columns varies every time so it cannot be directly sorted by selecting the column. I tried recording a macro but, as I don’t have a constant sheet to work with each time the macro obviously doesn’t work.
I have a workbook that has multiple tabs and need help trying to figure out how to consolidate all the data. I find myself spending hours doing this manually each day.
Here is what I have:
Workbook has tabs labeled....Wk1_Mon, Wk1_Tues, Wk1_Wed, Wk1_Thurs, Wk1_Friday, Wk1_Summary......and repeats all the tabs through Wk5....then I have a Month_Summary tab.
I have 25 users with 25 seperate workbooks each with individual information on each workbook.
I am trying to get a sum of all the data on the Month_Summary tab for each month for each user and as well as a sum of the Month_Summary tab for all 25 users.
The end result I am looking for is to get a Yearly Sum of all the Month_Summary Tabs for all 25 users as well as individual yearly summaries for each users.
I have one main Folder which contains 25 folders (one for each user). Under each user folder there is a seperate Workbook for each month.
I have a Spreadsheet that has about 150 rows filled with information. Column A (Part Description) Column B (quantity). Certain parts are repeated multiple times. I am trying to come up with a Macro to assign to a button that will do the following.
1.Grab every part on the sheet that has a Quantity in Column B and insert it in Sheet 4 starting in row 15.
2. Instead of having duplicate parts i want it to sum the quantities of all the matching parts.
Right now i am just using a "Hide 0 Quantity" Macro but it is still a pain.
I have a list of entries, people log how many products they sell a day, at the end of the I need to consolidate that data, to get a sum of how many goods each person sold that week. So on on tab I will have multiple enetries by the same person and on the consolidtaed tab, I want each person's name and Id # to show up on one row, but them I would like a total of how much goods they have sold for that month. I have attached a copy of my file, the consolidated tab shows what I would like to get in the end.
I need to create a macro that pull in data from various spreadsheets, all with the same layouts, but with different file names and different worksheet names, into on master worksheet. The data should drop in after the title line and then continue on after each data set has copied.
I'm not sure if this can be done but if I had the numbers 1, 2, 3, 4 and 5 in cells A1, A2, A3, A4 and A5 respectively, is there a formula that I could put in another cell to display "12345"?
I was playing around with the consolidate function, but I couldn't get it to work, and it's not a formula, it is done after the fact. (PS. I've got no idea about macros)
I am trying to take a workbook with 10 worksheets and have the contents copied and pasted into a new worksheet without any extra blank rows onto a new spreadsheet. Does anyone know how to achieve this? The purpose is to copy the information off each of the 10 worksheets and be able to use the consolidated information for pivot tables.
Important Facts:
- Each worksheet starts with data in cell A7 and ends at BL7
- The number of rows on each worksheet is inconsistent (e.g. one sheet ends at row 12 another at row 101)
I have to maintain a weekly tracker for my team. 13 team members will send me thir trackers every trackers every week and I need to consolidate all of them into 4 weekly and 1 monthly tracker. is there a macro which can facilitate this compilation of 13 excel workbooks into one new worksheet? all worksheets will be similar i.e will have same # of columns but can have different # of rows.
I used a Macro from here that creates one worksheet from several then prints and deletes it. However the Macro doesn't carry over my column/row size formats. Is there a fix?
I work with Excel the more I realize that I'm not that good at it Anyways, I'm in need of a quite advanced formula (for me) that sums up relative relative rows of a specified column. The rows relation depends on the ID-number of the person. Look at my attachment.
In Sheet1 I have an extract of the data I'm working with. It's a medical record of different people in a study. The ID (col. B) seperate the different people. One person can have several perscriptions (spelling?) of medicine. Every perscription has an "fddd", a daily dose (col. L). I want to add up all the daily doses for every seperate ID of my data in Sheet2. So for example, for ID1 I want it to sum L3:L6 in Sheet1 and return it to Sheet2!B2. If the ID is not found I want it to be blank.
I am looking for some VBA programming that will allow me to use 1 button to consolidate rows (delete them). The problem I am running into is that the rows I want to delete have formulas in them so I can use "find all blank cells & delete" type of macro.
Capture.PNGCapture1.PNG
Attached are a couple of brief images on a small scale what I am looking to do.
I want a user to be able to have this sporadic list of choices, consolidate them so the are all one right after each other, then export to a word file for editing later on.
