عادل حنفي

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

السلام عليكم اخي BU3MMAR اعدك اخي بالعمل علي ملفك عندما اجد وقت لذلك تحياتي

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

السلام عليكم فكرة التطوير فكره جميله و جعلها مفتوحة للجميع اكثر جمالا وفقك الله لما فيه الخير

السلام عليكم الاخ الحبيب حسام نور اشكرك اخي الحبيب كل الشكر ولك مني خالص تحياتي و تقديري

السلام عليكم اخي تفضل تحياتي Round.rar

السلام عليكم و هذه اخي طريقة اخري بالكود بعد اذن الاساتذة المشاركين اخي احمد يعقوب اعجبتي المعادلات اخي قطان تشجع و لا تخف تحياتي Bookbb.rar

السلام عليكم اخي قم بلصق هذا الكود مع مراعاة تغير sheet1 باسم الشيت الذي تريد Private Sub Workbook_Open() Sheets("sheet1").Activate End Sub تحياتي

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

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

السلام عليكم اخي لم افهم شئ الا انك تريد تفريغ الجدول بعد الترحيل فهل هذا هو المطلوب تحياتي Post_Offset0.rar

السلام عليكم اخي زرنيط ارجو ان يكون هذا هو المطلوب تحياتي ______.rar

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

السلام عليكم اخي بالنسبه للشق الاول Private Sub Workbook_Open() userform1.show End Sub ويتم الحفظ و اغلاق الملف و فتحه مرة اخري مع ملاحظة ان userform1 هو اسم الفورم فاذا كان اسم الفورم غير ذلك يجب التغيير اما بالنسبة للشق الثاني ارجو توضيح المطلوب تحياتي

السلام عليكم بدون استئذان اخي مصطفي فالكل يريد المصلحة العامه اخي nicesound تفضل Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Column <> 2 Then Exit Sub For i = 4 To 100 If Cells(i, 2) > 0 Then Cells(i, 3).Select ActiveCell.FormulaR1C1 = "=TODAY()-RC[-1]" Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _ Formula1:="-1", Formula2:="=$C$2" Selection.FormatConditions(1).Interior.ColorIndex = 46 End If Next Application.ScreenUpdating = False End End Sub مع ملاحظة ان هذا الكود يضع الconditional formatting مباشرة للخلية دون عملها يدويا تحياتي

السلام عليكم جزاك الله كل خير اخي abuzzouz مع ملاحظة حذف الكومه [ ' ] من بداية كل سطر من اسطر الكود كما يجب التنبيه ان الاكواد لن تعمل الا بعد فك الحماية تحياتي

السلام عليكم اخي كل مانتمناه هو الصبر بالطلب ارجو ان يكون هذا هو طلبك تحياتي عذرا اخي كان هناك خطأ تم تعديله Book1.rar

السلام عليكم مرحبا بك و باي طلبات للتعديل

السلام عليكم اخي تم عمل الكود ليعمل حتي الصف ال 100 يوجد خانه لتحدد فيها عدد الايام التي يعطي التنبيه عنده و انا حددتها هنا ب -7 اي قبل الميعاد بسبعة ايام كل ما عليك هو كتابة اسم المستند او ما تريد و تاريخ انتهاؤه او تاريخ الميلاد في المكان المخصص و دع الباقي للكود تحياتي _______.rar

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

السلام عليكم لها الله اخي و الذي لن يتركها لانه الله........

السلام عليكم ارجو ان يكون هذا هو طلبك تحياتي _______.rar

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

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

السلام عليكم اخي العزيز برجاء ارسال ملف مع شرح لما تريد بالضبط للعمل عليه تحياتي