Finding Current Duplicate Record?
Apr 21, 2013
I have a spreadsheet to track events (servicing, repairs, fuelling, etc) for my car - dates in Col A, events in B, mileage in C, prices in D.
I want to return the mileage when the next service is due, based on the mileage of the last service. Using VLOOKUP set to FALSE returns the first service mileage; set to TRUE, it returns random values. The events in Col B repeat in a random order (e.g. fuel, fuel, service, fuel, repairs, fuel, fuel, service).
View 4 Replies
ADVERTISEMENT
Apr 17, 2009
I know this is a simple question for all VBA droids...I guess the challenge is in how quickly I'll receive an answer. I hear the turn-around time on this board is pretty impressive. So here goes...
What is the VBA code for recording the current date without the date recalculating when the form is re-opened. I know the formula for automatic entry [=today()], but I need the date to stay the same. I can assign the date to any cell, so you may theorize any cell in the code. Remember...the trick is getting the date to stay the same once it's been automatically entered.
View 9 Replies
View Related
Jun 13, 2007
The workbook has several worksheets, each with different information but the first two columns are identical in each sheet.
For the sake of simplcity, let's say the first two columns for the worksheets read name and phone number. Other columns through out the variuos worksheets might be age, address, state, hair color, etc.
On my template, I want to be able to type in a name, and have the computer automatically pull up the age, address, state, hair color, etc. and put them in their respective positions on the template. Is this possible? It would be a lot easier to view the information and much more convenient.
View 11 Replies
View Related
Nov 6, 2013
I have data like this (with many more rows).
Date
Employee #
Employee Last Name
First Name
Department
Style
Size
[Code]...
I'm trying to set up a conditional formatting rule that looks through the list of employee numbers for duplicates. If it finds a duplicate AND the duplicate record has a date that is within one year of the previous record for the same employee number, highlight that row.
In other words, every time a record contains an employee number (column B) that is the same as a prior record, and the date of the second record is within 1 year from the first, that should present a TRUE to the conditional formatting. Otherwise, result should be FALSE.
Either any conditional formatting rule, or even set this up in column H to provide the TRUEs and FALSEs, I should be good to go.
View 2 Replies
View Related
Apr 14, 2013
I am looking for a text box code that works with a search userform.
Basically, I search using my userform find function and if there are more than one record found I want to be able to either:
1) have the records found appear in a listbox
0r
2) have the first record appear in the userform but a text box will show I am on 1 of X records and when I click a command button, go the next record, which will be 2 of x records and so on...
VB:
Private Sub cmbNext_Click() Dim FirstCl As Range
'first data Entry
Set FirstCl = Range("a2").End(xlDown).Offset(1, 0)
[Code] ....
This is the code for the button that goes to the next record but I am unsure how to relate that a listbox or text box that shows the record number I am on out of the total that there are.
I would also be looking for another button that goes back one record. So i am hoping it's as easy as reversing the code for the next record function.
I am not sure if the listbox that could show all I records and one can just be selected is easier than showing the textbox with the " 1 of X records".
View 2 Replies
View Related
Aug 26, 2009
I have a table that contains names and dates. I need to find the most recent / latest date in each record. For example:
Names Dates
A 01/02/09
A 05/25/09
B 06/09/09
B 07/30/09
B 01/02/09
C 03/09/09
C 02/28/09
D 12/12/09
The results should be:
A 05/25/09
B 07/30/09
C 03/09/09
D 12/12/09
View 4 Replies
View Related
Oct 16, 2008
Through a query I extract data from an oracle database. This database creates a record for every unique Article_Batch_Pallet_Faultnumber combination. Through a filter macro I create a new format on a different worksheet which creates a record for every uniqe Article_Batch_Pallet combination. I need a searchfunction to get the faultnumbers in the same row.
View 2 Replies
View Related
Dec 31, 2013
I have a spreadsheet that uses a Form for Data entry. Each record has ID, Name, State, and about 20 more columns of information for each ID.
The data entry is working well.
What I need now is to add a check for a UNIQUE ID. If they are adding a new record I need my form to return a message if the ID they use is already in the database. So if they enter XXXXX and that is in the file already - they should get a message that XXXXX is already in the database and to please enter a new ID.
And once they fix XXXXX to XXXXY then the record is added.
I should add that the ID is stored in column A.
View 3 Replies
View Related
May 1, 2014
I am trying to pick out certain bits of information from the below "example" set of data:
A
1
A
1
B
1
C
1
[Code] .......
My aim is to record the letters that are recorded against both numbers (note: in my data there are more than 2 sets of numbers). For the example above the solution would be:
A
1,2
B
1,2
...because these two letters appear against both 1 and 2.
There are some letters that are duplicated against the same number which is making it hard for me to work out. I don't care if the same letter appears against the same number, I just would like to know instances when a letter appears with a different number, and if possible what that number is.
View 3 Replies
View Related
Sep 4, 2013
I have this table as my simple little database and I have to extract some info from it and keep track of dates and deadlines...
A
B
C
D
E
F
G
H
[Code]...
I have to get the following data, I need to lookup the last visit date out of all dates associated with a specific name in column "A".
This requires that I test an unsorted table for a value in column "A", i.e. "test2". Then determine which record has the latest date.
In other words, If I test for the value "test2" in column "A", I find I have 2 records, with dates ranged across "D4:F4 and D7:F7".
I need to return the latest date found in those ranges...
The purpose here is to write a function that will find a range of dates associated with a name in an unsorted table, from that range find the latest date, then add 90 days to that date and display the results....
I have been trying to employ a form of, =VLOOKUP(E3,$B$3:$D$11,MATCH($F$1,$B$1:$D$1,0),FALSE) and =INDEX(Table_Array,MATCH(Lookup_Value,Lookup_Array,0),Col_Index_Num) combined with "IF" functions, but to be totally honest I am COMPLETELY lost here....

View 9 Replies
View Related
Aug 20, 2013
Basically, I'm doing a recorded macro for work where I take an export and manipulate the data to show differences between sales from last year and this year. Also comparing this months projected sales to avg of last 6 months and also against last years this month.
The problem I'm running into is in automating the this month sales for mid-month exports. I can do it individually but I can't find a formula that will do it. Data is in one cell per month, so ex. 130 sales this month so far. I need to have it convert that to projected sales for total month based on what day it currently is.
View 1 Replies
View Related
Jan 3, 2013
I have created a userform with 3 text boxes. It also has three buttons - clear, Cancel and Generate record button.
User form takes entries in the three text boxes and on clicking the Generate Record button, the values of the three Text Boxes are inserted in Column A, B and C of sheet1. The columns keep on populating with new data on each submit in the row below the last record.
Now it is required to enter data only if the value entered in TextBox1 is new and has not been entered previously in column A. If textbox entry is already aviailable in column A, a message box of 'Record available' shoud be prompted and the text entry must not be allowed until the data entered in TextBox1 is not unique.
View 3 Replies
View Related
Sep 2, 2009
I have a sheet that keeps accrued hours weekly for 52 weeks. I would like to show a in another sheet what the accrued hours are for the current week.
The 2nd column for each week is in text format "6/1/09-6/7/09" and the last column shows the accrued hours for that week. I need to know how to find the current week from the text format?
View 9 Replies
View Related
Jun 3, 2007
I am trying to run a VB script that will copy data from 3 worksheets and past it into 3 New worksheets, sort that data into alpha order then delete all rows containing Zeros that may be found in Column B, Then copy that data from the 3 New worksheet back into the original 3 worksheets.
The copying and sorting of the data from one sheet to another is easy. The problem is trying to delete the zeros found in column B once its been copied over into the 3 New worksheets.
The script I am using to delete any Zeros found in Column B is below.
If I try to use this script more then once, so that I can delete all the zeros found in column B on all the New worksheets I get this error “Duplicate declaration in current script”
Is there a way for me to refer back to this script instead of me trying to past it more then once within the VB script.
Application. ScreenUpdating = False
Application.Calculation = xlCalculationManual
Const StartRow As Long = 1 'Row to Start looking at
Dim StopRow As Long
Dim Col As Long
Col = ActiveCell.Column
StopRow = Cells(Rows.Count, Col).End(xlUp).Row
Dim cnt As Long
For cnt = StopRow To StartRow Step -1
If Not IsEmpty(Cells(cnt, Col)) Then
If IsNumeric(Cells(cnt, Col)) Then
If Cells(cnt, Col) = 0 Then Rows(cnt).Delete
End If
End If
Next cnt
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Please see attached workbook. You will understand it better once you see the workbook and the VB script in it.
View 6 Replies
View Related
Jun 28, 2009
I get an error: Duplicate declaration in current scope? The formula calculates the compound annual growth rate.
View 5 Replies
View Related
Jul 14, 2009
I have only recently started to learn VBA and have been putting it to practice in creating userforms to help people at my work to be able to timetable more quickly.
I have realised however that in many cases the basic code that I have been using could often be improved. However in the sections below I have not been able to work this out for myself. This needs to be done as after a large number of worksheets exists excel gradually gets slower and slower when running the macros.
View 14 Replies
View Related
Feb 17, 2012
I have the following code which performs the same action on 2 different tabs within the same workbook:
Dim Rng As Range, Dn As Range
Set Rng = Range(Range("O1"), Range("O" & Rows.Count).End(xlUp))
Rng.NumberFormat = "@"
For Each Dn In Rng
If Len(Dn) < 7 Then Dn = String(7 - Len(Dn), "0") & Dn
Next Dn
i get the following error:
Compile Error: Duplicate declaration in current scope
View 5 Replies
View Related
Mar 14, 2012
I was wondering how I could highlight duplicate words or in a text strings of 5 or more words, 6 or more words etc or a desired value within a document? It would be great if I could highlight the cell with duplicate word in yellow. Essentially I was hoping that this could be done using VB/macro with just a simple button loaded on the toolbar. I hope that my explanation is easy enough to follow. Below is an example:
, KERK STRAAT 13,ROBERTSON,ROBERTSON,6705
View 9 Replies
View Related
Aug 19, 2013
I have multiple columns / rows of data, some of which are duplicates.
Column S is a concat of columns A:R where this data is stored, and is sorted alphabetically.
I'm looking for a way using VBA to find duplicate concat rows by cycling through this list that is already sorted. I'm interested in moving down this list, 1 by 1, and if current cell = cell above, delete the data in columns A:P of that row, then delete the cell data in column R of the cell above the current cell.
So for example, if I have sorted data in S8:S14, and S9 = S8, then I would like to delete A9:P9, then delete the data in R8.
View 3 Replies
View Related
Feb 29, 2008
I have a set of data which are deal numbers
So week 1 i could have
Deal
ASD
ADF
AGF
Then next week i would get another list of deals
ASD
AHJ
ADF
AGF
AIG
Is there a formula i can use which well tell me if a new deal has been entered in the following week.
So in the above AHJ and AIG would be new deals
(i would simply copy the deals and put them in Column A and B and the formula to go in column c)
View 9 Replies
View Related
Nov 24, 2008
I have columns B3 C3 and D3
Each have the header below
net_addr1net_addr2net_addr3
It looks like this
net_addr1net_addr2net_addr3
3 0 0
I have 3456 rows that have IP addresses. I need to either highlight the duplicate IP address and or use column I3 to put a word "Duplicate"
View 9 Replies
View Related
Jun 18, 2014
I have two spreadsheets of "leads"
One lead is a do not call list that has 4 separate columns of phone numbers,
The second list is a batch I purchased.
I need to make sure that the second batch does not contain the info from the first spread sheet.
I guess I could modify the 1st spreadsheet to just be one column of numbers, then I would be comparing one column to one column.
View 5 Replies
View Related
Jan 27, 2014
Any way of finding particular data from a data set and deleting the data from that field without using conditional formatting or remove duplicates?
I have used a vlookup to find the words that I needed I now need to find where the are located in my original data set and delete these so I am left with data that if I perform a vlookup on it will not bring back any words as they will have been deleted.
View 4 Replies
View Related
Feb 4, 2014
I use this code below to copy information from various sheets on to one sheet,
PHP Code:Â
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim xrow As Integer, xcol As Integer
[code]....
i use a command button to run the macro, but i would like something added that if someone else pressed the button and ran it again that it would check to see if it had duplicated the previous line and if it did it would delete it leaving just the one record for that week.
View 7 Replies
View Related
Jun 9, 2009
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 Related
Aug 5, 2007
I deal with leads for a sales room and get sent over leads in bulk, I've created a master scrub list that I can attach to the end of a new lead file and sort by number to show which are duplicates.
When you do the: Data, Filter, Advanced Filter, select Unique Records, it hides the duplicate but what I need is not only for the duplicate to be hidden or gone but the row that it is a duplicate of, i.e. I need BOTH rows to go
Name-----number
Dave 555-1212
Dave 555-1212
John 536-2343
Smith 423-2312
needs to become
Name-----number
John 536-2343
Smith 423-2312
I would need a formula that figured out that Dave with number 555-1212 was a duplicate and delete BOTH rows,
View 10 Replies
View Related
Jun 20, 2013
I have a spreadsheet I use for creating golf score cards. I select the golfers from a drop down list and display a message if a golfer has already been selected. The ranges I want to use are A7:A15, A25:A33, A43:A51, A60:A68. My code is below and I am getting an error saying 'compile error, argument not optional' and UNION is highlighted.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union(Range("A7:A15, A25:A33, A43:A51, A60:A68"))) Is Nothing Then
With WorksheetFunction
[Code]....
View 2 Replies
View Related
Aug 20, 2008
Wondering if there is a way, script-wise or formula-wise that will look through a table and find duplicates but not just any duplicates, it has to match a certain criteria.
For example, I have a column for UPC and Vendor#. I have my table sorted by vendor (all 159 of them in one table) I want to find out whether a UPC appears more than once for a vendor.
UPC --- Vendor
11254 135
11251 135
11251 135
11254 9345
11251 9345
Here, as you can see, UPC 11251 appeared more than once for vendor 135. Can this be done through conditional formatting ? or a script?
View 9 Replies
View Related
Dec 5, 2009
I have a lengthy excel spreadsheet in which I catalog all of my Karaoke song collection. I would like to be able to automatically locate (not delete) cells in which there are duplicate song titles. For my purposes just finding these items quickly so I may deal with them in a manner I've already developed is all I want to do. VBA, Macro or whatever would be appreciated. I'm a relative novice with macros and VBA.
For example row 12 may have the song title "Crazy" in column C and later row 1200 may have the same song title. Manually searching the spreadsheet for dupliates is way too time consuming so I think it can be seen why I'm looking to unlock the power of excel to do this for me.
View 9 Replies
View Related
Oct 27, 2011
I am trying to automate the creation of 3 pivot tables. At first I was having a problem with deselecting all items in the drop-down except one, then I found the code to fix it.
I replaced this code:
ActiveSheet.PivotTables("PivotTable15").PivotFields( _
"Beta")
.PivotItems("Escalated").Visible = False
.PivotItems("Hang Up").Visible = False
.PivotItems("New Hire Requests").Visible = False
.PivotItems("No Trouble Found").Visible = False
.PivotItems("Priority Exchange").Visible = False
[code].....
This fixed the problem, but there are still two other pivot tables that need to be created after this first one. I scrolled down through the code and deleted the other code blocks for the selection of the PivotItems and replaced it with the code above, but then when I ran it I got the "Compile Error: Duplicate Declaration in current scope".
I read more through the forum and realize that it's because VBA is dimensioning it twice, and I read that you're supposed to Dimension at the beginning of your program, but how do I implement this into my coding?
I can't dimension literally at the start of the code, there is some formatting that needs to take place first. (Basically I paste in a bunch of data into Sheet1 of my workbook, center it, space it out, then insert a pivot table into the pre-existing Sheet2 based on that data, filtered on the blank entries in Column N. Then I need to create ANOTHER pivot table based on that same data in Sheet1, but filtered on the blank entries in Column O. Then I center the words in the Pivot tables' headers in Sheet2, and finally I need to create one last pivot table on pre-existing Sheet3 based on the data on Sheet1, filtered for 2 specific entry types in Column N.)
View 2 Replies
View Related
