احمدزمان

حياك الله يا عبدالله صعبة علية

السلام عليكم كل سنة وانته طيب و حمدا لله على السلامة ممكن نغير كل الكود بكود جديد

السلام عليكم و رحمة الله وبركاته جرب الملف المرفق حماية و اخفاء ثم جرب الكود 1.rar

السلام عليكم و رحمة الله وبركاته كل عام و انتم بخير و كل سنة و انتم طيبين و عساكم من عوادة

المربية الفاضلة تم عمل الجدول للمدرسين قد تكون الطريقة ليست دقيقة و موطولة ولكن الحمد لله النتائج صحيحة مية مية الخطوات التي تم اتباعها بمجرد ادخال اسم المعلم يظهر على اليسار الجدول التفصيلي لهذا المعلم اسفل هذا الجدول تم دمج النصوص من الخلايا اعلاه و استبعاد قيم الصفر0 منها ومن هذا الجدول يتم استخراج البيانات الى الجدول الخاص بكي مع علمي انه لابد من وجود طريقة افضل ولكن هذا ما استطعت عملة مع التحية و التقدير الجدول المدرسي 2015_TEST1.rar

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

ان شاء الله ساعات ويكون جاهز

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

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

السلام عليكم و رحمة الله وبركاته الحل المرفق تقريبا و الله اعلم حيث يجب ان تشرح لنا بالتفصيل 4م1 وغيرها لنتمكن من الحل او تحدد اي جزء بالضبط منها يدخل في الحل المطلوب AYMZ__RGF HAMZA.rar

السلام عليكم و رحمة الله وبركاته تعديل آخر على الكود AYMZالمخزن تجربة.rar

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

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

السلام عليكم و رحمة الله وبركاته الأخ الفاضل اعتقد انني لم افهم المطلوب بشكل صحيح ولكن على قدر ما فهمت تم التعديل في المرفق آمل التجربة AYMZالمخزن تجربة.rar

السلام عليكم و رحمة الله وبركاته اخي الكريم لم تحدد ماهو المطلوب ((ان الله مع الصابرين)) و الصبر مفتاح الفرج

السلام عليكم و رحمة الله لم اجد كود حماية بالملفات

هذه مجرد تجربة اثناء العمل ليس لها اي دخل بالكود

السلام عليكم و رحمة الله وبركاته تفضل studenT.rar

السلام عليكم و رحمة الله وبركاته بالإضافة للحل الرائع الذي قدمة الأستاذ شوقي هذا حل آخر حسب الفكرة السابقة التي ذكرتها عبيء بيانات النموذج ثم اضغط طباعة التقرير فكرة جديده للتخلص من مشكلة تذيل صفحات اوراق العمل - سعيد بيرم.rar

جزاك الله خيرا

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

السلام عليكم و رحمة الله تم اضافة زر اعلى الورقة يقوم بمسح البيانات القديمة بدون ترحيل الأوراق التي اسمها رقم و ليس نص studenT.rar

وعليكم السلام و رحمة الله وبركاته علم ان شاء الله يكون ما تريد

السلام عليكم و رحمة الله وبركاته تم العمل على الملف كما فهمت من طلبك Sub trheel() 'ÊÑÍíá ÇáØáÈÉ ÍÓÈ ÇáÊÎÕÕ ' trheel Macro ' Application.ScreenUpdating = False Dim SH As Worksheet, RN1 As Range, CC As Range Dim ER, FR, TR, TS, TSS Set SH = Sheets("ÇáãáÝÇÊ") ER = SH.UsedRange.Rows.Count For FR = 26 To ER If SH.Range("I" & FR) = "" Then GoTo 9 Set RN1 = SH.Range("I" & FR & ":AW" & FR) TS = SH.Range("I" & FR).Text For TSS = 2 To Sheets.Count If Sheets(TSS).Name <> TS Then GoTo 8 TR = Sheets(TS).Cells(9999, 2).End(xlUp).Row + 1 RN1.Copy Sheets(TS).Range("A" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False For Each CC In RN1 If CC.HasFormula = True Then GoTo 7 CC.ClearContents 7 Next CC 8 Next TSS 9 Next FR Application.CutCopyMode = False Application.ScreenUpdating = True End Sub student--AYMZ.rar

السلام عليكم شيء غريب رغم انني جربت ورحلت وكلة تمام ادخلت البيانات او اخترتها من القائمة - هنالك فرق