أين الخطأ في هذه الدالة بارك الله فيكم

[علي بطيخ سالم]

هذه الدالة حاولت تطبيقها على هذا الملف لكن لم تعمل معي 

=IF(ROWS($O$3:O3)>SUM(N:N);"";INDEX($M$3:$M$200;MATCH(FALSE; COUNTIF($O$2:O2;$M$3:$M$200)= $B$3:$B$200;0)))

استاذ سليم.xlsx

[علي بطيخ سالم]

وهذا هو الملف الأصلي الذي قمت بنسخ الدالة منه وهو خاص بالأستاذ سليم حصبا بارك الله فيه

الملف الأصلي.xlsx

[علي بطيخ سالم]

تطبيق هذا الكود على نفس الملف 

Option Explicit
Sub copy_as_you_want()
Dim i, c As Integer
Dim Cont
Dim Lr As Long
Lr = ActiveSheet.Cells(Rows.count, 3).End(3).Row

Range("c3:c" & Lr).ClearContents
i = 3
c = 3

  Do While Cells(i, 1) <> ""
    Cont = Cells(i, 1).Offset(0, 1).Value
        If Not IsNumeric(Cont) Or Cont = "" Or Cont = 0 Then i = i + 1: GoTo 1
        Cont = Int(Abs(Cont))
     Range("c" & c & ":c" & c + Cont - 1).Value = Cells(i, 1).Value
    i = i + 1
    c = c + Cont
1:
  Loop
End Sub

[Emad Sabry]

كان فى خطأ عند count if المفروض تكون o2 مش o3

والمفروض تدوس ctrl + shift +enter لكى تعمل الدالة

 

استاذ سليم.xlsx

تم تعديل نوفمبر 19, 2018 بواسطه Emad Sabry

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

استبدل  الحرف Bفي هذا الجزء من المعادلة بالحرف N

COUNTIF($O$2:O2;$M$3:$M$200)= $B$3:$B$200

 

[علي بطيخ سالم]

لا أدري كيف أشكرك استاذ سليم والله أنت علامة ماشاء الله عليك 

 

[علي بطيخ سالم]

6 دقائق مضت, سليم حاصبيا said:

 

 

16 دقائق مضت, Emad Sabry said:

كان فى خطأ عند count if المفروض تكون o2 مش o3

والمفروض تدوس ctrl + shift +enter لكى تعمل الدالة

 

استاذ سليم.xlsx

شكراً لك استاذ عماد وصلت المعلومة وجزاك الله خيراً أستاذنا