طلب كودمختصر للتحقق من عدد الأسطر التي بها بيانات ابتداء من: C18

[hicham2610]

السلام عليكم

من فضلكم

مالكود الصحيح الواجب وضعه في الزر الأول العلوي من ورقة البرنامج في ملف P.xlsm

ليتحقق بشكل سليم من النقط الموضوعة بكل من الورقة 1 و 2

بقيت مشكلة في كود عدد الأسطر التي بها بيانات في عمود : c ابتداء من السطر:18 (الأرقام بالعمود تكون غير متسلسلة)

الرقم السري للدخول للأكواد(الضغط على المسطرة 3مرات)

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

 

1.rar

[hicham2610]

هل من اقتراح إخوتي الكرام

عدلت في الملف لكن دون فائدة

لا يتحقق بالشكل المطلوب

 

11.rar

[hicham2610]

السلام عليكم

الحمد لله وجدت الحل

nb1 = Application.CountIf(Range("C18:C500"), "*")

أضع هنا تعميما للفائدة لمن احتاجه,

تم تعديل مارس 17, 2017 بواسطه hicham2610