عادل حنفي

السلام عليكم اخي الساهر جرب المرفق تحياتي ___.rar

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

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

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

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

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

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

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

السلام السلام عليكم اخي الفاضل للوصول الي الاكواد اضغط مفتاح Alt وانت مستمر بالضغط عليه اضغك عل مفتاح F11 تحياتي

السلام عليكم اخي atob الكود سيعمل عند التغير في العمود c سواء بالزيادة فيضيف كما اردت انت الي العمود E,F مع الارتباط بوضع معادله للقيمة وليس للاسم طبعا القيم الموجوده في B,c في اول صف كما قمت بزيادة شئ و عو عندما تقل القيمة عن الشرط يتم مسح البيانات الخاصة بالذي تغير من العمود E,F ارجو ان اكون وفقت في المطلوب جرب الملف و اخبرني النتيجة تحياتي ___________Last1.rar

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

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

السلام عليكم اخي خبور حمدا لله علي السلامه ما كان يطمأنا عليك الا رؤيتك كل فتره داخل المنتدي عموما نتمني عدم الغياب لان المنتدي يفتقدك بارك الله فيك تحياتي

السلام عليكم اخي الفاضل جرب المرفق تحياتي ____1.rar

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

السلام عليكم اخي mohammadey1 بارك الله فيك اخي تحياتي

السلام عليكم اخي بالنسبة لشق مسح البيانات مع ترك الاسم مرفق ملف بالمطلوب تحياتي ___________________.rar

السلام عليكم اخي الساهر هذا هو Private Sub CommandButton1_Click() Application.ScreenUpdating = False For i = 2 To 20 If Cells(i, 10) = "DEL" Then Cells(i, 10).EntireRow.Delete End If Next Application.ScreenUpdating = True Range("A2").Select End Sub الطلب الثاني هذا هو if target.column<>2 then exit sub end if

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

السلام عليكم اخي الجزيره لك كل الشكر اخي علي كلماتك خالص تحياتي

السلام عليكم اخي نزار بارك الله فيك ليس هناك استئذان اخي اخي ابو الفضل مرفق الملف ومعه شرح للكود ارجو ان يلبي احتياجاتك تحياتي EEEEF____.rar

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

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

السلام عليكم اخي الحبيب aysam بارك الله فيك و جمعنا الله علي حبه ورحمته تحياتي

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