abouelhassan

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

جميلة جدااا الفكرة دى بس انا كده هحتاج ان اجمع الملفات 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

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

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

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

مجهود محترم بارك الله فيك بعض التقارير لا تعمل مشكور

قد يفيدك هذا الكود لاحد اساتذة المنتدى بعد انتهاء فترة الصلاحية يطلب كلمة السر 1234 فتتجدد الصلاحية Option Explicit Private Sub Workbook_Open() Dim M, pasword pasword = "1234" If Date >= CDate("01/05/2020") Then M = MsgBox("انتهت الفترة التجريبية اذا كان لديك كلمة المرور فاضغط نعم", vbCritical + vbYesNo, "تأكيد") If M = vbNo Then Application.Quit Else If M = vbYes Then If pasword = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") Then Sheet1.Select Exit Sub GoTo 1 Else MsgBox "ليس لديك الحق في فتح البرنامج", vbCritical, "خطأ" Application.Quit End If: End If: End If: End If 1 End Sub

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

الاخوة اساتذة المنتدى احتاج ضبط هذا الكود الذى يمنع التغير فى نطاق معين من اوراق العمل ككل واستثناء 5 صفحات من التنفيذ Option Explicit Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim i% For i = 5 To Sheets.Count If Sheets(i).Name <> "sheet3" Then If Not Application.Intersect(Target, Range("a1:a1000")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If Else If Not Application.Intersect(Target, Range("a1:j5")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True Next i End With End If End If End Sub منع التغير فى الخلايا واستثناء عدد5 صفحات.xlsm