مشخص کردن کالاهای تکراری در هر فاکتور و اجرا تا آخرین فاکتور

[REZA HEYDARI]

با سلام
یه شیت پر از فاکتور دارم و یه ماکرو واسش میخوام که هر فاکتور رو ببینه و اگه کالایی در یه فاکتور تکرار شده بود به وسیله conditional formatting - duplicate values بهم نشون میده
نکته اش اینجاست که هر فاکتور ممکنه تعداد کالاهاش با بقیه فرق داشته باشه یعنی همون تعداد سطر هاش
میخوام تا آخرین فاکتور این کار رو انجام بده
فایل رو هم ضمیمه کردم
ممنون میشم کمک کنید

[iranweld]

با سلام

فایل و ماکرو ذیل را بررسی بفرمایید


Sub TETS2()

Application.ScreenUpdating = False


Macro1

N = Cells(Rows.Count, "A").End(xlUp).Row

For I = 2 To N



For K = 3 To N

If Left(Range("D" & K).Value, 3) = "جمع" Then

Range("D" & K).Interior.ColorIndex = 17

J = Range("D" & K).Row - 1

End If




For J = I + 1 To J

If Range("D" & I).Value = Range("D" & J).Value Then

Range("D" & I).Font.ColorIndex = 3

Range("D" & J).Font.ColorIndex = 3

End If

Next: Next


Next

Application.ScreenUpdating = True