حالة مقاربة

[fcadao23]

السلام عليكم هل من مساعدة 

Etat de developpement de solde - Copie.xlsx

[محي الدين ابو البشر]

Sub test()
    Dim a, i, x
    With ActiveSheet
        x = Cells(4, 9)
        a = Range(Cells(4, 4), Cells(40, 4))
        For i = 1 To UBound(a)
            If a(i, 1) = x Then: a(i, 1) = Empty
        Next
        .Cells(4, 12).Resize(UBound(a)) = a
    End With
End Sub

 

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

لا حاحة للكود في مثل هذه الحالة

تكفي هذه المعادلة (Ctrl+Shift+Enter)

=IF(ROWS($K$4:K4)>ABS(COUNTIF($D$4:$D$100,"<>"&$G$4)-COUNTBLANK($D$4:$D$100)),"",INDEX($D$4:$D$100,SMALL(IF($D$4:$D$100<>"",IF($D$4:$D$100<>$I$4,ROW($D$4:$D$100)-ROW($D$4)+1)),ROWS($K$4:K4))))

الملف مرفق

 

Copie.xlsx

[fcadao23]

السلام عليكم بارك الله فيكم يا إخوتي محي الدين وسليم 

الفكرة رائعة ولكن مازال هناك نوع من الإلتباس هو ليس فقط كتابة مبلغ أو رقم في الخانة الأولى يعني أريد أن اكتب عدة مبالغ والمشكل الثاني عندما يكون عندي مبالغ متشابهة فأريد أن ينقص المبلغ تباعا 

بصفة أوضح كلما اكتب مبلغا في العمود I ينقص وإذا كانت المبالغ متشابهة تنقص بعدد المبالغ 

لقد كانت فكرتي إستعمال البحث ثم إنقاص المبلغ لكن البحث عندما يتعلق بنفس المبالغ لا يجدي 

Etat de developpement de solde.xlsx