ابو حمادة

ياتري الموضوع صعب تنفيذه ولا ايه عايز اعرف على الاقل اشوف اى حل بالمعادلات اتمني الرد

بجد تسلم ايدك الله ينور عليك فعلا هو دا المطلوب لكن ليا رجاء لو تكرمت قائمة منسدلة.rar

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

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

اي عمود مش هاتفرق وانا اعدل عليه عادي وليكن مثلا في العمودي ( B )

ايه الموضوع صعب اوى ولا ايه مش شايف اي رد نهائي

صباح الخير لاساتذتى الكرام فيهكود تمام لاستدعاء البيانات جبته ووضعته في الملف بس بيجلب كل البيانات من صفحة البيانات الاساسيه محتاج تعديل عليه فقط بحيث يجلب بيانات الكشف ال اختاره فقط Sub Add() Dim Rng2 As Range Dim LR, LE As Long '=========================================================== Dim sh1 As Worksheet: Set sh1 = Sheets("بيانات اساسية") Dim sh2 As Worksheet: Set sh2 = Sheets("كشف") LE = sh1.Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0).Row Set Rng2 = sh1.Range("Q6:BX" & LE) If Application.WorksheetFunction.CountA(sh2.Range("B6:B34")) = 29 Then 'MsgBox "لا يمكن استدعاء كل البيانات بسبب " If MsgBox("لا يمكن استدعاء كل البيانات بسبب كثرة البيانات عن حجم الورقة", vbMsgBoxRight, "تاكيد الحفظ ") = vbNo Then Exit Sub Exit Sub End If LR = sh2.Range("B35").End(xlUp).Row + 1 If LR < 6 Then LR = 6 '=========================================================== Application.ScreenUpdating = False '=========================================================== Rng2.Copy sh2.Range("B" & LR).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub يريت حد يساعدني في تعديله

مرفق ملف استدعاء بيانا.rar

مرفق ملف استدعاء بيانا.rar

الخليه الموجوده امام اي قيمة يتم جمعها في العمود C

حاضر قائمة منسدلة.rar

شكرا استاذي الفاضل علي ردك بس لو امكن تكون الجمع بشرط بحيث اذا كانالعمود ( B) = كلمة ( ذكر ) يتم الجمع ولو كانت انثي لا يتم الجمع

مرفق ملف قائمة منسدلة.rar

مرفق ملف 4444.rar

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

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

اخي ااااالفاضل استاذ زيزو العجوز رجاء واسف لو كنت تقلت علي حضرتك الملف الاصلي البيانات.rar

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

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

الف شكر ليك استاذ زيزو العجوز بس ليا رجاء ان يكون نسخ الشهر والسنه امام كل صف في به بيانات في صفحة ( ArchiveS ) ويكون فيه شرط لالا يتكرر نفس البيانات للشهر ولك منى الف تحيه

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

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

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

حبيبي استاذ ياسر تسلم ايدك الله ينور عليك ويبارك فيك الف الف شكر

السلام عليكم ورحمة الله وبركاته مرفق ملف للتوضيح Book11.rar