2saad

الكود ده أنا جايبه من موقع وعايز اطبقه بس أنا مش عارف اطبقه علي الملف يعني مش عايز يشتغل هو عبارة عن كود يخفي اوراق العمل ونضع ازرار ( كومنت بوتن ) في اليوزرم فورم بعدد اوراق العمل ليتم فتحها عن طريقه وشكرا لو عند حضرتك كود تاني بسيط سهل الفهم أكون شاكر لحضرتك

أنا عايز اتعلم اطبق هذا الكود أو لو عند حضرتك كود ثان أكون شاكر حضرتك

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته لو سمحتم عايز اطبق الكود علي ملف اكسيل Sub HideShowSheets() 'إعلان متغيرات Dim ws As Worksheet Dim i As Long 'الحصول على أسماء أوراق العمل من قائمة For i = 1 To Sheets.Count Sheets(i).Name = Sheets(i).Name & " (" & i & ")" Next i 'إظهار يوزر فورم UserForm1.Show 'التعامل مع خيارات يوزر فورم If UserForm1.Option1.Value = True Then 'إخفاء جميع أوراق العمل For Each ws In ThisWorkbook.Worksheets ws.Visible = xlVeryHidden Next ws 'إظهار ورقة العمل المحددة Sheets("Sheet1").Visible = xlVisible ElseIf UserForm1.Option2.Value = True Then 'إظهار جميع أوراق العمل For Each ws In ThisWorkbook.Worksheets ws.Visible = xlVisible Next ws End If 'إخفاء يوزر فورم UserForm1.Hide End Sub mm.xlsm

شكرا جزيلا استاذنا الكبير ( أبو الحسن - محمد هشام ) وربنا يجزيكما كل خير علي تعبكما معنا وشكرا لكل أعضاء المنتدي الكرام

شكرا لرد حضرتك المطلوب موجود في المرفق المطلوب ضبط الكود بما يتلائم مع الملف بحيث عند الضغط علي زر ( جلب وترحيل ) يقوم بجلب الفصل من ( ملف نصف العام ) بناء علي الاختيار من القائمة المنسدلة في ( D1 و D3) ثم بعد رصد الدرجات والضغط علي الزر مرة أخري يقوم بترحيل الدرجات الي شيت ( ملف نصف العام ) أمام الفصل الذي اخترته وهكذااختار الفصل التالي بمعني عندما اختار الصف من القائمة المنسدلة D1 الموجودة بالورقة ( رصد الدرجات ) ثم اختار الفصل من القائمة المنسدلة D3 مثلا فصل (4 /1) ثم اضغط علي زر ( جلب وترحيل ) يقوم بنقل كل صف أمامه (4/ 1) من ورقة العمل (ملف نصف العام ) الي ورقة ( رصد درجات ) ثم أقوم برصد الدرجات للمواد الموجودة في ورقة العمل ( رصد درجات ) وبالضغط مرة أخري علي زر ( جلب وترحيل ) يقوم بترحيل الدرجات الي ورقة العمل ( ملف نصف العام ) لكل الصفوف التي أمامها فصل (4/ 1)

شكرا جزيلا أخي الفاضل

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

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته لدي استفسار عندي ملف به أراق عمل كثيرة وبه كود يخفي الأوراق ويظهر ورقة واحدة السؤال : ليه عندما استدعي كود عن طريق اليوزر فورم يظهر خطأ ؟

الله يبارك فيك دنيا وآخرة

بارك الله فيك وأكثر الله من أمثالك

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته هذا الملف مساهمة مني لهذا الصرح العظيم وللأعضاء الذين لهم أفضال كثيرة علي والذي ساعدني فيه ( الاستاذ محمد هشام وأخي ابراهيم صديقي )سعد.xlsm هذا الملف لرجال التعليم في توزيع الملاحظين علي اللجان بنظام الفترات أنا صممته للابتدائي اليوم والفترة وهي تعني ( المادة ) 4و5 تعني الصف الرابع والخامس 6 تعني الصف السادس يا ريت الخبراء يقيموه ولو فيه تعديل يكون أفضل من الخبراء

الله ينور عليك وبارك الله فيك وأكثر الله من أمثالك

المطلوب مرة أخري حضرتك marem v3 (1).xlsb

شكرا لحضرتك وبارك الله فيك حضرتك عند الضغط علي الزر المكتوب عليه ( c و d و e و f ) لا يرحل الأسماء الموجودة في العمود (a) وغير موجودة في في هذه الأعمدة ( c و d و e و f ) يعني زي ما يحدث عند الضغط علي زر ( c ) يحدث في الضغط علي زر (c و d و e و f ) يا ريت يكون وصلت الفكرة وشكرا علي تعبك معنا

شكرا يا استاذ محمد لردك حضرتك جربت الملف لا يعمل

ممكن يا استاذ محمد سؤال أو استفسار ممكن نثبت العمود A ونجعل الكود يشمل عدد كبير من الأعمدة يعني يشمل ( C و D و E و F ) بدلا من C فقط ممكن حضرتك تخبرني ماذا اغير في الكود ويكون بارك الله فيك ومعلش احنا بنتعب حضرتك معانا

شكرا جزيلا استاذنا الفاضل وبارك الله فيك

شكرا لرد حضرتك يا استاذ محمد ممكن باي طريقة المهم يتحقق اللمطلوب

اخواني اعضاء المنتدي بعد سلام الله عليكم ورحمة الله وبركاته المطلوب بالمرفقmarem.xlsx

شكرا جزيلا أستاذنا الفاضل

eman.xlsmاستاذ محمد بع سلام الله عليكم ورحمة الله وبركاته أنا حاولت اطبق الكود السابق علي ملف عندي ولم يفلح أنا بتعب حضرتك معي كثيرا مرفق ملف الذي اردت التطبيق عليه

بارك الله فيك وأكثر الله من أمثالك وربنا يزيدك من علمه

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

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته أتقدم بخالص الشكر لكل الاعضاء لاني تعلمت منهم الكثير في هذا المنتدي الجليل بالضغط علي زر الكود يقوم بترحيل البيانات من sheet1 و sheet2 و sheet3 الي شيت ( saad ) بناء علي القائمة المنسدلة r12 المطلوب عند الضغط علي القائمة المنسدلة U12 واختيار المادة يتم ترحيل الدرجات الخاصة بها علي حسب الفصل ولكم جزيل الشكرترحيل الدرجات.xlsm

شكرا جزيلا