حمادة عمر

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك دائما انت الارووع وعلي فكرة كنت اجهز للرد علي الملف وعدت مرة اخري للمنتدي فوجدت ردك الاكثر من راائع ولا يوجد رد بعده بكل تأكيد تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / عبدالحكم بارك الله فيك بعد اذن اخي الحبيب / قنديل الصياد شاهد الملف المرفق ... وهذا لا يمنع انه بالفعل ارفاق ملف عند كل سؤال يجعل الطلب اكثر وضوحا ولكن علي حسب فهمي لطلبك اليك ملف بشاشة دخول اسم المستخدم : SAMA " حروف كبيرة " كلمة المرور : 12345 ويوجد بالملف شيت 1 به زر لفتح ( شيت 2 ) حاول فتحة لن يمكنك فتحه الا بعد وضع الرقم السري الرقم السري للورقة : 12345 ارجو ان يفي بطلبك شاشة دخول ورقم سري لشيت معين.rar

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

بالفعل صياد لكل ما هو جديد وجميل تقبل خالص تحياتي

ولمن يبحث عن مثل هذا الموضوع من الاعضاء الجدد بالاضافة الي شرح اخي الحبيب / قنديل الصياد اليكم رابط موضوع به شرح فيديو لكيفية ارفاق ملفات بالمنتدي http://www.officena.net/ib/index.php?showtopic=44625

الاخ الحبيب / قنديل الصياد بارك الله فيك لقد قمت بالواجب وزيادة ... تقبل خالص تحياتي

عذرا فلم اري الموضوع والطلب الا الآن ... اكرر اعتذراء اخي / جمعة

السلام عليكم الاخ الكريم / وليد فتحي بارك الله فيك اسعدني مرورك كثيرا تقبل خالص تحياتي

السلام عليكم الاخ الكريم / AL_AYMAN بارك الله فيك واحدة واحدة يمكنك عل كل شئ اخي الكريم .... قم بعمل ملف بسيط بصورة مصغرة من ملفك بدون بيانات ونبدأ العمل عليه خطوة خطوة حتي يمكنك فعلها بنفسك ( ان شاء الله ) تقبل خالص تحياتي

الاخ الكريم / moh_hamza بارك الله فيك تقبل خالص تحياتي

السلام عليكم الاخ الكريم / عبدالحكم بارك الله فيك اهلا وسهلا بك في منتدانا الرااائع وستسعد ان شاء الله بالانضمام الي اسرة هذا الصرح العملاق ولكن يجب عليك اخي الكريم وضع سؤالك في المكان الصحيح لتجد اروع الاجابات باذن الله ضع سؤالك في منتدي الاكسيل http://www.officena.net/ib/index.php?showforum=135&prune_day=100&sort_by=Z-A&sort_key=last_post&topicfilter=all&page=2 تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / أ/حكيم بارك الله فيك شاهد المرفق ... ان شاء الله به طلبك My++.rar

الاخ الكريم / محمدسعيدالعمده بارك الله فيك الحمد لله ... انك اهتديت لما تريد تقبل خالص تحياتي

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

السلام عليكم اخي الحبيب / عباس السماوي بارك الله فيك بالنسبة للكود فهو كود عادي يعمل علي اي نسخة اكسيل 2003 - 2007- 2010 بدون اي مشاكل هل يظهر لديك اي نوع من انواع الخطأ عند تنفيذ الكود ... برجاء ارسال صورته في انتظار ردك

علي حسب ما فهمت .... حيث ان طلبك غير واضح حيث ان الكود المرفق ليس به اي حماية للورقة المقصودة فان كنت تريد حماية الورقة مع استخدام هذ الكود سيكون الكود كالتالي مع ملاحظة انه ارفاق ملف يسهل الطلب اكثر يمكنك وضع الغاء الحماية في البداية ثم وضع الحماية في النهاية علي سبيل المثال Sub tarheel() Sheets("shet clode").Unprotect "123456" Application.ScreenUpdating = False With Sheets("ÚÇã") LR = .[I65000].End(xlUp).Row For I = 5 To LR If Cells(I, "W") <> "Êã ÇáÊÑÍíá" And Cells(I, "G") <= 10 Then .Cells(I, "W") = "Êã ÇáÊÑÍíá" .Range(.Cells(I, "I"), .Cells(I, "R")).Copy With Sheets("Close") nr = .[B65000].End(xlUp).Row + 1 .Cells(nr, "B").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Sort_Close End With End If Next End With Sort_General Application.ScreenUpdating = True Sheets("shet clode").protect "123456" End Sub

السلام عليكم الاخ الكريم / وليد فتحي بارك الله فيك تقبل خالص تحياتي

ولاثراء الموضوع اكثر واكثر يمكن وضع هذا الكود لمسح النطاق المحدد ثم وضع المعادلات المطلوبة في الاعمدة المطلوبة بالكود بعد المسح Sub sama1() Range("SAMA").ClearContents Range("H7").FormulaR1C1 = "=RC[-2]*RC[-1]" Range("H7").Select Selection.AutoFill Destination:=Range("H7:H22"), Type:=xlFillDefault Range("H7:H22").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .MergeCells = False End With Range("F7").Select End Sub Classeur22.rar

السلام عليكم الاستاذ الحبيب القدير / جمال عبد السميع بارك الله فيك ومن البداية والي النهاية انت استاذي القدير ولا يمكن القول بغير ذلك ... تعلمت وتتلمذت علي يديك .... فأنا واحد من تلاميذك ومثلك لا يستأذن بل يأمر دائما ونحن ننفذ وانت كما قال اخي الحبيب / البروفسير .... ملك واستاذ المعادلات والاكواد تقبل تحيات تلميذك النجيب جزاك الله خيرا

السلام عليكم الاخ الحبيب / البروفسير بارك الله فيك لك مني ارق واجمل التحيات تقبل خالص تحياتي جزاك الله خيرا

بالفعل وبكل لغات العالم ( ما أروعك )

بعد اذن اخي الحبيب / البروفسير يمكنك اخي الكريم من استثناء العمود المطلوب من النطاق الذي تريده وذلك قم بتحد الاعمدة باستخدام الماوس وانت تضغط علي زر Ctrl وحدد النطاقات التي تريدها واترك التي لا تريد مسحها شاهد المرفق ... ضع اي شي في العمود h لا يتم مسحة بعد الضغط علي الزر المذكور جزاك الله خيرا Classeur1.rar

الاخ الكريم الحبيب / محمود الاسيوطي راااائعة جدا