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