Copy Uniques To Another Worksheet
Sep 5, 2007
Once I have used this code to filter for unique item(s)
Sheets("Source Data"). Range("Data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Source Data").Range( _
'"Criteria"), Unique:=True
Sheets("Source Data").ShowAllData
As this filter searches for unique value there is only 1 row of info. I then want to select specific (1 or 2 cells) info from this row and the make this cell(s) = to a cell on another worksheet. As this unique row might be 199; I don't know how to reference it using VBA. I know what columns I need but cannot determine which row it will be in. Assist as I have looked at various threads w.r.t. duplicates/autofilter/search but cannot seem to get the correct code.
View 2 Replies
ADVERTISEMENT
Apr 23, 2009
I'm trying to figure out how to count the number of unique countries where there is an office.
So pretty much, I want to count the unique entries in Column A where there is an X in Column C.
View 9 Replies
View Related
Feb 25, 2007
I would like to sum uniques across worksheets. Below are the formulas that Domenic provided me and it works great but I could not modify the formula below that is in red to sum uniques instead.
=SUMPRODUCT(--(RIGHT(A3:A37,5)<>"Total"),--(MATCH(C3:C37&D3:D37,C3:C37&D3:D37,0)=ROW(INDEX(C3:C37,0))-ROW(A3)+1),B3:B37)
Define Names:
ArrayA:
=COUNTIF(OFFSET(INDIRECT("'"&Sheet1!$C$2:$D$2&"'!A3:A100"),ROW(INDIRECT("3:100"))-3,,1),"<>*")
ArrayB:
=N(OFFSET(INDIRECT("'"&Sheet1!$C$2:$D$2&"'!"&Col),ROW(INDIRECT("3:100"))-3,,1))
Col:
=CHOOSE(Pos,"A3:A100","B3:B100","C3:C100","D3:D100")
Pos:
=TRANSPOSE(MMULT((T(OFFSET(INDIRECT("'"&TRANSPOSE(Sheet1!$C$2:$E$2)&"'!B1:D1"),,COLUMN(INDIRECT("B:D"))-COLUMN(INDIRECT("D:D")),,1))="Net")*(COLUMN(INDIRECT("B:D"))-COLUMN(INDIRECT("B:B"))+1),TRANSPOSE(COLUMN(INDIRECT("B:D"))^0)))
=SUM(IF(ArrayA,ArrayB))
View 9 Replies
View Related
Oct 16, 2007
I want something to give me the total of different names in column A, I know the total is 8 but if I add another name I want Excel to add it up automatically in cell A2 in sheet #2.
View 9 Replies
View Related
Mar 18, 2007
looking for a way to look in a column for a value, and then spit out the highest value in corresponding cells in a column further over
so i want to look at all the classes associated with the same case, and have excel spit out the highest CscR no associated with those cells that do match..
yes i could do it manually, but my actual file has like 4000 samples in the first column.
View 14 Replies
View Related
Jul 14, 2008
I have a list of names in a column that will be changing on a weekly basis (with some names repeating). I need to create a Named Range that only counts unique values from that list of names (dynamically changing every week).
View 11 Replies
View Related
Aug 7, 2007
I have about 160 rows in collumn A. I want Excel to count them, but ignore blank ones and repeated ones. How can I accomplish this using macro?
View 5 Replies
View Related
Nov 18, 2006
I have this formula below it will list uniques from column A but I would like it return in a alphabetical order. Is there a way to add that condition in the formula below a all in one formula?
=INDEX($A$3:$A$23,MATCH(TRUE,ISNA(MATCH($A$3:$A$23,C$2:C2,0)),0))
Example:...
View 9 Replies
View Related
May 4, 2007
I would like to get a unique list of letters from multiple columns.
I tried to use this formula below but it does not work with multiple columns....
View 9 Replies
View Related
Feb 19, 2008
I use this formula to count uniques in Column I if they started with "P" :
=SUMPRODUCT(($I$2:I554"")/COUNTIF($I$2:I554,$I$2:I554&""),N(LEFT($I$2:I554,1)="P"))
Now if I add 2 more criteria it gives a wrong result" :
=SUMPRODUCT(($I$2:I554"")/COUNTIF($I$2:I554,$I$2:I554&""),N(LEFT($I$2:I554,1)="P"),N($F$2:F554=F555),--($G$2:G554""))
as 0.0625
View 9 Replies
View Related
Feb 20, 2008
I have a list with many duplicate names in it, from which I only wanted 1 instance of each name, to be placed in another sheet. So, I recorded a macro that selects, from the sheet called "Data", column E (the column with the relevant list), copy/paste's it into sheet 3 in column A, selects the new column, and runs an Advanced Filter command on it, to identify and display all the unique names in it in the same place. It ran just fine when I recorded it. But then, when I deleted the data created by the macro and tried to re-run it, I got random data. I found that whenever I click on a different cell, it provides a different output. I only want it to select Column E, and copy paste that, not other random columns depending on which cell is currently selected. This is my
Sub Fetch_Unique_Names()
Sheets("Data").Select
ActiveCell.Range("A1").Select
ActiveCell.Range("E1:E2200").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Range("A1:A2176").AdvancedFilter Action:=xlFilterInPlace, Unique _
:=True
End Sub
View 4 Replies
View Related
May 9, 2008
I have attached a sample sheet. Can someone be kind enough to teach me how to count unique numbers of visible cells ( I would be applying filter in the table) in textbox 1; and subtotal of the visible list in textbox 2?
Right now the range to count unique numbers is set to A2:A15, but I want to be able to change that range to other ranges, like B2:b100, etc. I do not know VB.
View 9 Replies
View Related
Aug 1, 2006
I am designing a userform that involves a listbox that I am having trouble with. Please note I have little experience with vba, so I don't understand most codes.
I want to make a mulitcolumn listbox, populated with the attached pivot table. I really do not know where to start, and there is no "populating multicolumn listboxes for beginners" instructions anywhere on google or in here. At least, none that I understand.
What I am trying to create is a 2-column listbox, where in the first column, the "code" fields are shown, and in the second column, the corresponding " Name" fields are shown. In the pivot table, you can see how several routes fall under a service, and several services fall under a pc, etc.
View 9 Replies
View Related
Apr 13, 2009
look for a certain value in worksheet A and copy that row of data to Worksheet B.
However, it seems to be only copying the row in worksheet A and pasting it. Is there something that a noob VBA scripter has missed out?
PHP Private Sub GetInfo_Click()
Dim r As Long, LastRow As Long, Status As Integer
Dim Message As String, Title As String, Default As String, MyValue As String
Application.ScreenUpdating = False
MyValue = Range("A4").Value
Workbooks("invoice.xls").Worksheets("A").Activate
LastRow = Range("C65536").End(xlUp).Row
For r = LastRow To 1 Step -1
If Cells(r, 1).Value = MyValue Then
Rows(r).EntireRow.Copy
Workbooks("invoice.xls").Worksheets("B").Activate
Rows("8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Status = 1
Workbooks("invoice.xls").Worksheets("A").Activate
Rows(r).EntireRow.Delete
Exit For
End If
Next r
Application.ScreenUpdating = True
View 2 Replies
View Related
Nov 22, 2006
I have written code that allows a user to copy, via a button, a certain sheet any number of times. They can choose to copy that sheet 5 times and then 10 times, etc.
When the sheet tries to be copied for the 17th time, it fails with the following message: "Run-time error '1004':
Method 'Copy' of object '_Worksheet' failed"
Here is the code that I have. The second line is the line that is failing.
Worksheets("RoedForm").Select
Worksheets("RoedForm").Copy After:=Worksheets(iCount)
This always fails on the 17th copy regardless of how many different combinations of copy sheets the user tries. There are several sheets before the sheet that is to be copied and I have deleted several of those to see what happens and it still fails on the 17th copy. I also have 1GB of memory, so I don't believe that memory is an issue.
View 3 Replies
View Related
Apr 21, 2012
I have a workbook that contains 50 worksheets named 1-50. I need to add more worksheets. all the formulas in the worksheets always refers to the previous worksheet.
How can i make a copy of the worksheet named 50, name it 51 and have all the formulas in worksheet 51 refer back to worksheet 50?
View 1 Replies
View Related
Sep 24, 2012
I've been tackling this data capture/paste issue for a week or so. I found the string below which does provide a good foundation for my challenge. But, my basic level of understanding macros limits my modifications to meet my needs.
[URL] ......
I have 20 worksheets in my master file corresponding to Excel files individual associates will update weekly. After the associates have updated their individual files for the week, I want to capture the data entered and paste values into a master file containing a worksheet for each associate (sharing the same name as the individual associate file). All of these files are housed on team SharePoint sites.
I need a macro to perform several steps after clicking a "Run Update" macro button in the master file:
Open individual associate fileIn master file, search for each Initiative listed in column B (starting cell B3) in the individual associate file (in column B starting at cell B11)If Initiative is found in individual associate file, copy adjacent data in columns D:J for the respective rowIn master file, paste values to the corresponding Initiative row for the corresponding week's worth of dataIf Initiative is not found in the individual associate file, move to the next Initiative listed in the master fileRepeat these steps for each individual associate file
Linking would be the easiest way to accomplish this if I wanted to have a multitude of weekly individual files for the associates. However, I'd rather each associate have one file for them to update (basically overwriting their previous week's entries).
I need to ensure the paste values corresponds to the appropriate day of the week. In simpler terms, if the date in the individual associate file in cell D9 reads Oct 1, 2012, the data captured from that row needs to be pasted to the corresponding row/column in the master file that reads the same date.
View 2 Replies
View Related
Dec 15, 2009
I'm a novice Excel 2007 user and appreciate all the help I can get. I have a workbook with monthly worksheets in it. When a certain data Type is selected from a drop down menu in that monthly worksheet than I would like to have it automatically enter specific data (Name, Date, Eval, Type) copied to another worksheet (CC) in the same workbook. I have been manually entering the data so far. Another thing, some of the data will be entered into the Monthly worksheets and some will only be manually entered into the CC worksheet so it would need to accomodate both methods of data entry. Please let me know if I need to clarify. I have attached the workbood, too.
View 11 Replies
View Related
Jun 19, 2013
I would like to copy the data from one worksheet to the alternate row in another worksheet as follows. I've attached a file showing the source file and the desired output.
1. Copy column B's data in worksheet "Working" to worksheet "Upload file" Column V. B2's data goes to V1, B3's data goes to V3, B3's data goes to V5, so on and so forth.
2. Copy column H's data in worksheet "Working" to worksheet "Upload file" Column F. H2's data goes to F1, H3's data goes to F3, H3's data goes to F5, so on and so forth.
The number of rows with data in worksheet "Working" varies. It could be 30 lines one time and over 100 lines another time.
View 2 Replies
View Related
Dec 11, 2008
I would like to copy and paste two columns from a worksheet to another worksheet simultaneously. I would like to have a macro to do this function.
View 5 Replies
View Related
Feb 26, 2010
I have an Excel WorkBook with 100 WorkSheets.
Each Worksheet has a unique identifying label - "Requirement Number"
Within each worksheet is free form text data of the following categories:
Requirement: 10358
Title: Customer requirement 1
Text: This describes the requirements for a product for the customer[code].....
The text of the categories may begin in column A or B
What I need is a macro that will search each worksheet for a category, e.g., "Configuration:", copy the row where the keyword "Configuration" is found, and then have that row transposed and pasted to another WorkSheet (e.g., "Extracted Data") cell.
Data extracted from the next Worksheet would begin a new row in "Extracted Data"
Example:
Requirement1 Title Text Verification Method-Level ...
Requirement2 Title Text Verification Method-Level ...
Requirement3 Title Text Verification Method-Level ...
The Requirement# is best extracted from the WorkSheet tab since some of the worksheets are missing this information.
I can provide an example spreadsheet, however, I was not able to figure out how do that in this post.
I found a thread similar to this problem:
find and copy row
However, it only finds, copies and pastes for one keyword.
View 9 Replies
View Related
May 12, 2008
What I am trying to do is to write a macro that will automatically copy six columns from worksheet (Sheet 1) to another worksheet (Sheet 2). i.e. ‘Description of Project’, ‘WBS Code’, ‘Rate’, ‘Employee Name’, ‘Premium’, ‘Invoice’, ‘Status’, ‘Total Cumulative Hours’, ‘Total Cumulative Amount’ from Worksheet (from Sheet 1 to Sheet 2)
The problem arises as I know the names of the columns to be copied in Sheet 1 (as details above) but they can be in any order in sheet 1.
In additional the columns ‘Total Cumulative Hours’, ‘Total Cumulative Amount’ are total columns so when they are copied from ‘Sheet 1’ to ‘Sheet 2’ their values should be copied as opposed to the formulas
View 9 Replies
View Related
Feb 26, 2010
I am looking for a solution to an otherwise very tedious problem.
I have an Excel WorkBook with 100 WorkSheets.
Each Worksheet has a unique identifying label - "Requirement Number"
Within each worksheet is free form text data of the following categories: ...
View 9 Replies
View Related
Jun 22, 2006
I would like to be able to select several non-sequential rows in a worksheet called "Data" (using a check box or just entering a value in Column A) and then be able to press a Command button to copy the selected rows to another worksheet called "Estimate" at the bottom of a table, and delete the designators in Column A (i.e. deletes the value, or unchecks the boxes) so I can repeat the process again if needed.
View 7 Replies
View Related
Jul 26, 2009
I have a worksheet that utilizes a Worksheet Change Event. I created a macro to copy the sheet and that works fine except for the fact that it doesn't contain the Worksheet Change event.
View 5 Replies
View Related
Oct 24, 2011
I have embedded a worksheet called Rawdata" into a userform. Is has a number of text boxes on the userform, all the text boxes copy correctly to a worksheet called Rawdata, however i cant get the spreadsheet data to copy from the Userform to the sheet called Datapad.
The worksheet in the userform is from A1:G600, this data needs to be copied back to the Datapad worksheet B2:F601.
code so far:
Private Sub cmdadd_Click()
Dim iRow As Long
Dim ws As Worksheet
[Code]....
View 2 Replies
View Related
Jan 31, 2014
I need to loop through worksheets in a workbook and copy every first cell value(A1) and then paste into a new worksheet.
I have tried various loops. some have copied first value for the first sheet and then pasted in the new sheet. while others have been not so good.
This is the code I have so far and this does not work at all.
Code:
Sub Check()
Dim ws As Worksheet
Dim lr As Long
Dim treg As Worksheet
[Code]......
View 1 Replies
View Related
Jan 16, 2008
As I am managing a few projects at once, I would like to create a To Dos List for each project (seperated by different worksheets). To make my life a bit easier, I hope to show all the To Dos which is due on a particular day on a separate worksheet. In other words, I am hoping to write a macro which allows me to copy all the relevant To Dos (of that day) from different worksheets and compiled it into a single list on a new worksheet.
Note:
1) Each row of To Do contains 3 columns, Date, Priority and Descriptions.
2) The To Dos for each project are NOT arrange in sequence by dates.
3) Number of project will increase over time, therefore the number of worksheets will also increase.
View 3 Replies
View Related
Jul 13, 2009
I have 2 worksheets : "version" and "final".
In final worksheet, I have in column H starting with H2 some cells with text. I can have until 99 cells.
I need to copy this cells into "version" worksheet, in row 3 starting with range D3 and 3 rows to the right ...
"final" worksheet........................................."version" worksheet
data from range H2.......................................data to range D3
data from range H3.......................................data to range G3
data from range H4.......................................data to range J3
etc...............................................................etc.
View 7 Replies
View Related
Feb 3, 2014
I have a worksheet with data in columns AW to columns QZ. I want to be able to copy a range of columns into another worksheet. The Columns AW to QZ have the same headings repeated every 10 columns. e.g. English, Maths, Science, Art & Design, Humanities, PSHE, History, ICT, RE and Attendance. Each block represents a different time period.
I want to be able to copy all the columns headed one subject (e.g. English) into another workbook. I used the following code to open the worksheet and paste the data into it, but there are so many columns for the 10 subjects that the code is too big to run so I need to shorten it and i don't know how to.
Sheets("On Roll Data & Levels").Select
Range("AF2:AF99").Select 'KS2 English column
Application.CutCopyMode = False
[Code]....
View 4 Replies
View Related
