Find Duplicates & highlight row

[danushka]

Dear friends in my excel sheet base on column "D" i want find all Duplicate & highlight that whole row in yellow.......pls make macro for this..i need only run this macro in my section.i don't want to find whole duplicates in column "D"...

ex- if i select A5 to K50 then this macro should run on that range only....

pls help me.thanks in advance......

 

[VoG]

Try

Sub Dups()
Dim iRow As Long, nRow As Long, iCol As Long, nCol As Long
Dim i As Long
iCol = Selection.Column
nCol = iCol + Selection.Columns.Count - 1
iRow = Selection.Row
nRow = iRow + Selection.Rows.Count - 1
For i = iRow To nRow
    If WorksheetFunction.CountIf(Range(Cells(iRow, 4), Cells(nRow, 4)), Cells(i, 4)) > 1 Then
        Range(Cells(i, iCol), Cells(i, nCol)).Interior.ColorIndex = 6
    End If
Next i
End Sub

 

[danushka]

Try

Sub Dups()
Dim iRow As Long, nRow As Long, iCol As Long, nCol As Long
Dim i As Long
iCol = Selection.Column
nCol = iCol + Selection.Columns.Count - 1
iRow = Selection.Row
nRow = iRow + Selection.Rows.Count - 1
For i = iRow To nRow
    If WorksheetFunction.CountIf(Range(Cells(iRow, 4), Cells(nRow, 4)), Cells(i, 4)) > 1 Then
        Range(Cells(i, iCol), Cells(i, nCol)).Interior.ColorIndex = 6
    End If
Next i
End Sub

wow thanks a lot sir.it's work very well........