استاذ محمد الريفى
عمل اكثر من رائع و لكن لى تحفظ على التطبيق القانون
فالقانون رقم 91 لسنة 2005
الباب الثاني مادة ثلاثه عشر تنص على اعفاء شخصى قدره 4000 جنية
و تم زيادة حد الإعفاء الشخصي من4 آلاف جنيه إلي7 آلاف جنيه سنويا اعتبارا من راتب سبتمبر2013
هذا بخلاف الشريحة الاولى 7200
ليصبح اجمالى الاعفاء فى السنة 14200
ثم يتم تطبيق الشرائح
شكراً
تفتح شاشة الفيجوال
alt F11
الورقة التى بها ارتباط ضع هذا الكود
Private Sub Worksheet_Activate()
ActiveWorksheet.UpdateLinks = xlUpdateLinksAlways
End Sub
الف شكر استاذ ابو البراء
و لكن لى ملحوظة الاسماء عندى تبداء من B14
و حضرتك فى الكوم كاتب B15
و عند كتابة 1 امام صف 14 يطبع الشهادة
وعند تغير الكود الى B14 طبع الشهادة ايضاً
اريد ان يكون الكود من اول B14
ولا يطبع اذا كتبت فى صف الاول
توضيح
الفكرة لو اول سطر مش عايزة يطبع
ماذا افعل
استاذ ابو البراء
يعجز لسانى على شكرك
ممكن لو سمحت شرح لهذه الجزئية
x = Application.Match(Range("B15"), Sheets("يناير").Columns(2), 0)
If Not IsError(Application.Match(Range("B15"), Sheets("يناير").Columns(2), 0)) Then
جزاك الله كل خيرا
السادة الخبراء
كل عام و انتم بخير
مرفق ملف لشيت كنترول و شهادة تطبع بيانات الطلبة بالشيت
اريد عند اخفاء صف لا يتم طباعة الشهادة الخاصة به
او عند كتابة فى عمود اخفاء رقم 1 فى الصف لا يطبع الشهادة الخاصة به
ولكم جزيل الشكر
شهادة.rar