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

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

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

الاساتذة حاولت بهذا الكود ولكن لم ينفذ المطلوب هل من تعديل وكذلك معادلة الاخفاء التى تضاف للتنسيق الشرطى مع الشكر والاحترام والتقدير Sub HideRows() Dim rng As Range Dim cell As Range Set rng = Range("b2:c250") For Each cell In Selection If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = True End If Next cell End Sub

كل عام وانتم بخير اساتذة المنتدى الرائعون احتاج اخفاء الصف بالتنسيق الشرطى والكود اذا كانت قيمة الخلية b , c = 0 شكر وتقدير واحترام من اخيكم اخفاء الاصفار بالكود والتنسيق الشرطى.xlsm

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

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

السلام عليكم اساتذتى الافاضل احتاج تجميع بيانات عدد 5 اعمدة فى عمود بدون تكرار الاسماء ةبدون فراغات مع الشكر والتقدير والاحترام تجميع بيانات بدون فراغات او تكرار.xlsm

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