التحري نون

جزاك الله الف خير ربي يوفقك ويسعدك

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

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم هذا الكود اللذي تريد Sub Print_Selection() Range("A1:D10").Select Selection.PrintOut Copies:=1, Collate:=True End Sub

الله ينور دربك ويجزاك الجنه هنا فهمت من هذا الكود انك تعاملت مع الاعمده بالارقام بدلا من الحروف قرائتي للكود ان التارقت هو اذا كان رقم الصف اقل من 11 ورقم العامود اقل من 3 هل هذا صحيح ؟ اذا كان صحيح فلماذا تم تطبيق الكود على العامود الثالث بينما لم يتم على الصف الحادي عشر ؟ الغريب هنا انه تم التطبيق على العامود الثالث والكود يعني انه يطبق على اقل من 3 ولك جزيل الشكر والامتنان

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

Private Sub CommandButton1_Click() NumberRow = 10 Set MyRange = Worksheets("C01").Rows(NumberRow) Do Until Application.WorksheetFunction.CountA(MyRange) = 0 NumberRow = NumberRow + 1 Set MyRange = Worksheets("C01").Rows(NumberRow) Loop Application.ScreenUpdating = False Worksheets("C01").Rows(9).Copy Worksheets("C01").Rows(NumberRow).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.ScreenUpdating = True Range("A9").Select End Sub السلام عليكم ورحمة الله وبركاته صباح الخير والمسرات بسم الله نبداء 1- الكود المكتوب هنا ينطبق على الورقه الاولى فقط واضطر الى كتابته مره اخرى بكل ورقه جديده !! اريد ان يكون كود عام على شكل مايكرو او باي طريقه اخرى واربط المايكرو بكل صفحه موجوده او مستحدثه لاحقاً 2- الكود ينقل كامل الصف رقم 9 واريده ان ينقل A9:D9 فقط واللصق ايضاً في حدود هذا النطاق للصف 10 3- اريد اخفاء جميع الصفوف واضهارها فقط بعد الكتابه عليها 4- بعد اضهار الصف المكتوب فيه اريد حمايته من التعديل فور اضهاره 5- النقل هنا يتم لاقرب صف فارغ -- الافضل ان يتم النقل بازاحة الصف المملوء الى 11 والنقل الى صف 10 اذا لا يؤثر هذا على البندين 3 و 4 6- الترقيم في الخليه A9 يكون ترقيم تلقائي بعد النقل مباشره وافراغ الخليه B9 ارجو ان يكون الموضوع مشوق وان يكون يمثابة درس لنا كللنا اكثر من ان يكون طلب مساعده وفقكم الله لكل ما هو خير الدارين المثال للتطبيق وابداء الرائي بالمرفقات Transfer_and_Protect_and_Unhide.zip

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

ما شاء الله وكان ما شاء الله وتبارك الرحمن اخي واستاذي القدير / علي السحيب الشكر قليل في حقك ,, واسئل الله تعالى ان يكافئك من عنده بما يثلج صدورنا انت يا اخي تنفعنا منفعه لا يعلمها الا الله سبحانه الله لا يحرمك اجرنا ويحرَم وجهك عن النار ووالديك يارب يا رحمان

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

رحم الله والديك وحرَمك عن النار