Vba to highlight the cell and remove duplicates

[ashupuneet]

HI
I need a help in preparing a macro which identify the duplicate in column C of sheet1 followed by removing old row and retain new row but before deletion of old row i wish to highlight the cell in color red of new row (which is retained after duplicate remove) where values has changed between duplicate old row and new row.
if possible also that changed value insert as comment in new row cell in same column.

Now i am using this macro to identify the duplicate and remove old entries
Sub Delete_Dups_Keep_Last()
Dim i As Long
Dim j As Long
Worksheets("Sheet1").Activate
Dim ROW_DELETED As Boolean
i = 2 'start on second row
Application.ScreenUpdating = False
Do While i <= Sheets("Sheet1").UsedRange.Rows.Count
ROW_DELETED = False
For j = i + 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 3) = Cells(j, 3) Then
Rows(i).Delete
ROW_DELETED = True
Exit For
End If
Next j
If Not ROW_DELETED Then i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

In sheet 1 row 3 and row 9 having duplicate value in column C and wish to highlight and insert changed value as a comment in row 9.

Confirmed delivery date

STP

MO

Long Description

Prod. Line

Prod

Area Crop

Order Type

Supplier

Finish date (DMY)

Kg's

Packages / TH's

TH's

1

1337972

WMW XXX

OK

CCP

XP1

2/7/2017

262.761

2628.661

1

1337975

WMW XXX

OK

CCP

XP1

2/7/2017

285.72

2843.77

1

1337976

WMW XXX

OK

CCP

XP1

2/7/2017

260.381

2615.787

1

1337978

WMW XXX

OK

CCP

XP1

2/9/2017

277.352

2855.618

1

1337980

WMW XXX

OK

CCP

XP1

2/9/2017

240.667

2439.644

1

1337981

WMW XXX

OK

CCP

XP1

2/9/2017

280.345

3005.02

1

1337982

WMW XXX

OK

CCP

XP1

2/10/2017

276.225

2894.56

1

1337975

WMW XXX

OK

CCP

XP1

2/10/2017

247.926

2861.062

<colgroup><col width="57" style="width: 43pt; mso-width-source: userset; mso-width-alt: 1824;"> <col width="23" style="width: 17pt; mso-width-source: userset; mso-width-alt: 736;"> <col width="63" style="width: 47pt; mso-width-source: userset; mso-width-alt: 2016;"> <col width="203" style="width: 152pt; mso-width-source: userset; mso-width-alt: 6496;"> <col width="40" style="width: 30pt; mso-width-source: userset; mso-width-alt: 1280;"> <col width="48" style="width: 36pt; mso-width-source: userset; mso-width-alt: 1536;"> <col width="40" style="width: 30pt; mso-width-source: userset; mso-width-alt: 1280;" span="2"> <col width="23" style="width: 17pt; mso-width-source: userset; mso-width-alt: 736;"> <col width="71" style="width: 53pt; mso-width-source: userset; mso-width-alt: 2272;"> <col width="63" style="width: 47pt; mso-width-source: userset; mso-width-alt: 2016;"> <col width="40" style="width: 30pt; mso-width-source: userset; mso-width-alt: 1280;"> <col width="71" style="width: 53pt; mso-width-source: userset; mso-width-alt: 2272;"> <tbody> </tbody>

Thanks in Advance

 

[MARK858]

Please post links if you are going to cross-post
Vba to highlight the cell and remove duplicates

 

[ashupuneet]

Hi
I am not a regular visitor to this forum & was not aware with this " cross post", can any one have solution for my query?

Thanks