fcadao23 قام بنشر ديسمبر 8, 2019 مشاركة قام بنشر ديسمبر 8, 2019 السلام عليكم هل من مساعدة Etat de developpement de solde - Copie.xlsx رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر ديسمبر 8, 2019 مشاركة قام بنشر ديسمبر 8, 2019 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 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 9, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 9, 2019 لا حاحة للكود في مثل هذه الحالة تكفي هذه المعادلة (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 3 رابط هذا التعليق شارك More sharing options...
fcadao23 قام بنشر ديسمبر 9, 2019 الكاتب مشاركة قام بنشر ديسمبر 9, 2019 السلام عليكم بارك الله فيكم يا إخوتي محي الدين وسليم الفكرة رائعة ولكن مازال هناك نوع من الإلتباس هو ليس فقط كتابة مبلغ أو رقم في الخانة الأولى يعني أريد أن اكتب عدة مبالغ والمشكل الثاني عندما يكون عندي مبالغ متشابهة فأريد أن ينقص المبلغ تباعا بصفة أوضح كلما اكتب مبلغا في العمود I ينقص وإذا كانت المبالغ متشابهة تنقص بعدد المبالغ لقد كانت فكرتي إستعمال البحث ثم إنقاص المبلغ لكن البحث عندما يتعلق بنفس المبالغ لا يجدي Etat de developpement de solde.xlsx رابط هذا التعليق شارك 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.