جمع و عد في كل الشيتات

[hayyan alaa]

السلام عليكم

الاساتذة الافاضل و الاكارم

في ملفي المرف في الصفحة (mine)  اريد عند الكتابة في الخلية (a8) نوع الايصال

ان يتم احتساب عدد الايصالات في الخلية(b8) من كل الشيتات

علما ان عدد الشيتات يتزايد  باستمرار لذلك اريد ان يؤخذ ها  بعين الاعتبار

و شكرا سلفا

333.xlsm

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

جرب هذا الماكرو

Option Explicit

Sub MY_SUM()
  Dim sh As Worksheet, m As Worksheet
  Dim t As Long
  
  Set m = Sheets("mine")

For Each sh In Sheets
 If sh.Name Like "[a-zA-Z]" & "*#" Then _
 t = t + Application.CountIf(sh.Range("I:I"), m.Range("A8"))
Next
  m.Range("B8") = t
End Sub

 

[hayyan alaa]

استاذ سليم الف الف الف شكر و اعتذر عن التاخير في الرد و الشكر

و بالتاكيد لا نتاخر عن شكركم

ولكن ظروف خارجة عن ارادتي

و هي قطع الكهرباء و الشبكة

تم تعديل فبراير 3, 2020 بواسطه hayyan alaa