seddiki_adz

شكرا لم تفهمني اخي المطلوب عنذا احدد غياب احد الاساتدة في يوم معين يجلب لي الاقسام الى الى الصفحة الثانية emploi 24-03-2022.xls

طلب مساعدة استخراج و نقل معطيات باستعمال التاريخ و الاسم من جدول الى جدول اخر emploi 23-03-2022.xls

ترحيل من الشيت 1 الى الشيت 2 Classeur121212.xls

رجاء اريد البحث عن القيم الموجودة في الشيت LIST GQRDE الى الشيت GRADETA جدول الحراسة1.xlsm

رجاء شرح هذا الكود Private Sub cmdgardeetablisse_Click() cmdgardeetablisse.Enabled = False Worksheets("gradeeta").Range("B7: al45").ClearContents Worksheets("gradeeta").Cells(3, 4) = "الرجاء الانتظار ..." For b = 3 To 38 For a = 4 To 80 For i = 7 To 47 If Worksheets("list garde").Cells(a, i) = Worksheets("gradeeta").Cells(6, b) Then Worksheets("gradeeta").Cells(i - 1, b) = Worksheets("list garde").Cells(a, 2) End If Next i Next a Next b Worksheets("gradeeta").Cells(3, 4) = "" cmdgardeetablisse.Enabled = True End Sub جدول الحراسة1.xlsm

لدينا 24 قاعة كل قاعة تسند لاستادين اريد توزيع عشوائي 56 استاد على 24 قاعة ؟ Classeur11111.xls

شكرا اخي هل يمكن تغيير كود بدلا من جلب مدرس واحد في القاعة جلب مدرسين Private Sub cmdgardeetablisse_Click() cmdgardeetablisse.Enabled = False Worksheets("gradeeta").Range("c6: al45").ClearContents 'Worksheets("gradeeta").Range("n6: v45").ClearContents 'Worksheets("gradeeta").Range("y6: ag45").ClearContents 'Worksheets("gradeeta").Range("aj6: ar45").ClearContents Worksheets("gradeeta").Cells(3, 4) = "ÇáÑÌÇÁ ÇáÇäÊÙÇÑ..." For b = 3 To 38 For a = 4 To 80 For i = 7 To 47 'If b < 10 Then c = b 'If b > 9 And b < 19 Then c = b + 2 'If b > 18 And b < 28 Then c = b + 4 'If b > 27 Then c = b + 6 If Worksheets("list garde").Cells(a, i) = Worksheets("gradeeta").Cells(5, b) Then Worksheets("gradeeta").Cells(i - 1, b) = Worksheets("list garde").Cells(a, 2) End If Next i Next a Next b Worksheets("gradeeta").Cells(3, 4) = "" cmdgardeetablisse.Enabled = True End Sub

2توزيع.xlsm

اريد كيفية تطبيق المعادلة على الخلايا =SI(RECHERCHEV($K$2;servproftot;12;FAUX); "ق"&RECHERCHEV($K$2;servproftot;12;FAUX);"")

السلام عليكم اريد جلب الحصص من الجدول الفردي للحصص الى الجدول الاجمالي اكسل، هل يمكن ؟

نعم اشتغل شكرا

بارك الله فيك

عدد الوثائق.xls

اين الحطأ عدد اÙ_Ù_ثائÙ_.xls

اين الخطا ؟ Classeur20211.xlsx

السلام عليكم ممكن مساعدة في ترحيل من الصفحة 1 الى الصفحة2 Classeur2021.xlsx

بارك الله فيك وجعل هذا العمل الله في ميزان حسناتك

السلام عليكم مادا لو غيرنا الرقم 9 بالرقم 17 Sub tar7eel() For n = 2 To Cells(Rows.Count, 17).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub Classeur6666.xls

الكود يعمل بصفة جيدة لكن القيمة الناتجة تتغير و تلصق في الخلية المقابلة لها في العمود j Classeur111.xlsx

نسخ القيمة المحصل عليها ولصقها لكن عندما تتعير القيمة E2 تمسح لذا يلزم كود خاص لنسخ القيمة دون ان تمسح

القيمة الموجودة في الخلية E2 ناتجة بحساب عدد الاسطر وتتعير بتغير القيمة الموجود في E2

نعم J2 E2=J6 ادا كانت القيمة ثابتة لكن القيمة غير ثابتة

السلام عليكم ابحث عن كود لنسخ عدد ناتج عن مجموع الاسطر موجود في خلية في خلية اخرى تــــم تعديل رفع الملف بصيغة XLSM Classeur6.xlsm

جربت الكود لكن لا يعمل claseurs4.xlsx

نريد البحث عن قيمة الخلية F4 و F6 في العمودين H و I بشرط القيمة F2 Classeur2022.xlsx