كود جمع خلايا بشرط

[محمد عبد الناصر]

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

عايز كود اجمع الخليه A1 = A2+A3 بشرط لا يوجد شيت بنفس الناتج 

يعني لو الناتج 24 وفي شيت موجود اسمه 24 ميجمعش لو مفيش شيت 24 يجمع عادي 
 

شكرا اساتذتنا الكرام ،،،،،

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

جرب هذا االملف

الكود

Sub crazy_sum()
Dim arr()
Dim i%
    For i = 1 To Sheets.Count
        ReDim Preserve arr(1 To i)
        arr(i) = Sheets(i).Name
    Next
  On Error Resume Next
  With Sheets("Sheet1")
   .Range("a1") = IIf(IsError(Application.Match(CStr(.Range("a2") + _
   .Range("a3")), arr, 0)), Evaluate("=sum(a2:a3)"), vbNullString)
   End With
End Sub

الملف مرفق

 

Crezy_Book.xlsm