قوائم التلاميذ

[dah_med]

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

أولا معذرة لهذا الإنقطاع عن منتدانا الغالي وذلك لأسباب إجتماعية

هذا طلب لتكملة عمل سابق وهو قوائم التلاميذ

أريد أن أن تتغير الخلية التي بها مدير المؤسسة في الأسفل على حسب طول القائمة

مثلاإذا كان حدود القائمة في السطر 33

تأتي كلمة مدير المؤسسة في الخلية 35

وإذا إذا كان حدود القائمة في السطر 40

تأتي كلمة مدير المؤسسة في الخلية 42

وهكذا على حسب طول قائمة التللميذ

وجزاكم الله خيرا مسبقا

التعداد والقوائم 2010-2011.rar

[بن علية حاجي]

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

أخي الكريم أهلا بك من جديد بيننا وبين إخوانك... قمت ببعض التغييرات على كود الترحيل وأضفت معادلة تضع عدد تلاميذ القسم في الخلية K1 (مخفية تحت زر الطباعة) للضرورة... أرجو أن يكون التغيير مناسبا للمطلوب...

أخوك بن علية

التعداد والقوائم 2010-2011.rar

[ياسر خليل أبو البراء]

بارك الله فيك يا بن علية

أنت السهل الممتنع.. زادك الله علماً

[بن علية حاجي]

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

أخي الكريم، تم تصحيح بعض الخطأ(تمديد نطاق المسح) والاستغناء عن الخلية K1 في الكود... ألق نظرة على الملف المرفق...

أخوك بن علية

التعداد والقوائم 2010-2011.rar

[dah_med]

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

أخي بن علية

جزاك الله كل خير على المساعدة

[عبد الفتاح كيرة]

مع الشكر الجزيل

للأخ بن علية

فى الملف الأول

قبل التعديل

يمكن معرفة نهاية القائمة

وطباعة مدير المؤسسة بالكود التالى

Cells(Application.WorksheetFunction.CountA(Range("a7:a" & Rows.Count)) + 8, 6) = "مدير المؤسسة"

و الفكرة هى

عد العناصر فى العمود الأول بعد انتهاء الترحيل

ونزيد عليه 8 صفوف

مع الشكر لك

و إن كنت أفضل

أن يضع السائل عبارة مدير المؤسسة

بتذييل الصفحة

تم تعديل أكتوبر 24, 2010 بواسطه kemas