2saad

إخواني أعضاء المنتدي الكرام السلام عليكم ورحمة الله وبركاته الملف المرفق به كود لاستدعاء الاحتياطي للكل المطلوب التعديل علي الكود بحيث يستدعي الاحتياطي ابتداء من الصف 27 الي الصف 43 يعني ترحيل البيانات مينزلش تحت الجدول المرقم 1 2 3 4 5 ..سعد.xlsm وشكرا جزيلا لكرمكم

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

شكرا جزيلا استاذنا الفاضل وربنا يبارك فيكم جميعا أنا عشمان في سؤال وارجو أن يتسع صدرك أنا لو حبيت استدعي ( له دور ثان ) و ( لها دور ثان ) معا عن طريق القائمة المنسدلة ما الذي اعدله في الكود أنا آسف بتعب حضرتك معاي

شكرا جزيلا أخي الكريم

هل من مجيب ؟ منتظر الحل من الأخوة

محتاج كود ترحيل البيانات المحددة بالأسهم من شيت (control4 ) الي شيت ( saad ) علي حسب القائمة المنسدلة الموجودة في شيت ( saad ) في العمود ( k1 ) بحيث لا يتم مسح البيانات الموجودة في ( saad ) ابتداء من العمود p لان سيتم وضع معادلات بها مصطفي.xlsb

في انتظار الأخوة الأعضاء

نرجو المساعدة ضروري

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته هذا الكود المرفق لأحد العمالقة العظام الرجاء : 1 - عايز اعرف الكود بيرحل الناجحين والدور الثاني ازاي وهولم يذكر ورقة المصدر التي يجلب منها البيانات 2 - محتاج تعديل علي الكود بحيث عند الترحيل من ورقة الشيت الي ناجح ودور ثاني يمسح البيانات ماعدا العمود الذي فيه التوقيع المكتوب فيه ( محمد ) ولكم جزيل الشكرترحيل مفيد باختبار اعمدة معينة.xls

شكرا جزيلا وبارك الله فيك

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

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

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته لو سمحتم عايز اطبق الكود علي ملف اكسيل 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 ) يا ريت يكون وصلت الفكرة وشكرا علي تعبك معنا

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