abouelhassan

ارفع ملف بطلبك لعلك تجد حل من عباقرة المنتدى

جرب هذا الحل للاستاذ ياسر خليل ياسر خليل أبو البراء له التحية احترامى med.mashroo3.xlsm

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

السلام عليكم ورحمة الله كل عام وحراتكم بخير هذا الملف تصميم استاذى سليم حاصبيا احتاج تعديل تم عمل قائمة منسدلة بها 3 جمل-كلمات او جملة جمع الكل وفى هذه الحالة الكود يظل كما هو حاليا يؤدى مهمته الحالية 2-الارقام السالبة اريده ان يستدعى الارقام التى اقل من صفر 3-الارقام الموجبة اريده ان يستدعى الارقام اكبر من صفر مع خالص دعائى وشكرى وعرفانى بالجميل اخيكم باحترام Sub Trasfer_data_Special() Dim R As Worksheet, Act_sh As Worksheet Dim k%, col%, Ro% Dim Max_ro%, x%, y% Dim Bol As Boolean Dim ST_Dat As Date Dim End_Dat As Date Dim My_sum# Dim Mot$ Mot = "الاجمالى" Set R = Sheets("Report_Youmi") Ro = R.Cells(Rows.Count, 1).End(3).Row R.Range("C3").CurrentRegion.Resize(Ro - 1).ClearContents R.Cells(3, 9).Resize(Ro - 2).ClearContents ST_Dat = Application.Min(R.Range("I2:J2")) End_Dat = Application.Max(R.Range("I2:J2")) For k = 3 To Ro - 2 Bol = Application.Evaluate _ ("ISREF('" & R.Range("A" & k) & "'!A1)") If Bol Then Set Act_sh = Sheets(R.Range("A" & k) & "") Max_ro = Act_sh.Cells(Rows.Count, 1).End(3).Row For y = 3 To 7 For x = 5 To Max_ro If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _ CDate(Act_sh.Cells(x, 1)) <= End_Dat And _ Act_sh.Cells(x, 2) <> Mot Then My_sum = My_sum + IIf(IsNumeric(Act_sh.Cells(x, y + 2)), _ Act_sh.Cells(x, y + 2), 0) End If Next x R.Cells(k, y).Value = IIf(My_sum = 0, "", My_sum): My_sum = 0 Next y End If Next k '+++++++++++++++++++++++++++++++++ R.Cells(Ro - 1, 3).Resize(, 5).Formula = _ "=if(COUNT(C$4:C$39)>0,SUM(C$4:C$39),"""")" R.Cells(Ro, 3).Resize(, 5).Formula = _ "=IF(COUNT(C$7:C$17)>0,SUM(C$7:C$17),"""")" R.Cells(4, 9).Resize(Ro - 3).Formula = _ "=IF(COUNT($C4:$G4)>0,SUM($C4:$G4),"""")" R.Range("A3:I" & Ro).Value = _ R.Range("A3:I" & Ro).Value End Sub My_Repport_Updated.xlsm

شكر وتقدير واحترام من اخيك استاذ سليم

جميلة جدااا الفكرة دى بس انا كده هحتاج ان اجمع الملفات 6 فى ملف واحتاج تعديل البرنامج وعمل شاشة بها صلاحيات لروية وتعديل وترحيل الى اعمدة محددة لكل صلاحية وتعديل التقرير ليستدعى بصلاحيات محدودة او كل الاعمدة 20 يعنى يستدعى عمود او عدة اعمدة او كل الاعمدة اتمنى من الله ان ياتى يوم وانفذها عموما انا هبحث واحاول وانتظر اراء اخواتى الاساتذة شكر وتقدير واحترام

الاساتذة الافاضل الاخوة بحاجة لفكرة من خبراتكم لتسهل عليا الموضوع الموضوع ان لدى عدد 6 مصنفات كل حياتى بالملفات هذه الملفات ال6 بها نفس الاكواد ونفس التقارير اغلبها من اهداء الاستاذ العبقرى سليم حصبيا الشيتات بكل مصنف هى اسماء حسابات فى 6 مصنفات عدد114 شيت وهى 114 حساب الاعمدة فى ال6 مصفات هى 20 شخص كل مصنف به فى كل شيت عدد 5 اشخاص يوجد حسابات مشتركة فى ال 6 مصنفات عدد 20 حساب مشترك انا اعمل على ال6 مصنفات بحيث ادخل كل شخص سدد مبلغ كام على الحساب من خلال شيت ترحيل واذا طلب اى تقرير اقوم بجمع ال6 تقارير واجمعهم فى تقرير واحد حيث يوجد تقرير به اسماء الحسابات بتاريخ احتاج افكارسهلة انفذها بحيث اجمع ال 114 شيت فى مصنف واحد فى كل شيت 20 عمود بحيث اطلع تقرير مجمع جاهز للطباعة مرفق ملف من 6 ملفات به التقرير الذى اهداه الى اخى فى الله استاذ سليم اعزه الله , m هى اسم الشخص و1و2و3 اسم الحساب شكر وتقدير واحترام My_Repport_Updated.xlsm

شوف الفيديو يمكن يفيدك اخى

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

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

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

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

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

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

بالنسبة للتجميع هذاا الملفل للاستاذ الاسطورة ياسر خليل ابو البراء لعله ينفعك يقوم بتجميع الشيتات مع الشكر Collect Data From Multiple CSV Workbooks Mokhtar V1.rar