Highlight Duplicate Records using Vba

[Dinesh_Excel]

Hello Friends,

I need some help regarding find duplicates from column F and rename column CF as "Yes" and "No" if there are any duplicate records in F.

Appreciate your help here.

Attached sheet for your reference.

 

[vletm]

Dinesh_Excel
As You wrote
... press [Duplicates]-button

 

[Dinesh_Excel]

Thanks Vletm ...perfect as always

Appreciate your help

 

[Dinesh_Excel]

Hi Vltem,

A small change , I wanted to run this on the sheet name called "KPI".
so can we change the

With ActiveSheet

to

With Sheets("KPI").Select



----------------------------------------------------------------------------

Sub Do_It()
    Application.ScreenUpdating = False
    With ActiveSheet
        f_max = .Cells(.Rows.Count, "F").End(xlUp).Row
        For f = 2 To f_max
            chk_f = .Cells(f, 6)
            ff = WorksheetFunction.CountIf(.Range("F2:F" & f_max), chk_f)
            bg = xlNone
            msg = "No"
            If ff > 1 Then
                bg = 15
                msg = "Yes"
            End If
            .Cells(f, 6).Interior.ColorIndex = bg
            .Range("CF" & f) = msg
        Next f
        .Range("F1").Select
    End With
    Application.ScreenUpdating = True
End Sub

 

[vletm]

Dinesh_Excel
If You would like, that it's possible to use ONLY with 'KPI'-sheet then Okay.
use

with Sheets("KPI")

Original code works with 'any sheet', which is active, then You run that macro.

 

[Dinesh_Excel]

thanks Vletm