K
Kari
I want to add a the word "Duplicate" to the blank field next to an
duplicate enteries in a column, except for the first one.
I have a working Macro that replaces the duplicate enteries, except th
first one, with "Duplicate". I found another (Formula) that places th
word "Duplicate" in the column next to any duplicated record, but can
get this one to work.
Is there a way to combine these two for the desired results?
Below is the macro and the formula used:
Micro:
Sub FixDuplicateRows()
Dim RowNdx As Long
Dim ColNum As Interger
ColNum = Selection(1) .Column
For RowNdx = Selection(Selection.Cells.Count) .Row To_
Selection(1) .Row + 1 Step -1
If Cells (RowNdx, ColNum) .Value = Cells(RowNdx -1, ColNum) .Value The
Cells(RowNdx, ColNum) .Value = "Duplicate"
End If
Next RowNdx
End Sub
Formula:
=IF(COUNTIF(Range1,A2)>1,"Duplicate","")
Thanks in advance for any help.
--Kar
duplicate enteries in a column, except for the first one.
I have a working Macro that replaces the duplicate enteries, except th
first one, with "Duplicate". I found another (Formula) that places th
word "Duplicate" in the column next to any duplicated record, but can
get this one to work.
Is there a way to combine these two for the desired results?
Below is the macro and the formula used:
Micro:
Sub FixDuplicateRows()
Dim RowNdx As Long
Dim ColNum As Interger
ColNum = Selection(1) .Column
For RowNdx = Selection(Selection.Cells.Count) .Row To_
Selection(1) .Row + 1 Step -1
If Cells (RowNdx, ColNum) .Value = Cells(RowNdx -1, ColNum) .Value The
Cells(RowNdx, ColNum) .Value = "Duplicate"
End If
Next RowNdx
End Sub
Formula:
=IF(COUNTIF(Range1,A2)>1,"Duplicate","")
Thanks in advance for any help.
--Kar