AMMARooo قام بنشر يونيو 10, 2019 مشاركة قام بنشر يونيو 10, 2019 السلام عليكم جمعياً ... عندي مشكلة يا ريت تساعدوني بحلها بدي معادلة تحط ترتيب للاسماء المكررة ( الاسم الاكثر تكرارا ) عندي اسماء محلات يسحبوا بضاعة مني بشكل يومي فبدي اعمل ترتيب لاعرف اكثر المحلات اللي تشتري ومن المحلات اللي لا تتكرر الحقل F + الحقل G حسب الملف الذي تم ارفاقه وشكرا رابط ملف الاكسل رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يونيو 11, 2019 مشاركة قام بنشر يونيو 11, 2019 من فضلك عليك بعمل ضغط للملف ورفعه داخل المنتدى فلا يمكن تحميله من هذا الرابط فلا تستعجب لعدم الرد عليك الى الأن فانت الذى قمت بهذا لأنك قمت برفع الملف على رابط خارجى فلا يمكن تحميله رابط هذا التعليق شارك More sharing options...
AMMARooo قام بنشر يونيو 12, 2019 الكاتب مشاركة قام بنشر يونيو 12, 2019 السلام عليكم جمعياً ... عندي مشكلة يا ريت تساعدوني بحلها بدي معادلة تحط ترتيب للاسماء المكررة ( الاسم الاكثر تكرارا ) عندي اسماء محلات يسحبوا بضاعة مني بشكل يومي فبدي اعمل ترتيب لاعرف اكثر المحلات اللي تشتري ومن المحلات اللي لا تتكرر الحقل F + الحقل G حسب الملف الذي تم ارفاقه تم ارفاق ملف جديد لعدم عمل الملف السابق وشكراا مبيعات.rar رابط هذا التعليق شارك More sharing options...
AMMARooo قام بنشر يونيو 12, 2019 الكاتب مشاركة قام بنشر يونيو 12, 2019 تمام استاذ احمد لح ارجع نزل بوست جديد مع ملف جديد رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر يونيو 12, 2019 مشاركة قام بنشر يونيو 12, 2019 تفضل مبيعات.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يونيو 12, 2019 أفضل إجابة مشاركة قام بنشر يونيو 12, 2019 جرب هذا الملف صفحة Salim لا أعلم لما حجم الملف كبير بهذا الشكل Maba3at.xlsx 1 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 12, 2019 مشاركة قام بنشر يونيو 12, 2019 ابداع استاذ سليم معادلات رائعة بارك الله فيك 6 رابط هذا التعليق شارك More sharing options...
AMMARooo قام بنشر يونيو 13, 2019 الكاتب مشاركة قام بنشر يونيو 13, 2019 شكرا كتير عالملفين ما قصرتوا ابدا 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 13, 2019 مشاركة قام بنشر يونيو 13, 2019 نفس الملف لكن بواسطة vba Option Explicit Sub Get_Exrta_values() Dim Dic As Object Set Dic = CreateObject("Scripting.Dictionary") Dim S As Worksheet: Set S = Sheets("Sheet1") Dim T As Worksheet: Set T = Sheets("SALIM") Dim lrS%: lrS = S.Cells(Rows.Count, "b").End(3).Row Dim My_Rg As Range: Set My_Rg = S.Range("B2:b" & lrS) Dim My_max%: My_max = T.Range("h2") Dim k, m%: m = 2 T.Range("A" & m).CurrentRegion.Offset(1).ClearContents Dim i% Dim my_st, mY_val With Dic For i = 1 To My_Rg.Cells.Count mY_val = _ Application.CountIf(My_Rg, My_Rg.Cells(i)) If mY_val >= My_max Then my_st = My_Rg.Cells(i) If Not .Exists(my_st) Then Dic.Add my_st, 1 Else Dic(my_st) = _ Dic(my_st) + 1 End If End If Next With T.Cells(m, 1).Resize(.Count) .Value = _ Application.Transpose(Dic.keys) .Offset(, 1).Value = _ Application.Transpose(Dic.Items) .Offset(, 2).Resize(Dic.Count).Formula = _ "=SUMPRODUCT((Sheet1!$B$2:$B$100=$A2)*Sheet1!$D$2:$D$100)" End With With T.Range("A" & m).CurrentRegion .Value = .Value End With .RemoveAll End With End Sub الملف مرفق Mabi3at_With_vba.xlsm رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 13, 2019 مشاركة قام بنشر يونيو 13, 2019 بالتأكيد ملف وكود ممتاز جعله الله في ميزان حسناتك 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان