محمد عدنان

السلام عليكم و رحمة الله و بركاته كيف يمكنني الاستغناء من الزر من خلال قائمة المنسدلة تقوم بالاختيار للصف فيقوم باحضار اسماء الطلاب ؟ مع مسح اي بيانات سابقة قبل استدعاء اسماء الطلاب و شكرا name2.xlsm

السلام عليكم و رحمة الله و بركاته الاستاذ @أ / محمد صالح جزاك الله كل خير في ميزان حسناتك كل الاحترام لكم و جزاكم الله كل خير

السلام عليكم و رحمة الله و بركاته الكود التالي يقوم بتسمية الصفحات باسم الطالب الموجود في الخلية n14 احيانا اواجه مشلكة اسم الطالب الرباعي بكون اكثر من 31 حرف المطلوب حفظ اسم الشيت باسم الطالب مكون من رقم يكون في الخلية aj1 مع الاسم الاول و الاخير للطالب الموجود في الخلية N14 ما هو التعديل على الماكرو ؟. Sub Rename_Worksheets() Dim i As Long For i = 1 To Sheets.count If Worksheets(i).Name <> "cer" And Worksheets(i).Name <> "Table" And Worksheets(i).Name <> "VS" Then If Worksheets(i).Range(Trim("N14")).Value <> "" Then Sheets(i).Name = Worksheets(i).Range(Trim("n14")).Value End If End If Next i Sheets("Value").Activate End Sub

السلام عليكم هل بالامكان تصدير الملف pdf باسم كل صف ؟

السلام عليكم اخ @Adnan2022 صدقت و اتوقع انها لغة سي شارب او فيجول بيسيك دوت نت كل الاحترام

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

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

السلام عليكم و رحمه الله و بركاته المساعدة بماكرو يقوم في صفحة Lists في الملف المرفق تختار طباعة فيظهر فورم تقوم باختيار الصفوف بحيث يقوم ماكرو بانشاء صفحة بعدد الاختيار ثم يعبا اسماء الطلبة كل صف في صفحة و شكرا كشوفات الطلبة.xlsm

جزاك الله كل خير و اشكرك على سعة صدرك ...اسال الله العظيم ان يغفر لنا و لك ذنوبنا ..ما شاء الله عليك اخ محمد صالح

كيف ممكن اخليه يرتب ل range محدد يعني فقط ل 65 اسم مثلا عشان السرعة

السلام عليكم اخ @أ / محمد صالح هل بالامكان التعديل على الماكرو بحيث يقوم بترتيب جميع الاعمدة ؟ جزاك الله كل الخير

السلام عليكم و رحمة الله و بركاته ..البرنامج المرفق عبارة اسماء طلاب كل صف او شعة الاسماء على شكل عمود المطلوب تعديل على كود الفرز و التقليل من عدد الاسطر يحيث يقوم الفرز ابجديا لجميع الاعمدة ...و شكرا student2022.xlsm

السلام عليكم هل من مساعدة في عمل كود vba و لكم جزيل الشكر ؟

السلام عليكم و رحمة الله و بركاته الاخ العزيز الطيب @hassona229 لقد اطلعت على رابط الموضوع ال1ي في الاعلي و هو رائع و مجهود في ميزان حسناتك و هو قريب توعا ما مما اريد ارسل مرفق بالاسفل هل بالامكان تعديل الماكرو بحيث من صفحة الغياب اليومي يكون الاستعلام بادخال التاريخ يوقوم بجلب البيانات اسماء الغياب حسب التاريخ و موزعة حسب القسم ؟ و شكرا جزيلا لك و السلام عليكم ترحيل الغياب.xlsm

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

السلام عليكم و رحمة الله و بركاته ارجو المساعدة بماكرو يقوم بترحيل الطلبة التي يكون في خاتة اليوم غائب او غ علما بانه يقوم الترحيل عن طريق زر ماكرو بشكل يومي او بشكل شهري عن طريق تكرار التموذج الغياب كل يوم بيومه و ذلك لعمل سجل ملاحظة الملف من ملف الموقع تم تعديله ليتناسب مع العمل كل الاحترام لكم و للجميع Absence2022-2.xlsx

السلام عليكم اخ @lionheart جزاك الله الجنة و بارك الله بك الكود يعمل بشكل حيد شكرا جزيلا لك و بارك الله بك

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

السلام عليكم اذا ممكن المساعدة في الملف لحل المشكلة ؟

السلام عليكم اجو المساعدة على الكود بحيث يقوم بجلب البيانات من صفحة sheet 1 الى صفحة ورقة 1 بحيث يقوم بجلب رقم الصفحة و اللوازم و العدد للمكان المختار من صفجة ورقة 1 ملاحظة يقون فقط بجلب البيانات الممتلئة و و يستثني الفارغة و يرتبها و جزاكم الله كل خير توزيع.rar

السلام عليكم اخ @lionheart جزااك الله كل خير the code work very good the problem is change the line Cells(r + 4, "H").Value = x.name to Cells(r + 4, "H").Value = x.Caption thank you very match

السلام عليكم اخ @lionheart i have attach the file test student name.xlsm

السلام عليكم استاذ @lionheart لماذا ظهر اسم capion بهاي الطريقة علما بانه تم عمل عمل caption vعن طريق الماكرو التالي : Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 24 Me.Controls("CheckBox" & CStr(i)).Caption = Worksheets("æÑÞÉ1").Range("A" & CStr(i)).Value Me.Controls("CheckBox" & CStr(i)).Value = False Next End Sub

السلام عليكم اخ @lionheart كيف ممكن اذا اعملت صح على اي شعبة يطهر في الخلية من H5 , لغاية 25h ؟ مثال اذا اخترت العاشر أ و العاشر ب ؟ تظهر في الخلية h5 العاشر أ و العاشرب في h6 ? , وهكذا

السلام عليكم اخ @lionheart الكود يعمل بشكل جيد شكرا لك و جزاك الله كل خير