مطلوب تطوير لكود الاستاذ عماد الحسامى مع اختلاف الشيتات

[عادل ابوزيد]

اساتذتى الاعزاء

بالمرفق عدد 2 ملف الاول تم تطويره ليشمل اكثر من شرط عند تنفيذ الكود البديل لدالة sumproduct وهذا الكود بديل ايضاً لدالة vlookup

والمطلوب فى الملف الثانى وهو تنفيذ هذا الكود عندما تكون البيانات فى شيت 2 والتنفيذ يكون فى شيت 1

واليكم رابط الموضوع الاساسى للاستاذ عماد الحسامى

http://www.officena.net/ib/index.php?showtopic=32650

 

الملفات.rar

[عبدالله باقشير]

السلام عليكم

جرب هذا

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("a2:a50000")) Is Nothing Then
sum1 = 0
Target.Offset(0, 1).Value = 0
With Sheets("Sheet2")
    z = Application.CountA(.Range("j2:j5000"))
    For i = 2 To z + 2
        If Target.Value = .Cells(i, 10).Value And .Cells(i, 13) = 5 Then
            sum1 = sum1 + .Cells(i, 12).Value
            Target.Offset(0, 1).Value = .Cells(i, 11).Value
        End If
    Next i
End With
Target.Offset(0, 2).Value = sum1
End If
End Sub

تحياتي

[عادل ابوزيد]

استاذنا الكبير المبدع عبد الله باقشير

لمسات ابداعية امضاء عبد الله باقشير

بالمرفق الملف بعد اضافة الكود ليستفيد من يريد

زادك الله من علمه وفضله واحسانه

كود VLOOKUP & SUMPRODUCTل_مع اختلاف الصفحات.rar

[accTAREK]

بارك الله فيكم جميعا 

ولكن عند تعديل البيانات الأساسية بالشيت الأول لا يتم تعديلها أوتوماتيكيا بالشيت الثاني ...

 

وشكرا ،،،