ترتيب حقول اكسل المتكررة

[AMMARooo]

السلام عليكم جمعياً ...

عندي مشكلة يا ريت تساعدوني بحلها

بدي معادلة تحط ترتيب للاسماء المكررة ( الاسم الاكثر تكرارا ) 

عندي اسماء محلات يسحبوا بضاعة مني بشكل يومي 

فبدي اعمل ترتيب لاعرف اكثر المحلات اللي تشتري ومن المحلات اللي لا تتكرر

الحقل F + الحقل G حسب الملف الذي تم ارفاقه 

وشكرا

رابط ملف الاكسل

[أحمد يوسف]

من فضلك عليك بعمل ضغط للملف ورفعه داخل المنتدى فلا يمكن تحميله من هذا الرابط

فلا تستعجب لعدم الرد عليك الى الأن فانت الذى قمت بهذا لأنك قمت برفع الملف على رابط خارجى فلا يمكن تحميله

[AMMARooo]

السلام عليكم جمعياً ...

عندي مشكلة يا ريت تساعدوني بحلها

بدي معادلة تحط ترتيب للاسماء المكررة ( الاسم الاكثر تكرارا ) 

عندي اسماء محلات يسحبوا بضاعة مني بشكل يومي 

فبدي اعمل ترتيب لاعرف اكثر المحلات اللي تشتري ومن المحلات اللي لا تتكرر

الحقل F + الحقل G حسب الملف الذي تم ارفاقه 

تم ارفاق ملف جديد لعدم عمل الملف السابق

وشكراا

مبيعات.rar

[AMMARooo]

تمام استاذ احمد لح ارجع نزل بوست جديد مع ملف جديد

[هانى محمد]

تفضل

 

مبيعات.rar

[سليم حاصبيا]

جرب هذا الملف صفحة Salim

لا أعلم لما حجم الملف كبير بهذا الشكل

Maba3at.xlsx

[Ali Mohamed Ali]

ابداع استاذ سليم معادلات رائعة بارك الله فيك

[AMMARooo]

شكرا كتير عالملفين ما قصرتوا ابدا 

[سليم حاصبيا]

‍نفس الملف لكن بواسطة 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

[Ali Mohamed Ali]

بالتأكيد ملف وكود ممتاز جعله الله في ميزان حسناتك