ادراج FORMULA عن طريق كود VBA

[tlayt kamal]

السلام عليكم

اخواني اهل الخبرة

لو كان ممكنا اريد كود VBA لادراج FORMULA تعطي مجاميع مدى (c6:c21); (d6:d21) ادا تحقق الشرط    والشرط هو اسم صفحة العمل في شيت TOTAL العمود A  

حفظكم الله

TOTAL.xlsm

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

ربما كان المطلوب

Sub Calcul_For_Me()
Dim i%, ALL%
Dim Fm1$, Fm2$
Dim st$
ALL = Sheets("Total").Cells(Rows.Count, 1).End(3).Row
If ALL < 5 Then Exit Sub
  With Range("B5:C" & ALL)
    .ClearContents
    .Interior.ColorIndex = xlNone
  End With
For i = 5 To ALL
    st = "ISREF('" & Cells(i, 1) & "'!A1" & ")"
    If Evaluate(st) Then
        Fm1 = "=SUM('" & Cells(i, 1) & "'!C6:C21)"
        Fm2 = "=SUM('" & Cells(i, 1) & "'!D6:D21)"
            ' Cells(i, 2).Formula = Fm1
            ' Cells(i, 3).Formula = Evaluate(Fm2)
         'OR for values Only
              Cells(i, 2) = Evaluate(Fm1)
              Cells(i, 3) = Evaluate(Fm2)
    Else
        Cells(i, 2) = "I cant Find This Sheet: " & _
        "" & Cells(i, 1) & ""
        Cells(i, 2).Interior.ColorIndex = 35
    End If
 Next
End Sub

الملف مرفق

tlayt kamal.xlsm

[tlayt kamal]

احسنت استادي سليم حاصبيا هذا هو المطلوب 

جزاك الله خيرا