2saad

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

تمام شكرا اللاصفات بتكون علي دسكات الطلبة

ربنا يوصلك بالسلامة وبارك الله فيك في انتظار حضرتك

مذا نفعل استاذنا الفاضل خالد ؟

الله يبارك في حضرتك استاذ خالد أنا لسه ملاحظ التكرار وكيس ان حضرتك نبهتني لذلك التقرير فيه عمودين أنا عايز اللاصق الأول ياخذ رقم جلوس واللاصق الذي أماهه يأخذ رقم جلوس آخر وهكذا يعني أول لاصق علي اليمين مثلا رقم جلوس 101 وعلي الشمال 102 وهكذا هو ده المطلوب أنا مش عايز اللاصق يتكرر

شكرا جزيلا أخي الفاضل وبارك الله فيك معلش أنا بتعب حضرتك معاي

هل من مجيب ؟

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

ارجو الاهتمام بالموضوع ضروري

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق تقرير وهو عبارة عن لاصقات ارقام جلوس بيأخذ بياناته من جدول المطلوب : عايز اللاصقات تكون مرتبة بحيث تكون اللاصق 1 بجانبها اللاصق 2 وهكذا ولكم جزيل الشكر ووافر الاحترامnoha.accdbnoha.accdb

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

شكرا استاذ محمد تعبتك معاي مش عايز يظبط معاي الجزئية بتظهر معاي في الكود بالشكل ده انظر الي الفاصلة بعد ( غ ) هل هي السبب في عدم عمل الكود ؟

استاذ محمد الجزئية ظهرت عندي بالشكل ده

شكرا استاذ محمد علي مجهودك الكود اللي حضرتك وضعته بيرحل ( غ ) فقط بس أنا عندي شك في وضغ الجزئية دي لما نقلت الكود كتبت عندي بالشكل السابق ولكن في كود حضرتك مكتوب ( لاحظ الفواصل ) rCrit = Split(",لها دور ثان,له دور ثان,غ", ",")

ارجو المساعدة

لو سمحت ماذا يفعل هذا الكود

معلش استاذي الفاضل التأخير في الرد بسبب الأنترنت محتاج ترحيل البيانات من CHEET4في الأعمدة الملونة باللون الأصفر 3- 4- 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 -28- 40 - 52 - 64 - 76 - 88 - 100 - 112 - 116- 131 بشرط ( له درو ثان و لها دور ثان و غ )في العمود 131 يتم ترحيلها الي( شيت الدور الثاني صف رابع ) الملف المرفق المطلوب SAAD.xlsm

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

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

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الكود المرفق يقوم بترحيل بيانات التلاميذ والتلميذات الذين لهم دور ثان محتاج اعدل فيه بحيث بحيث يرحل بيانات التلاميذ والتلميذات الذين لهم دور ثان وكمان ( غ ) Sub Filter_and_copy_with_condition() '********** MOHAMMED HICHAM 02/03/2024**************** Dim d, j Dim Search As Range, clé As String, IRow As Long Dim WS As Worksheet: Set WS = Worksheets("cheet4") Dim F As Worksheet: Set F = Worksheets("شيت الدور الثاني صف رابع ") d = 9: j = 16: clé = "*" & F.[B1] IRow = WS.Range("DZ:DZ").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row With Application .Calculation = xlManual .ScreenUpdating = False If Len([B1].Value) = 0 Then: Exit Sub Set Search = WS.Range("DZ16:DZ" & IRow).Find(clé, LookIn:=xlValues, lookat:=xlWhole) If Search Is Nothing Then MsgBox clé & " " & "غير موجود", vbExclamation, "Admin": Exit Sub F.Range("C10:O" & Rows.Count).ClearContents Do Until IsEmpty(WS.Range("DZ" & j)) If WS.Range("DZ" & j) Like clé Then d = d + 1 F.Cells(d, 3).Value = WS.Cells(j, 3).Value F.Cells(d, 4).Value = WS.Cells(j, 4).Value F.Cells(d, 5).Value = WS.Cells(j, 5).Value F.Cells(d, 6).Value = WS.Cells(j, 6).Value F.Cells(d, 7).Value = WS.Cells(j, 7).Value F.Cells(d, 8).Value = WS.Cells(j, 8).Value F.Cells(d, 9).Value = WS.Cells(j, 9).Value F.Cells(d, 10).Value = WS.Cells(j, 10).Value F.Cells(d, 11).Value = WS.Cells(j, 11).Value F.Cells(d, 12).Value = WS.Cells(j, 12).Value F.Cells(d, 13).Value = WS.Cells(j, 13).Value F.Cells(d, 14).Value = WS.Cells(j, 14).Value F.Cells(d, 15).Value = WS.Cells(j, 130).Value F.Cells(d, 18).Value = WS.Cells(j, 28).Value F.Cells(d, 21).Value = WS.Cells(j, 40).Value F.Cells(d, 24).Value = WS.Cells(j, 52).Value F.Cells(d, 27).Value = WS.Cells(j, 64).Value F.Cells(d, 30).Value = WS.Cells(j, 76).Value F.Cells(d, 33).Value = WS.Cells(j, 88).Value F.Cells(d, 36).Value = WS.Cells(j, 100).Value F.Cells(d, 39).Value = WS.Cells(j, 112).Value F.Cells(d, 42).Value = WS.Cells(j, 116).Value End If j = j + 1 Loop .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub

شكرا أخي الفاضل وبارك الله فيك

ارجو المساعدة

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

نرجو الاهتمام بالموضوع

أخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق محتاج اربط جدول المواد بالفصل بالمعلم ( Tbl_class ( الفصل ) - Tbl_teacher ( المعلم ) - Tbl_materil ( المواد ) ) مع الأخذ في الاعتبار أن المعلم ممكن أن يدرس أكثر من مادة ماذا أفعل في الجداول لربطها معا بالجدول الرئيسي (Tbl_student_sf_1 ) ارجو الاهتمام ضروري بالموضوع ده لأني محتاج افهمه الملف القديم: معلش الملف اكبر من المسموح فرفعته علي الميديا فاير https://www.mediafire.com/file/yt3t0flgrs6d6i6/كنترول+الصفوف+الأولي.rar/file 1613.كنترول الصفوف الأولي.accdb.zip