seddiki_adz

عمل رائع ممتاز بارك الله فيك اخي وحفظك الله فقط يمكن حذف العمود الاخير عدد الوثائق و تحل محله مادة العلوم الاسلامية لاحاجة لععد الوثائق كذلك التسلسل لا يظهر في عمود الرقم اذا ممكن التعديل المطلوب ورقم التسلسل لم يعمل بهذ الكود حفظك الله

السلام عليكم اخوتي خبراء المنتدى لديا ملف به مؤسسات ولجان ومواد المطلوب المياعدة في ايجاد كود ترحيل وفرز من شيت الى اخر بحيث تفرز كل مادة في عمود Classeur02_salim.xlsx

السلام عليكم طلب من الخبراء مساعدة لدينا شيت فيه مؤسسات و مواد ولجان نريد الترحيل الى شيت حسب اسم المؤسسة و حسب اللجان حيث تكون كل مادة في عمود ولك كل الاحترام والتقدير Classeur02.xlsx

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

طلب مساعدة : ارجو تغيير رمز المركز مكان عدد اللجان الصغرى وشكرا التصفية حسب اسم المركز 2019.xlsm

عندنا عمود فيه لجان كبرى وعمود فيه لجان صغرى وعود فيه 3 شعب دراسية وعود يحتوي على أرقام الطاولات وعود في القاعات نريد تقسيم اللجان الكبرى على الطاولات وكل قاعن فيها 8 طاولات هل يمكن حل الإشكالية بطريقة الية؟ الطاولات.xlsx

طلب مساعدة : هل توجد طريقة او كود لفلترة مايلي المطوب موجود بملف اكسل الطاولات.xlsx

بورك فيك ساجرب و ارد عليك عمل ممتاز بارك الله فيك اخي و جزاك الله الف خير السلام عليكم هل يمكن وضع الازرار و اختيآر التصفية إلى صفحة التصفية؟

مختلفة في الاسم وكل مؤسسة لها اسم ورمز فوا حوالي 300 مؤسسة فقط بشرط التصفية لا تتم بالعمود A اذ اعتبرنا العمود A يتكرر اسم المؤسسة ليصل الى حوالي 3000 مؤسسة

حوالي 3000

شكرا جزيلا هل يمكن تطبيق هذا الكود : Sub طبع_محدد() Dim I As Integer For I = Range("E1") To Range("F1") Range("J1") = I If I <= Range("K1") Then ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I Range("E1").Select End Sub Sub طباعة_ورقة_واحدة() ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Sub طباعة_الكل() Range("J1").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 2 ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("C1").Value Range("E1").Select End Sub

لكن القائمة محدودة أريد أن يكون عدد المؤسسات أكثر من 19 حوالي 500 موسسة وشكرا

بارك الله فيك عمل ممتاز اين اجد القائمة المنسدلة من اجل تغيرها؟

السلام عليكم هل يمكن المساعدة في ايجاد كود فلترة و ترحيل الى الصفحة التصفية و ذلك حسب شرط اسم المركز او رمزه التصفية حسب اسم المركز.xlsx

السلام عليم شكرا جزيلا لكم على المجهود الرائع ولكم مني فائق الشكر والاحترام لكنه لا يلبي الحاجة لان لايلزم التاريخ و اذا ممكن التعديل في البحث عن الثنائي بمعرفة احد المتغيرات : رقم التسجيل او رقم الاغفال او لجنة التلميذ او لجنة التصحيح في الملف المرفق ولكم الشكر والتقددير New-Userform-Arabic.xls

عفوا اخي معذرة بارك الله فيك على التنبية وكل عام وانت بالف خير

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

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

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

شكرا لكم كيف يمكن حذف السلسة واترك البحث يدوي وتغيير اليوزر فورم كما في ملف البيانات شكرا مسبقا أقصد ان تكون واوجهة لليوزر فورم كما هو موضح في ملف الاكسل اظهار قيمة خلية في الفورم2.xls

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