ابو حمادة

مبقاش حد بيدخل هنا ولا ايه اكتر من مشاركه لم يتم الرد عنها من قبل اى حد رمضان كريم

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

مرفق ملف للتجربه 111.rar

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

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

شكرا استاذي الفاضل لاهتمامك الكود يعمل جيدا بارك الله فيك وجعله في ميزان حسناتك بس فيه ملاحظة ان الكود بيعمل علي كل الاعمده يعني بيضيف المعادلة في النطاق كله كنت محتجها تعمل لنفس الصف ال يتم الادخال عليه في العمود (B )

تجربة.rar

انا اكيد بشكر حضرتك جدا والله لاهتمامك بس اريد بعض التوضيح بالنسبه ل حدث الانطلاق ليس هو قيمة العمود ال به 18 او155 انطلاق الكود هو وضع قيمه في عمود قيمة المبلغ ثانيا انا كما وضح سابقا اريد وضع قيم نتيجة المعادله في الخليه وليس المعادله كما ذكرت حضرتك لتخفيف حجم الملف وايضا لسهولة تغيير اي قيمة خطأ اذا حدث خطأ اما بالنسبه لانهم قيمتين فقط ولكنهم مهمين جدا لان مرتب الموظف مرتبط باحدهما وفي حالة كتتابة قيمه فيهمخطا سوف يترتب عليه اخطاء كثيره مثلا ممكن اكتب 81 بدلا من 18 او 515 بدلا من 155 لان مدخل البيانات اغلبهم خبرتهم في التعالم في الكمبيوتتر بسيطه جدا وممكن يخطا بدون قص عند كتابه اي رقم ولذلك وضعتها في الملف الاساسي في قائمة منسدله بحيث لاتقبل الاخطأء قدر ماستطعنا ولذلك رايت ان لكود افضل من المعادلات لان الكود ممكن تدخل ان يضع في العمود المراد لصق المعادله به عباره عن قيمة وليس معادله لتخفيف حجم الملف وايضا لتغيير النتيجه في حالة الخطأ علما ان عدد الصفوف تقريبا تتخطي 500شخص على الاقل ولك مني تحياتي

شكرا ليك اخى الفاضل بس ممكن توضحلى فين اكتب الدوال المطلوبه علما ان المعادلات الى العمود BX ودخلت على محرر الاكواد لم اجد اى كود وملحوظة كمان بالنسبه للعمود ال بكتب فيه 18 او 155 بيكون اختياري ايضا قائمة منسدله اقصد يريت توضحلى اين اجد الكود علما انى اعمل علي اوفيس 2007 عربي وخبرتي محدوده اوى واريد القيم في المعادلات هي ال تظهر بدلا من المعادله لسببين السبب الاول ان في بعض المعادلات بتكون النتيجه مش صحيحه بنسبة 100% ويجب تعديلها يدوي والسبب الاخر لتخفيف حجم لملف لانه كبير جدا

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

بجد تسلم ايدك الله ينور عليك فعلا هو دا المطلوب لكن ليا رجاء لو تكرمت قائمة منسدلة.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

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