Hello all,
I'm using the following to copy weekly sales quote info
to a running master list:

Sub quotestomaster()

Set Rng1 = Workbooks("JeffQuotes_weekly.xls"). _
Sheets("Sheet1").Range("B3:R22")
Set Rng2 = Workbooks("JeffActiveQuotes.xls"). _
Sheets("Sheet1").Range("A" & Rows.Count).End
(xlUp).Offset(1, 0)
Rng1.Copy Rng2
End Sub

Since each job name is unique (appears in column B of
weekly file, column A in master) I want to ensure that no
duplications occur on the master. So, I need to see if a
match exists and if so, either don't copy it in the first
place or delete the match after copying. Wondering if I
can do something (in theory) in the master like...

=IF(TEXT(A1,"abcdefghijklmnopqrstuvwxyz")
="abcdefghijklmnopqrstuvwxyz" Then
EntireRow.Delete

Thanks in advance for response!
Erin

Erin ,

Try this formula

=IF(COUNTIF($A$1:$A$100,A1)1, "Duplicate","")

put it in B1 on the Master and copy down, and it will highlight the
duplicates.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"erin" <espencer@wdprosdotcom wrote in message
...
Hello all,
I'm using the following to copy weekly sales quote info
to a running master list:

Sub quotestomaster()

Set Rng1 = Workbooks("JeffQuotes_weekly.xls"). _
Sheets("Sheet1").Range("B3:R22")
Set Rng2 = Workbooks("JeffActiveQuotes.xls"). _
Sheets("Sheet1").Range("A" & Rows.Count).End
(xlUp).Offset(1, 0)
Rng1.Copy Rng2
End Sub

Since each job name is unique (appears in column B of
weekly file, column A in master) I want to ensure that no
duplications occur on the master. So, I need to see if a
match exists and if so, either don't copy it in the first
place or delete the match after copying. Wondering if I
can do something (in theory) in the master like...

=IF(TEXT(A1,"abcdefghijklmnopqrstuvwxyz")
="abcdefghijklmnopqrstuvwxyz" Then
EntireRow.Delete

Thanks in advance for response!
Erin