2saad

شكرا جزيلا

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

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

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

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

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

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

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

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

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