abouelhassan

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

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

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

بارك الله فيك استاذنا

شكر وتقدير واحترام استاذ سليم رائع

بارك الله فيك استاذ أ / محمد صالح شكر وتقدير واحترام من اخيك

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

مثل هذا استاذى اطار حول الخلية اكبر من 0.xlsx

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

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

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