جلب بيانات صف استناداً لشرطين

[الســـــــاهر]

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

الاخوة الافاضل اسرة منتديات اوفيسنا        المحترمين

اريد كود يحسب الناس اللي في العامود A  كم اشترو وكم باعو كلا على حدا  علما ان الاسماء قد تصل الى 100

وبعدها يقوم بفرز الاشخاص اللي مشترياتهم اكبر من مبيعاتهم وادراجها في الصفحة الثانية بالعامود A

 

مرفق ملف للتوضيح

 

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

Book1.xlsx

[أبوعيد]

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

تفضل جرب هذا

book1 معدل.xlsx

[lionheart]

Sub Test()
    Dim a, temp, dict As Object, buy As Double, sell As Double, i As Long, x As Long
    Set dict = CreateObject("Scripting.Dictionary")
    With Sheets("Sheet1").Cells(2).CurrentRegion
        a = .Value: ReDim temp(1 To UBound(a), 1 To 3)
        For i = 2 To UBound(a)
            If Not dict.Exists(a(i, 1)) Then
                dict.Add a(i, 1), ""
                buy = Application.WorksheetFunction.SumIfs(.Columns(7), .Columns(1), a(i, 1), .Columns(2), "BUY")
                sell = Application.WorksheetFunction.SumIfs(.Columns(7), .Columns(1), a(i, 1), .Columns(2), "SELL")
                If buy > sell Then x = x + 1: temp(x, 1) = a(i, 1): temp(x, 2) = buy: temp(x, 3) = sell
            End If
        Next i
    End With
    With Sheets("Sheet2")
    .Columns(1).ClearContents
    .Range("A2").Value = "Market"
    .Range("A3").Resize(x, 1) = temp
    End With
End Sub

 

[الســـــــاهر]

الاخ الفاضل أبو عيد

بارك الله لك في علمك هذا هو المطلوب لم اتوقع انه ممكن يتعمل بالمعادلات ... جزاكم الله خير

الاخ الفاضل قلب الاسد (Lionheart)

ماشاء الله كود رائع وسريع التنفيذ بارك الله لك في علمك هذا هو المطلوب ... جزاكم الله خير

[سمير نجار]

السلام عليكم

أليس هذا الكود يجلب الاسماء مع المبيع والشراء ؟

لانه يجلب الاسماء فقط

 

[lionheart]

You can change number 1 in this line with 3

.Range("A3").Resize(x, 1) = temp