تعديل على كود ليعمل على اي ورقة كموديل

[علي العابد]

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

 

اخواني الافاضل المطلوب التعديل على الكود وهو للدالة  Count لاضعه في موديل ليعمل على اي ورقة دون تحديد اسم الورقة مرفق مثال بسيط للتعديل عليه

Count.rar

[ibn_egypt]

اخى الفاضل

 

جرب الملف المرفق لربما به طلبك

 

تحياتي  

Count.rar

[طارق محمود]

السلام عليكم

أخي العزيز

وضعت لك الكود في حدث الملف وليس حدث الورقة

سيتم تفعيله في أي ورقة يتم تنشيطها أوتوماتيك

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[C1] = Application.WorksheetFunction.Count(ActiveSheet.[B3:B150])
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [C1]) Is Nothing Then
[C1] = Application.WorksheetFunction.Count(ActiveSheet.[B3:B150])
End If
End Sub

الكودين كلاهما  في حدث الملف
الأول بمجرد إختيار أي ورقة يتم تفعيله

الثاني بمجرد تغيير في الورقة النشطة (أي ورقة) يتم تفعيله
وتم استثناء من ذلك الا يكون التغيير في الخلية C1

Count 2.rar

[طارق محمود]

أخي إبن مصر (الجميل)

عفوا رأيت مشاركتك بعد ردي

[ibn_egypt]

أخي إبن مصر (الجميل)

عفوا رأيت مشاركتك بعد ردي

 

عفوا على ايه استاذي .. ده انا أتطلع لأى مشاركة لحضرتك لنزداد من علمك، زادك الله علما وفضلا أستاذي وكل عام وانت واسرتك الكريمة بألف خير

 

تحياتي  

[علي العابد]

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

 

 

[C1] = WorksheetFunction.CountA(Range(Cells(3, "B").Address, Cells(Rows.Count, "B").Address))