ملف من عمل الاستاذ عمر الحسيني نرغب في تحويله الى كود بدلا من المعاملة

[skyblue]

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

اساتذتي المشرفين والاعضاء في المرفق ملف من عمل استاذنا الكبير عمر الحسيني ارغب في تحويله الى كود بدلا من المعادلات

لما للكود من اختصار وسرعة .

وتقبلوا تحياتي

[skyblue]

مرفق الملف

تحياتي

_____.rar

[نزار سليمان عيد]

اخي الحبيب skyblue السلام عليكم

انظر للمرفق هل هو ماتريد

مع تمنياتي للاخ ابو تامر بالشفاء العاجل آمين

_________________________.rar

تم تعديل يونيو 5, 2008 بواسطه نزار سليمان عيد

[skyblue]

الاستاذ : نزار سليمان شكرا على الرد

ولكن موضوع تحويل المعادلة الى كود لم يؤدي الغرض المطلوب حيث ان هذا التحويل لايعمل اليا - كود كبير جدا ويصعب التعديل عليه ...الخ .

بعكس لو كان الكود تم عمله بتسلسل منطقي .

تحياتي لك

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

السلام عليكم

جرب الكود التالي:

Sub KH_Tkrar()
On Error Resume Next
Set ww = Application.WorksheetFunction
Application.ScreenUpdating = False
[L4:P100].ClearContents
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
M = 4
For R = 4 To LastRow
       If ww.CountIf(Range("A4:A" & R), Cells(R, 1).Value) = 1 Then
          Cells(M, 12) = Cells(R, 1)
      M = M + 1
      End If
Next
'
Last = M + 3
For X = 4 To Last
  For V = 4 To LastRow
     If Cells(X, 12).Value = Cells(V, 1).Value Then
        For T = 2 To 5
            Cells(X, T + 11) = Val(Cells(X, T + 11)) + Val(Cells(V, T))
        Next
     End If
  Next
Next
On Error GoTo 0
End Sub

[skyblue]

خبور انت مخبور بالخير

لاأجد مااكافأك به الا الدعاء لك في ظهر الغيب أدعوا الله لك ياخبور بالتوفيق وان يجعل الله لك من كل ضيق مخرجا

حفظك الله من كل شر

[abbermustfa]

لاأجد مااكافأك به الا الدعاء لك في ظهر الغيب أدعوا الله لك يا أستاذ خبور بالتوفيق

وان يجعل الله لك من كل ضيق مخرجا

يارب اعط استاذنا خبور كل طيب

[ابو ناره]

مشكووووووووووووووووووووووووووووووووووووووووور