ربما كان المطلوب
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