how this code can be condensed getting rid of some of the duplicate coding?
Everything is duplicate except for the For i = 1 To x part as the formula that is added is changed from sheet to sheet.
I'm working in XL07 on Win7.
The workbook has two worksheets "Data" & "Crunch". "Data" contains the raw data-range B1:U50. "Crunch" is the processing worksheet. Row 1 is a header row. Columns A-D are empty. Column E (rows 2-81) contain the numbers 1-80.
The macro is intended to run in "Crunch". I need to add the CountIf function in every cell/row filling the range F2:BC81. A loop does the trick for me to fill the rows in each column but I don't know how to move the loop down each column without creating a new loop.
A section of the code is below. Notice a majority of the code is the same, the copy in red is variable from loop to loop. I need to repeat this loop through column "BC" (50 times in total). My guess is there is a way to write this code one time instead of 50 times adjusting the variable components.
Code:
'Find total # of records and then store in variable
totalrecords = ActiveSheet.UsedRange.Rows.Count
'CountIf Statement
[Code]....
I have spent the last couple hours compiling a large amount of data. I have a list of websites, each have a number of visits and transactions. The list is many thousands strong so i have a huge amount of data to work with but there are a lot of duplicate sites. See below, I have taken a snapshot of some of it:
I've highlighted a duplicate example.
Would it be possible across the entire data set to sum all of the duplicate rows into one. So, for the 3 shown, to be reduced to one row with 228 visits and 2 transactions?
And to do it quickly? As I could go through them manually but I don't have to time to go through 10,000 rows.
Here is a sample Excel sheet I have: http://spreadsheets.google.com/pub?k...dnD01VPV8RzOAw
I have over 1,200 rows with duplicate data(sometims 3-4 times) that is filled in some columns and empty in others.
I would like to consolidate the data and then delete the duplicates without loosing any data.
Is there a way to do this? I have Office 2007. I can't just use the Duplicate finder cause that just deletes everything right away.
For an assignment i am doing at uni i have been asked to produce a spreadsheet that will solve a set of 5 simultaneous equations using gaussian elimination.
I have set up the spreadsheet to do this, however, we have also been asked to make it work if we get a zero on the leading diagonal. This means that the equations would have to be rearranged.
This is the part im not sure how to do. Obviously i would be starting with an 'IF' expression, but other than that i dont know where to start.
I produce a report each month that requires manual manipulation to get to the end result. Because I have yet to find a macro or formula that can assist me in reducing the data for what I am looking for
Emp Name
Project Code
PRoject Name
LevelRevenueLbr RevenueLbr CostExp CostProfitVarianceRoy, Marcus L.
Project1
PORT RAIL
CM-89.530.000.000.00-89.53-89.53Roy, Marcus L.
Project1
PORT RAIL
PM293.600.000.000.00293.600.00Roy, Marcus L.
Project1............................
I am working with timesheet data (name, project code, task code, date, hours etc...) in one spreadsheet and rate card data (name, role, day rate etc...) in another.
My task is to pull together some of the information in each of these two source spreadsheets and compile a report. This I have done no problem. However, where a person works on a particular project and task on the same day and records multiple entries (which could be negative) I need to consolidate the hours in all these matching rows and have just one row reflect the total hours worked and delete the other duplicate rows.
So an example would be:
Project | Task | Name | Role | Date | Hours
123456 | 1.001 | Paul Jones | Project Manager | 20/02/2008 | 2.5
123456 | 1.001 | Paul Jones | Project Manager | 20/02/2008 | -2.5
123456 | 1.001 | Paul Jones | Project Manager | 20/02/2008 | 3.5
[Code]....
My problem is I don't think I have approached this the right way but am unsure of where to go with it. The code as is does sort of work but I still get some duplicate and zero lines in my results.
I am working with timesheet data (name, project code, task code, date, hours etc...) in one spreadsheet and rate card data (name, role, day rate etc...) in another. My task is to pull together some of the information in each of these two source spreadsheets and compile a report. This I have done no problem. However, where a person works on a particular project and task on the same day and records multiple entries (which could be negative) I need to consolidate the hours in all these matching rows and have just one row reflect the total hours worked and delete the other duplicate rows. So an example would be:
Project | Task | Name | Role | Date | Hours
123456 | 1.001 | Paul Jones | Project Manager | 20/02/2008 | 2.5
123456 | 1.001 | Paul Jones | Project Manager | 20/02/2008 | -2.5
123456 | 1.001 | Paul Jones | Project Manager | 20/02/2008 | 3.5
123456 | 1.001 | Jo Brown | Developer | 20/02/2008 | 7.5
123456 | 1.001 | Jo Brown | Developer | 20/02/2008 | -7.5
123456 | 1.001 | Sam Smith | Architect | 20/02/2008 | 7.5
Should be processed and come out like this:.......................
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 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.
View 3 Replies View RelatedI 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)
- The columns have uniform titles and data below
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.
View 9 Replies View RelatedI 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?
View 2 Replies View RelatedI 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.
I have the following macro, however I am struggling to make it work on my file:
[Code] .....
I have attached my sample. essentially i have the dec, jan etc month tabs to consolidate into the summary sheet. i would like the data to be dumped from both sheets into the summary sheets. i will be adding a feb, march, april etc tabs as the year progresses.
I would also like column A in the summary sheet to repeat the name of the sheet the data is being retrieved from.
Attached File : sample macro_issue01.xlsm
I Need to write a macro for the following example.
In sheet 1.
It has data as below
HTML Code:
Sl.no Name Task week hoursworked
1 SAM Teaching 1 2
2SAM Teaching 1 2
3 SAM Teaching 1 3
4 SAM Teaching 1 1
5 SAM Teaching 1 5
I want to consolidate the data as like below and to paste it in sheet2.
HTML Code:
Sl.no Name Task week hoursworked
1 SAM Teaching 1 13
If the Name, Task and Week columns are same then macro should do sum the hours and make it into a single line as mentioned above.
I have twenty individual txt files. I want excel to open each, sort them according to certain parameteres, and then i want excel to populate all 20 of these into 1 workbook with 20different worksheets. Each worksheet tab to be called by either the same name as the txt file or a name established using a form. The twenty files can always be called the same name, and rarely will i will add a new file or will I remove a file. But sometimes, i may only want to run a couple files....
View 9 Replies View RelatedI have 20 excel files each having more that 1000 records, the format and header for all the files are same.
I need to consolidate all these 20 different files into one excel sheet, having only one header row at the top. Since I need to perform this step frequently, I am planning to automate it.
I have a spreadsheet with over 1000 rows of information.
There are two columns FROM_ACCT_NO and THRU_ACCT_NO.
I need to create a macro that will give me a condensed account ranges.
Example the first range would be 2000000 to 2000003.
The next range would be 2000005 to 2000298.
And so on, and so on etc....
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.
I have a workbook with 4 sheets and with sheet 5 as a "consolidated" sheet. I have to create the macro, which will on a daily basis copy the populated data from those 4 sheets and paste into the sheet 5 (same workbook). The data in the Sheet 5 should be pasted from row 2 below each other.. Row 1 will be the headings and shouldn't be replaced. The data in all 4 sheets should be copied from row starting 37, columns C to BA but it will end with different row numbers. note that columns A & B are populated but shouldn't be copied.
View 7 Replies View RelatedI have three IF statements as below. the problem is if the first statement is true I want it to skip the next two statements or the result will be changed again.
View 2 Replies View RelatedSheet one will contain the following:
DATE A B C D E
2/22/2008TRUEFALSEFALSEFALSERon
2/23/2008FALSETRUETRUETRUEPhill
2/24/2008FALSETRUEFALSEFALSETracy
2/25/2008FALSEFALSEFALSEFALSESharon
2/26/2008TRUETRUEFALSETRUEBill
On sheet two I need to list any date that has three or more true statements with the coresponding name.
EXAMPLE:
2/23/2008Phill
2/26/2008 Bill
I've done a few searches and found the 2 macros I need. They are:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Count = 1 Then
If InStr(1, Target.Value, "REL", vbTextCompare) Then
If IsEmpty(Target.Offset(0, -1)) Then
Target.Offset(0, -1).Value = Date
Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy"
Target.EntireColumn.AutoFit
End If
End If
End If
End Sub
and
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub...........................
I know very little about VBA. The first program I use to enter a static date to the cell (Column C) to the left when I type "REL" into a cell (Column D) and the second will be used to enter a static date into the cell next to the one above (Column B) when I type anything into a cell (Column E).
They both work individually but I am now trying to compile them together and get the compile error (Because they have the same worksheet_change name). I do not know how to rename or make them in the same.
I need a macro that will combine/consolidate rows when cells from 2 separate columns match. example...
beginning:
Column A column B column C column D column E
row 1 Seminole 80 unleaded 1064 100100
row 2 Seminole 36 clear dsl 825 100100
row 3 Seminole 80 unleaded 1101 100100
row 4 Seminole 30 dyed dsl 3421 100100
This is what I need the macro to do:
Column A column B column C column D column E
row 1 Seminole 80 unleaded 2165 100100
row 2 Seminole 36 clear dsl 825 100100
row 3 Seminole 30 dyed dsl 3421 100100
I created the driver macro Mike2 (At first cosisting only of the first 2 lines) with keyboard shortkey +m, to run macro Mike. (In future additionals macros). Every time I run this macro it adds 2 lines to the Macro ,regardless of the End and Exit sub statements. Why?? Do not want this to happen.
View 4 Replies View RelatedI have 2 option buttons linked to cell A1 and I want to run a different macro based on what A1 shows. The code I've been trying is:
Code:
If A1 = 2 Then
Application.run "ship1"
ElseIf A1 = 1 Then
Application.run "ship2"
End If
Using this runs neither of the macros though. I've tried a few different things and still no luck.
I'm needing a macro that will allow me to get around the limits of no more than 7 IF statements and using a SUMPRODUCT formula as well. I need the total or sum of the macro/formula to be in cell "DB8".
Here's my formula: =SUMPRODUCT(IF(CP8=M11,EXACT(K7,"DI"),0)+0+SUMPRODUCT(IF(CP8=W11,EXACT(U7,"DI"),0)+0+SUMPRODUCT(IF(CP8=AG11,EXACT(AE7,"DI"),0)+0+SUMPRODUCT(IF(CP8=AQ11,EXACT(AO7,"DI"),0)+0+SUMPRODUCT(IF(CP8=BA11,EXACT(AY7,"DI"),0)+0+SUMPRODUCT(IF(CP8=BK11,EXACT(BI7,"DI"),0)+0+SUMPRODUCT(IF(CP8=BU11,EXACT(BS7,"DI"),0)+0+SUMPRODUCT(IF(CP8=CE11,EXACT(CC7,"DI"),0)+0+SUMPRODUCT(IF(CP8=CO11,EXACT(CM7,"DI")+0,0))))))))))
I tried sending this message once before but the system crapped out. At least on my end. If it was sent and this is a partial duplicate. At any rate, as most of you know when an Excel workbook has a large number of merged fields Excel sometimes changes all the cell (not just the merged cells) formats to a Date type, with the exception of those cells that are the Text data type. I found the following code on the net someplace and I can't properly cite the author, that when run resets the cell formats to the default format which is General for all those that had been changed.
Sub CleanStyles()
Dim sty As Style, wbTemp As Workbook
' First, remove all styles other than Excel's own.
' they may have arrived from pasting from other workbooks
[Code]....
This code worked for months. However, it no longer works. I opened the code in the VBA editor and stepped through it using F8. The first time I pressed F8 the first line in the code is highlighted, just like always. The next time I pressed F8 the third line of code (not counting the remarks or blank lines) is highlighted. It did not highlight the Dim statement.
I'm using Excel 2007 in XP.
