I'm trying to make a combo box that lists only unique entries in 2 columns but also has a count in brackets beside the entry. For example:
Apples (8) Bananas (13) Grapes (2)
The code I have to populate the box is:
Sub RemoveDuplicates() Dim AllCells As Range, Cell As Range Dim NoDupes As New Collection Dim i As Integer, j As Integer Dim Swap1, Swap2, Item
Set AllCells = Range("e3:f370")
What can I add to count how many times an entry is listed in my range? Also, the filter works off text from the combo box, how can I remove the counts prior to filtering? Here's what I'm using now to filter:
Private Sub SrchBtn_Click() Worksheets("sheet1").Range("b1") = ComboBox1.Value Range("A2:J1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("L1:M3"), Unique:=False ActiveWindow.SmallScroll Down:=-5 Unload Me End Sub
I'm trying to take column A (number of records can change from time-to-time and may contain blanks), copy that to column B less duplicates and then use a count forumla to count items in column B based on original list in A. I am aware of how to do this in Excel but am interested in VBA.
I have this formula below it will return multiple results is it possilbe to modified it that it will return multiple results but ignore duplicates. I would like it to be a stand alone formula no helper cells or helper columns.
Is there a code that I could use to check that information has been inputted by the user in to a cell. E.g. Check that A1 the user has entered their name, before the rest of the macro that I have written will run. If they haven't a message box will appear to tell them what is wrong and then select cell A1 for them to input the necessary information.
I am trying to set up a workbook for work that will highlight duplicates. I know how to use conditional formatting to do this, however, I would like each duplicate "set" to be a different color in order to better identify. The area that I need to search for duplicates is E3:E27. How can this be accomplished?
I have two columns of data, and I need to create a third column to count the number of times that same line appears in the document (and then remove all but the first copy of that line). my data looks as follows (and it is sorted so all duplicate rows appear directly next to each other):
Adam1998 | Jan Adam1998 | John Adam1998 | John Adam1998 | Paul Adam1998 | Peter Adam1998 | Peter Adam1998 | Peter Adam1999 |John Adam1999 | Paul
I need this to look as follows: Adam1998 | Jan | 1 Adam1998 | John | 2 Adam1998 | Paul | 1 Adam1998 | Peter | 3 Adam1999 |John | 1 Adam1999 | Paul | 1
I have 2 huge lists. One is " the Master list" which I have to extract items that are not already listed on the second list . I don't want to remove duplicate entries,I want to remove the duplicates completely. in both lists, so that I only have items that are not in the second list...
I am trying to collect data from a server. The data comes through as .csv (seperated data), and I am able to get all the useless info/columns out of the way - but I would like to keep a record of how many times these "alarms" come in. form a spreadsheet, or tell me how to go abouts using a tool to simplify my process.
I have a name in Column A, and a number that goes with it in Column B. Some of the names on Column A are duplicates. I want to extract a new list that will add the values in Column B of all matching names on Column A, so that my list has only unique names and a total of the numbers in Column B.
i have duplicate cell entries occuring. I have a column of about 8000 entries (Column B) and would like to have a cell at the top of my spreadsheet that displays where the first duplicate resides (Row No. will suffice).
At present i have a conditional format on dupllicates, but is is a big task to scroll down through all the data looking for them.
i have this code which will not open the requested userform when the messagebox yes button is selected
Private Sub UserForm_Activate() Dim Response As Integer MsgBox "Are Both Parapets the Same?", vbYesNo, "PARAPETS" If Response = vbYes Then ufmDoubleParapet.Show End If If Response = vbNo Then Exit Sub End If End Sub
I have attached a copy of what I am trying to do. I've been researching vlookup for a while and everything I try doesn't seem to work. I'm also fairly new to Excel, so most of this is my first time trying these formulas.
In the attached test.xls file, I have two sheets created. The first is "Responsibility," and the second is "List." The data in "List" is what I am trying to pull from. As you can see, the people's names are listed more than once as the list goes down. On the "Responsibility" page I have each person's name one time. In the "Extinguisher" column, I'm wanting it to list every number that is found next to the person's name on the "List" sheet. For example:
Column B2 on the "Responsibility" sheet should read as follows:
Column A______Column B_____Column C 100/12__________B___________$ 100/12______________________@ 100/12______________________€ 250/13______________________€ 250/13______________________$
I want to keep in ColumnA all three rows of 100/12, because it has a value in Column B in one cell-which is the criteria, and remove the 250/13 because it has no value in cell B.
I was assuming that merging duplicates in column A, and than remove empty from ColumnB.
I have a macro enabled spreadsheet and I need to save one sheet into a new file that is in xls format. I can do that --- is there anyway to suppress the Compatibility Checker box to make it that much easier?
The new file will not have macros as will just be a data in rows and columns so compatibility. Interesting is the compatibility checker box says there are links to the original spreadsheet, but I can't find them in the connections menu.
I need macro that will check for list of duplicates in sheet1 and place the duplicate data in sheet2. I know how to check duplicates in only one column.But now my sheet having lot of columns.
I have the following VB macro that runs after user presses OK on a userform. I don't think it's written correctly. I would like a prompt that gives two options (either yes to return a null value if they've left a field blank, or return user to a reset userform1 if they select no.)
Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then MsgBox ("You Must Enter a Part Number (eg. 1007821-12)") Unload UserForm1 Calculate UserForm1.Show End If If Me.TextBox2.Value = "" Then MsgBox ("You Must Enter a Lot Number (eg. 6020631)")............
I have a list box where I select "Income" or "Expense". In relation to that, In the next column called "Category", I use the offset formula in " Validation". Depending on whether I choose Income or Expense, I will get different dropdown options for "Category". What I want to do is if I choose the first column combo box, and leave the second column combo box empty, or Vice Versa, I want a messagebox popup saying that I have to choose an option from the dropdown. But if both are empty fields, then do nothing. I have attached the file called "Data Validation Test"
I have a cell E1 that is actually a vlookup and returns a date. I had to custom format the cell so the value returned looks like "June 2007" instead of "39827". I am running a macro and I need a messagebox to tell the user that they are creating an email for June 2007 (which is really the variable cell E1). Problem is the message gives the date as '6/4/2007' instead of 'June 2007'. I tried using the text() function to format the cell as "mmmm yyyy" but I get a type mismatch error. Below is the code I wrote. The first way shows successful but the date as numeric. The second gives me the type mismatch error: First way:
a = Range("e1").Value Msg3 = "You are about to create an email for " & a & ". Are you sure?" 'Define msg Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons. Title3 = "Create new file" ' Define title.
Response3 = MsgBox(Msg3, Style, Title3) If Response3 = vbYes Then ' User chose Yes. 'create email
Second way (mismatch error): a = text(Range("e1").Value, "mmmm yyyy") Msg3 = "You are about to create an email for " & a & ". Are you sure?" ' Define message. Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons. Title3 = "Create new file" ' Define title.
Basically, in the "Thisworkbook" code , i have some code in the Workbook_BeforeClose section. Currently , it autosaves the workbook in a folder i have specified.
However, i need to add some code.I want to check that a certain cell has a value in it before the user closes the workbook, and if the cell is empty, show a messagebox asking him to enter a value.
I know how to get a messagebox to pop up, the only thing is once the user clicks the OK button, i need the rest of the code execution to pause, allowing him to make the change then if he clicks the "X" (top right of the screen) to close the file or application, the filesave dialog appears and he can then save the document.
how to go about this because at the moment when user clicks ok, the messagebox just disappears and filesave dialog appears and he doesn't have a chance to edit the cell.
I Want to be able to put in Col A the concatenate results of all equal P/N's from any given list. Or at least select the few cells that i know are duplicates and from that copy the Location to a single Column.
ColA ColB__ColC ______Loc__PN 1,2____1___A _______2___A _______3___B 4,5____4___C _______5___C
In short, I would like a pivot table to only count unique values, but when I click into the pivot I would like to show all instances of that value. For example:
I have a table of data that I am creating a pivot table from. There are fields for Customer ID, Task Name, Age, and Notes. There will be multiple records for a single Customer ID each time it has new notes.
I would like to create a pivot table that has Task Name in the Row Labels, Age in the Column Labels, and count of Customer ID in the Values, so that, for example, I can see how many accounts have been in the Design task for 2 days. However, when I do this it counts each record, but I would like it to count each unique Customer ID. Also, when I click into the pivot, instead of pulling up one line per Customer ID, I would like it to pull up each instance of Customer IDs in that Task Name/Age combination (similar to doing a DISTINCT in SQL).
I'm tracking 50 food items (in column A) for 40 homes (columns B-AO) where each home gets none or varying quantities for each food item (ex: apples 7 for home B, 0 for homes C-L, 19 for home M, etc.). I can get grand totals for each item for all homes, but need to also list how many for each home receiving apples. Ex: 4 homes get apples (4, 7, 19, 1 respectively). SO I want my total sheet to have a column for each food item with the grand total "31" and the second column to show 4 + 7 + 19 + 1. The quantities change frequently so I need a formula I can use for each food item. Also I don't want "zeroes" included. What formula would I use to do this?