Yasser Fathi Albanna قام بنشر فبراير 12, 2015 قام بنشر فبراير 12, 2015 السادة الأفاضل لدى ملف يقوم بفلترة المكرر بما أمامه أى المتشابهين أريد تغيير الكود ليقوم بفرز المكرر من الأسماء مع جمع إجمالى المبيعات للإسم بعد فرزة من المكرر والكود هو 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 قام بنشر فبراير 12, 2015 قام بنشر فبراير 12, 2015 أخى الفاضل م.ياسر تفضل الملف المرفق لربما به طلبك تحياتي فرز المكرر بإجمالى مبيعاته.rar
Yasser Fathi Albanna قام بنشر فبراير 12, 2015 الكاتب قام بنشر فبراير 12, 2015 سلمت يمينك أستاذى الفاضل / ibn_egypt رائع جزاك الله كل خير هل يمكن أن يقوم الكود بترتيب المكرر أبجدى
أفضل إجابة ibn_egypt قام بنشر فبراير 12, 2015 أفضل إجابة قام بنشر فبراير 12, 2015 سلمت يمينك أستاذى الفاضل / ibn_egypt رائع جزاك الله كل خير هل يمكن أن يقوم الكود بترتيب المكرر أبجدى اخى الفاضل م.ياسر جزانا الله واياك كل خير، شاهد الملف المرفق تحياتي فرز المكرر بإجمالى مبيعاته.rar
Yasser Fathi Albanna قام بنشر فبراير 12, 2015 الكاتب قام بنشر فبراير 12, 2015 أخى الفاضل / ibn_egypt تعجز كلماتى عن شكرك بجد سلمت يمينك وأطال الله عمرك جزاك الله كل خير ألف ألف شكر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.