مشكلة فى كود للأستاذ سليم حاصبيا

[مهند محسن]

السلام عليكم

قمت بتطبيق كود لأستاذى سليم على ملفى ولكن لم أفلح

وهو كود لتجميع اجمالى كل الصفحات الموجودة فى الشيت وايضا الصفحات التى سوف تزود فى المستقبل ووضعها فى صفحة اجمالى

واجمالى كل الصفحات المراد نقله لصفحة اجمالى يكون من الخلية C21 : E21

جزاكم الله كل خير-والشكر موصول لأستاذى ومعلمى سليم بارك الله فيه

 

اجمالي العملاء.xlsm

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

لم الحظ اي خطأ

على كل حال جرب هذا الماكرو الجديد

Sub Salim_code()
Dim ws      As Worksheet
Dim sh      As Worksheet
Dim lr2%
Application.ScreenUpdating = False
On Error GoTo 2:
Set sh = Sheets("اجمالي")
sh.Range("a2").CurrentRegion.Offset(1, 0).Clear
lr2 = 2
For Each ws In ThisWorkbook.Sheets
    If ws.Name <> "اجمالي" Then
     With ws
       sh.Cells(lr2, 1).Value = .Range("a1").Value
       sh.Cells(lr2, 2).Resize(, 3).Value = .Range("c21").Resize(, 3).Value
       lr2 = lr2 + 1
     End With
    End If
Next ws
 With sh.Cells(lr2, 1)
    .Value = "الإجمالي"
    .Offset(, 1).Resize(1, 3) = Evaluate("=SUM(B2:B" & lr2 - 1 & ")")
       With .Resize(1, 4)
        .Interior.ColorIndex = 3
        .Font.ColorIndex = 2
       End With
 End With
2:
Application.ScreenUpdating = True
End Sub

 

[مهند محسن]

أحسنت استاذى الكريم بارك الله فيك وهو المطلوب