الـعيدروس

السلام عليكم الاخ الفاضل AbedElkader هذا خانة الباس بشكل نجوم واما ماتبقى من طلباتك فا الاساتذه الاجلاء كثيرين ومتواجدين حفظهم الله حسابات المحل1.rar

الحمد لله انه الطلب وفقك الله اخي سعد

اخي سعد تقصد انتهاء العمل اي يعني تذكير فقط ام يغلق البرنامج ربما اكون فهمت طلبك خطاء

السلام عليكم الاخ الفاضل سعد عابد ربما يكون هكذا Private Sub Workbook_Open() If Date >= VBA.DateSerial(2011, 9, 20) Then MsgBox "انتهت مدة البرنامج ", vbExclamation, "O_EXE" ThisWorkbook.Save Application.Quit Exit Sub Else If ActiveWorkbook.Name = "مرتبات سعد.xls" Then Sheets("الترحيل").Select UserForm5.Show Else ActiveWorkbook.Close SaveChanges:=False End If End If End Sub

السلام عليكم استاذ حمد زمان عجيب دالة ROUND قامت بالواجب لوحدها قسم انها كفو بارك الله فيك وزادك من فضله وعلمه

السلام عليكم استاذ احمد زمان يبدو ان ردك عندما كنت اكتب الرد اطلع عليه ومقدما دمت ذخرا بارك الله فيك اعمالك كلها درر واوافيك النتيجه

السلام عليكم فعلا هيا ذي المعادلة تعمل 100 % بارك الله في علمك استاذ احمد المجرب استفسار داله INT تحذف السلسله ماتحت الصفر ولاكن TRUNC مادورها في المعادلة شرح بسيط الله لايهينك والسلام عليكم

السلام عليكم الاخوة الاعزاء دام علمكم اريد داله تقوم بعمل تقريب الارقام بشرطين اذا الرقم 10.49 يقوم بحذف الهلل بمعنى ماتحت 0.50 ااي حتى 0.499 يقوم بحذفه ويترك العدد الصحيح واذا فوق 0.51 اي حتى 0.999 يجبر الكسر ويصير 1.0 ارجو ان يكون وضح طلبي وهذا مرفق يوضح اكثير والسلام عليكم جبر-تقريب.rar

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

السلام عليكم حمد لله على السلامه وحشنى المنتدى واعضائه وكل من فيه فعودا حميدا انشاء الله والسلام عليكم

السلام عليكم جزاك الله خير استاذ احمد على الكود الاكثر من رائع تقبل مروري

السلام عليكم بارك الله فيك استاذ احمد على الملف الجميل استفدت منه الكثير

السلام عليكم ارجو من لديه الخبره في المشكله ان لايقصر حوست لين مليت نفس المعادلة والبيانات موجوده في شيت الجدول ولاكنت غير موجود رقم الصف من اسم احمد99

الاخ حسن اطلع على هذا الرابط موضوع للاستاذ العلامة خبور خير ولاكن البحث عن طريق فورم http://www.officena.net/ib/index.php?showtopic=29605&hl

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

السلام عليكم تفضل اخي مدى ديناميكي ولاكن لايزيد عن 17 مادة لاعلم لي به او ربما هكذا والله اعلم كود لجنة واحتياطى1.rar

للرفع

صدقت اخي جمال الفار له وحشه استاذنا الرشيد دغيدي حفظه الله ورعاه واعاده لنا سالم غانم وفقكم الله

السلام عليكم الاستاذ القدير احمد زمان ارجو الاطلاع على المرفق ماسبب عدم ظهورارقام صفوف الاسم من بعد احمد99 لاصباح ولا مساء والعذر منك والسموحه على كثرة طلباتي ومنكم نتعلم تلميذك أبو نصار والسلام عليكم حضور موظفين.rar

السلام عليكم حقيقة نفتقد هذه الرموز التي انارت لنا طريق العلم الله ييسر امور دنياهم ونشوفهم عن قريب ان شاء الله والله يستاهلون كل كل خير والاهم الدعاء لهم في ظهر الغيب بارك الله فيك اخي سعد عابد على هذه اللفته الطيبه والسلام عليكم

هكذا زبط 100% مااريده من عمود a الى az Application.EnableEvents = False ER = WorksheetFunction.CountA(Range("A:A")) RN = "A2:az" & ER Sheets("ورقة3").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True Application.EnableEvents = True جزاك الله الف الف خير وتقول معرفه بسيطه بالأكواد أنت كذا مروض الأكواد زادك الله من علمه وفضله

استاذي العزيز يعني نفس المجال الذي ارفقته انا في الرد السابق سوف اجربه واوافيك النتيجه

هذا الكود الذي كنت استخدمه للمدى الدنياميكي Application.EnableEvents = False Sheets("ورقة3").PageSetup.PrintArea = "Print_Area" Range("Print_Area").PrintPreview Application.EnableEvents = True ولاكن فوجئت ان المدى يغير المسار لحاله فيصبح تحديد خلايا عاديه والديناميك يتلغي فألتمست بالاكواد خيراً وأضن ذلك ارجو من سيادتكم دمج كود المدى مع هذا الكود علماً ان Print_Area هو المدى الذي كان معرف كأسم

السلام عليكم استاذي القدير احمد زمان قبل لااجرب الكود انا استخدم الكود لتحديد الصفوف التي فيها بيانات لكي تتم طباعتها هل يفي بهالغرض

السلام عليكم اولا اشكر جميع من ساهم كل حل وفيه لمسات ماشاء الله اخي الفاضل ارى افضل حل لما تريده ملف اخونا الفاضل ياسر الحافظ فرز الملون لون الخلايا المراد فرزها واخفاء البقية ثم اشر على خليه اللون المراد واظغط FILTER راح يظهر لك صفوف اللون المختار فقط والسلام عليكم