كود فرز المكرر بإجمالى مبيعاته

[Yasser Fathi Albanna]

السادة الأفاضل

لدى ملف يقوم بفلترة المكرر بما أمامه أى المتشابهين

أريد تغيير الكود

ليقوم بفرز المكرر من الأسماء مع جمع إجمالى المبيعات للإسم بعد فرزة من المكرر

والكود هو

Sub Duplicata()
Set MySheet = Sheets("Filter")
With MySheet
Last = .Cells(Rows.Count, "D").End(xlUp).Row + 1
.Range("D4:F" & Last).ClearContents
x = 4
Application.ScreenUpdating = False
Dim i As Integer
        For i = .Range("B" & Rows.Count).End(xlUp).Row To 4 Step -1
            If WorksheetFunction.CountIf(.Range("B4:B" & i), .Range("B" & i).Value) = 1 Then
.Range("B" & i).Resize(1, 2).Copy
.Range("D" & x).PasteSpecial Paste:=xlPasteValues
x = x + 1
            End If
        Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End With
End Sub

ولكم خالص الشكر والتقدير

مرفق الملف

فرز المكرر بإجمالى مبيعاته.rar

[ibn_egypt]

أخى الفاضل م.ياسر

 

تفضل الملف المرفق لربما به طلبك

 

تحياتي  

فرز المكرر بإجمالى مبيعاته.rar

[Yasser Fathi Albanna]

سلمت يمينك أستاذى الفاضل / ibn_egypt

رائع

جزاك الله كل خير

هل يمكن أن يقوم الكود بترتيب المكرر أبجدى

[ibn_egypt]

سلمت يمينك أستاذى الفاضل / ibn_egypt

رائع

جزاك الله كل خير

هل يمكن أن يقوم الكود بترتيب المكرر أبجدى

اخى الفاضل م.ياسر

 

جزانا الله واياك كل خير، شاهد الملف المرفق 

 

تحياتي  

فرز المكرر بإجمالى مبيعاته.rar

[Yasser Fathi Albanna]

أخى الفاضل / ibn_egypt

تعجز كلماتى عن شكرك

بجد سلمت يمينك وأطال الله عمرك

جزاك الله كل خير

ألف ألف شكر