I have written some code which asks the using for a name, selcet's a sheet, copy's the sheet, rename's the copied sheet then hide's the original sheet and makes the copied sheet with new name active.
My problem is that I need some sort of code to check for sheets with duplicate names and if true ask the user to rename the sheet or maybe delete the sheet.
I have a spreadsheet with 3300 rows. In column A there is a list of company names and in column H there is a corresponding Sales Rep name.Column A has many duplicate company names. I would like to run a macro that will find the a company name and then delete all the rest of the rows that contain that same company name.
Attached is a sample of that spreadsheet.
Code:
Sheets(Array("Sheet 1", "Sheet 2")).Visible = False
How do I convert the above to using Sheet Codes Names, Sheet1 and Sheet2?
Want to ensure my code will work if the user changes the sheet name.
I have a workbook with a list of new contacts in one sheet, and a list of old contacts on another sheet.
I want to run a duplicate check throughout the workbook to highlight and delete any contacts on my new list, that have already been contacted on my old list.
Also, I need the the duplicate checker to check for non specific names, regardless of punctuation, upper/lower case, etc.
I need to to highlight all of the following variations as possible duplicates which i can then review & delete manually;
Apple Corp,
Apple Ltd
APPLE LTD
Apple.com
etc...
What I can use to do this?
I have two columns that is use to record last name first name. I need a macro that will find matching names in the columns. i have found some examples for searching one column but have not had any luck finding someway to do 2 columns. in the example below i need it to find and highlight The names Smith John.
View 3 Replies View RelatedI want to create a list of names where the name is multiplied by the number on the second column. See below example.
NamesTickets EarnedMark5Hazel2Art4
On the other sheet's Column A
MarkMarkMarkMarkMarkHazelHazelArtArtArtArt
What macro can I use?
I have a very simple userform that i'm using to allow users to name their 'location'
Private Sub CommandButton1_Click()
ActiveWorkbook.Unprotect
If Me.TextBox1.Value = "" Then
Beep
MsgBox "Please give your location a name"
TextBox1.SetFocus
Else
Sheets("Template").Visible = True
Sheets("Template").Copy Before:=Sheets(1)
ActiveSheet.Name = TextBox1.Value
Sheets("Template").Visible = False
ActiveWorkbook.Protect
Unload Location
End If
End Sub
As i'm sure you've already guessed, there is nothing stopping a user from trying to rename the new sheet with an existing name. Is there anyway of checking the entry and workbook for duplicated enteries?
Hi guys/gurls.. is there a way i can get the following check against range for orders which give result as invoiced(if within the range), duplicated(if 2 or more than 2 are on the orders list) & missing (which on not in the orders when checked against the range).
View 6 Replies View RelatedI have a spreadsheet that will export records when I "click" a button, to a spreadsheet on a network drive.
I would like to attach some code that will check to see if a duplicate record is going to be written to the network drive, and if so, alert the user that they are about to create a duplicate . If it is a duplicate, give the user the option to overwrite the existing record.
Ex. I export the results for account 12345.....Account 12345 is now written to an outside sheet.
User2 logs in and works with customer 12345, w/out knowing that someone has already worked with this account, presses the export button.....This is the trigger point for what I want to happen. At this point when it locates a dupe in the outside spreadsheet it will prompt the user too make some chouces .
find attached the code I would like to attach this to...
HTML option Explicit
Sub TransferData(Optional Dummy As Long)
Dim Row As Long
Dim TargetRow As Long
Dim Path As String
Dim Prompt As String
Dim Title As String
Dim Cel As Range
Dim Wkb As Workbook
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
Set Cel = wsCustomers.Range("C:C").Find(What:=Range("C4").Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Cel Is Nothing Then
Prompt = "There is no match for the Customer Number (" & Range("C4").Value & ")."
Title = "Process Aborted"
MsgBox Prompt, vbCritical, Title
GoTo ExitSub:
End If
Row = Cel.Row
Set Cel = wsSetup.Range("A:A").Find(What:=wsCustomers.Range("A" & Row).Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Cel Is Nothing Then
Prompt = "There is no Workbook Path setup for this Region (" & wsCustomers.Range("A" & Row).Value & ")."
Title = "Process Aborted"
MsgBox Prompt, vbCritical, Title
GoTo ExitSub:
End If
Path = wsSetup.Range("B" & Cel.Row).Value
If Trim(Path) = "" Then
Prompt = "There is no Workbook Path setup for this Customer Number (" & Range("C4").Value & ")."
Title = "Process Aborted"
MsgBox Prompt, vbCritical, Title
GoTo ExitSub:
End If
On Error Resume Next
Set Wkb = Workbooks.Open(Filename:=Path, UpdateLinks:=False)
On Error GoTo 0
If Wkb Is Nothing Then
Prompt = "The workbook for this Customer Number (" & Range("C4").Value & ") could not be opened." & vbNewLine & vbNewLine & "Path: " & Path
Title = "Process Aborted"
MsgBox Prompt, vbCritical, Title
GoTo ExitSub:
End If
I've been assigned to develop a workbook that autopopulates a different workbook but they wanted it so the second macro is never messed with and the information is only entered once. Here is the macro i developed
Code:
Sub Monthly()
Dim wbthis As Workbook
Dim wsthis As Worksheet, wsm As Worksheet
[Code]....
Now The area in red is where the macro writes into the form. My thing is that I want to set up a check so there isn't duplicated entries. This is how the check would work. First it would match up any excisiting entries with JobNo and then check to see if the JobDate was the same. If both are the same then it would check Waste or CutTime, either one would work. If they didn't match, then those cells would be overwritten. If nothing matched then it would put in the new entry.
I want to Check the Duplicate Name in the Excel Sheet Using VB Macros
****** name="ProgId" content="Word.Document">****** name="Generator" content="Microsoft Word 11">****** name="Originator" content="Microsoft Word 11">
If the 1 nd Row Contains Name as " 101 Calif " and the Value For Vb is 77
2 nd Row Contains the Same Name "101 Calif " and the Value for this is 2.
Now I want the Output As Follows
101 Calif and Column 3 values is 79(77+2) and Column 5 Value is 105 and Column 7 Value is 105 and Column 9 is 100 and Column 11 is 3 and Column 13 th Value is % Value . (10+30/2 = 40/2= 20 )
***** http-equiv="Content-Type" content="text/html; charset=utf-8">****** name="ProgId" content="Word.Document">****** name="Generator" content="Microsoft Word 11">****** name="Originator" content="Microsoft Word 11"> Vendor
Actual YTD Annualized
Forecast
2007 Actual Difference % Change.........................................
I have a command button that copies a template worksheet and names it with a date that the user chooses. Problem is, the user can choose the same date more than once. So, I need to have the command button check for all the sheet names, and if it finds a duplicate, prompt the user to enter some text to concatenate to the original sheet name, therefore making it's name unique. My existing code is as follows:
Private Sub CommandButton1_Click()
MsgBox "Please be patient. Creating a new Week Ending sheet can take several minutes!"
Call AddNewWE
End Sub
Sub AddNewWE()..............................
I am waaaaay in over my head here. I've not done any scripting/macro/vb/whatnot work in Excel, but I'm staring down a potential all-night project manually merging data.
Here's what I have:
When I make a pivot table I wanted to know why it is showing duplicate names. Here is an example workbook below. It should group all the same names together. However it isn't doing so. Anyway around this problem?
View 2 Replies View RelatedI have this data set,
A
B
C
D
E
1
mzi
2
5
6
12
[Code].....
I have a list of about 1000 names with 2 columns next to it. The first contains a list of different groups that the names belong to (there are 19 possible groups). The second contains a list of figures ranging between £10,000 and £500,000. I want a formula that will look for a name in the list and, when it finds the name, return the corresponding group and corresponding amount. My problem is that some names are in more than one group and therefore appear in column 1 more than once. I have tried to use the LOOKUP formula [eg looking for the GROUP =LOOKUP(Sheet1!B33, Sheet2!A:A, Sheet2!B:B)] but when a name appears more than once I cant get all the results - for example:
Mr Phil LittleGreen Group35,000
Mr Ed GrantRed Group20,000
Mr Robert SmithOrange Group10,000
Mr Robert SmithRed Group50,000
Mr Robert SmithGreen Group75,000
Mr James MorrisonGreen Group100,000
On my summary page (Sheet1) I would like to type in Mr Robert Smith (into cell Sheet1!B33) and in the rows below (obviously in 9 different cells) have the results appear but I can only ever get Mr Robert SmithGreen Group75,000 as a result. This is my first post so I hope I have obeyed all the rules and this is clear
I have a userform that I use for data entry with lots of combo boxes, list boxes and text boxes
One thing i haven't cracked yet is to check for duplicates against two matching fields
If a user (for example) enters 'SAB' (which will be stored in column A) and then 'UK' (which will be stored in column B) and there is already an exact match for both, then I need to inform the user that a matching record already exists
The following is OK: (the dots below are meant to illustrate spaces between the columns!!)
Col(A).....Col(B)
SAB........UK
SAB........USA
SAB........Italy
BUT, if a user then tries to enter:
Col(A).....Col(B)
SAB........UK
I need my userform to register a duplicate entry.
My sub routine is detailed below : .....
I have multiple worksheets of computer equipment, each worksheet is a group/department. Column H is the serial number column and the entries have to be unique. I have managed to create the code below which does find duplicates across worksheets.
When error message pops up about which sheet the duplicate already exists on, the duplicate entry is deleted and the cell is blank but the error checks again and reports the blank existing on another worksheet and then it is stuck in a loop. How can I ignore the blank or null.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer
I = Sheets.Count
If Not Intersect(Target, Range("H2:H200")) Is Nothing Then
Do Until I = 0
If Application.IsError(Application.Match(Target, Sheets(I).Range("H2:H200"), 0)) Then
Else
MsgBox "That entry already exists in the " + Sheets(I).Name + " sheet"
Target.ClearContents
End If
I = I - 1
Loop
End If
End Sub
I'm trying to remove duplicate entries from a list of names & addresses.
What I'm after is some VBA code which will examine row by row the 'post code' field and the 'Full name' field and highlight/delete duplicate entries.
Its best illustrated by an example
Full Name Address Postcode
Mr C. Verougstraete 6 somone st, Leicester HY8 9YK
Mrs R. Brazier 8 high st HY9 9LK
Mr C. Verougstraete 6 somone st, HY8 9YK
The last record is obviously a duplicate of row 2 therefore will be removed.
Unfortunately we don't have 2010 at work so I don't have the luxury of the use of the duplicate function.
I'm using Excel 2003 and need to remove duplicate names from a list; what would be the best formula to do this.
I've done a countif to identify how many occurrences appear; any other formula if greater than to get to the object of how many staff I have in the list
I have a big database of customers, each one has a unique reference number. They are spread accross a bunch of different tabs (21 in total to be exact)
One issue I have had is staff entering a customer whos already in the database, causing a duplicate entry. I dont need excel to tell us where the entry is, just to give some kind of indicator it already exists. I thought I may be able to use data validation/conditionality to turn the cell fill Red when it already exists in the data base.
The reason I think that method would be best, is that the sheets that data is entered on are seperate that the master sheet then pulls the data through from. Its the master sheet that would need to indicate a duplicate has been entered, as thats the only sheet where the entire database can be viewed.
which formula achieves the following:
i have a simple table design with the dates running across the row, below each row i write the name of the person on shift. in the 3rd row i mark the time they are late for work (if any).
below that in a seperate table i have a list of my staff next to that i would like there to be a running total of their lateness. I need a formular that will look for their names and then total any lateness that i have inserted. I have include a basic spreedsheet of what i want to achieve, the column in RED is where i wan the totals.
I have been playing around with this for a bit and now have it sorted out. This is a macro that will check a name list and highlight any cell that contains one or more of the names.
View 3 Replies View RelatedMagazine subscription list. How to highlight the customers that are already in the sheet if enter them again (renewal). Our list is like so....
ColA ColB ColC ColD ColE ColF
First Last 123 Ave City State Zip
Is there a way to highlight the row if the info on ColA, ColB, ColE, and ColF all match? Sometimes the Street info is abbreviated or entered PO Box instread of P.O. Box and they wind up on the list a second time.
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 working with two worksheets (Task Analysis and Answer Validation) and I would like the content that is entered in column A of the first sheet to appear in the corresponding row of column A on the second sheet.
I can easily do this with "='Task Analysis'!A2" in cell A2 on the second sheet.
My problem is that if there no value in a cell on the first sheet I get a zero in the corresponding cell on the second sheet. How can I eliminate the zero fill?
How do I get sheets names automatically? I.E. I want to get in A2 sheet number 2 name. In A3, sheet number 3 name...
View 1 Replies View RelatedOn sheet1 of my workbook I have a table containing the colums : Title, Name, Street+nr, postal code + city of some people, Telephone, email.
I would like to do the following (by clicking a button perhaps?)
- For all the records in my table on sheet1 I would like to insert a new sheet in my workbook named to their names (as in sheet1).
- The new sheet must be an existing sheet that I've already made the content (a kind of expence sheet)
- Somewhere on the top of the sheet I would like to have their names , titles en addresses (fetched from sheet1)
I have a set template for 3 sheets. I copy/paste data into all three sheets within the template. Some data are repeated twice within the 3 sheets. How can I highlight the duplicate data between these sheets?
View 5 Replies View RelatedI have to look up a specific SS# on three different sheets of the same workbook, because each of the sheets has more than 65536 rows (it is really one list but has to be divided up due to the size). How to make a vlookup formula to look on each of the three sheets? The sheets are named 2-16, 17-33, 34-63.
View 9 Replies View Related