2saad

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

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

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

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

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

شكرا جزيلا

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

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

شكرا جزيلا يا استاذ محمد

اخواني اعضاء المنتدي الكرام السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير محتاج كود فلترة من شيت 1 الي شيت 2 بناء علي القائمة المنسدلة الملونة باللون الأصفر في شيت 2 ابتداء من C22 الي AD ولكم جزيل الشكرتجربة.xlsm

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

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

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

بارك الله فيك وأكثر الله من أمثالك لي طلب عند حضرتك عايز اعرف المقصود من رقم 6 هل المقصود به العمود 6 في control4 اللي هو الاسم arr = wsData.Range("C10:U" & wsData.Cells(Rows.Count, 6).End(xlUp).Row).Value2

اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته مرفق ملف به كود ترحيل من شيت control4 ( الأعمد الموضوع عليها اسهم ) الي شيت مناداة4 الكود به خطأ مش عارف اصححه ارجو تصحيحه أو ماذا افعل لكي اصححهمصطفي.xlsb ولكم جزيل الشكر ووافر الاحترام مصطفي.xlsb

اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته عندي ملف فيه مجموعة من أوراق العمل وعملهم اخفاء من الفيجوال بيسك ماعدا ورقة واحدة وعامل في كل ورقة زر يفتح يوزر فورم به ليست بوكس يضم كل اوراق العمل عايز لما اضغط علي اي ورقة عمل تفتح وهذا هو كود الموجود باليوزر فور ( ماذ اضيف له لكي تفت الورقة المختارة ) Private Sub Label4_Click() End Sub Option Explicit Private Sub ListBox1_Click() With Me.ListBox1 If .ListIndex <> -1 Then ThisWorkbook.Sheets(.List(.ListIndex)).Activate End If End With End Sub Private Sub UserForm_Initialize() Dim y As Integer Do y = y + 1 ListBox1.AddItem Sheets(y).Name Loop Until y = Worksheets.Count End Sub

شكرا جزيلا يا استاذ محمد

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

شكرا جزيلا استاذ محمد معلش أنا بتأخر عليك في الرد بسبب النت

اخواني الأعزاء اعضاء المنتدي الكرام بعد السلام عليكم ورحمة الله وبركاته صفحة المطور عندي حدث فيها لخبطة مش عارف ليه عايز ارجعها لوضع العاديكشف 12.xlsm

أستاذنا الكبير / محمد هشام بارك الله فيك وأكثر الله من أمثالك

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

السلام عليكم شكرا لحضرتك يا استاذ محمد أنا عملت زي ما حضرتك قلت ولكن فيه خطا رزة1.xlsm

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

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