2saad

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

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

معلش استاذي الفاضل التأخير في الرد بسبب الأنترنت محتاج ترحيل البيانات من 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

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

شكرا جزيلا لحضرتك استفدت من حضرتك معلش أنا مبتدئ في الاكسس ومحتاج اعمل قاعدة بيانات مدرسة ممكن تساعدني بنصحك وارشادك

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

شكرا جزيلا أخي الفاضل

اخواني الاعزاء بعد سلام الله عليكم ورحمته وبركاته في الملف المرفق استعلام به حقل ( takeem_nesf ) محتاج تقرير عن ( غ ) وتقرير عن ( لم يتقن المعارف ) وتقرير عن الاثنين معا وشكرا لكم جميعا آسف الملف المرفقnoha.rar

الله يبارك فيك دنيا وآخرة بحق هذه الأيام المباركة وكل عام وأنت طيب وبخير

اخواني الإعزاء بعد سلام الله عليكم ورحمته وبركاته وكل عام وأنتم طيبون عندي جدول درجات مواد الطلاب( عربي - انجليزي - دراسات - علوم ..... ) وبعض الطلاب غائب في امتحانات المواد فوضعت مكان درجته ( . ) وعملت استعلام للجدول لكي اجمع درجات كل طالب ( عربي + دراسات + علوم + انجليزي ) والناتج يطلع تمام ولكن الحقل اللي فيه صفر يطلع المجموع فارغ ايه السبب ؟؟

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

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

نرجو تصحيح الخطأ

شكرا لحضرتك وبارك الله فيك علي ردك الملف حضرتك مش عايز يفتح وتأتي الرسالة

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

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته بعد اذن حضراتكم أنا عملت تقرير بشهادة تقدير للطلبة مبنية علي الاستعلام الموجود بالملف بالملف نموذج عند اختيار الاسم من القائمة المنسدلة تظهر بيانات التلميذ عايز عند الضغط من القائمة المنسدلة علي اسم التلميذ تترحل بيانات التلميذ الي شهادة التقديرmas_s2 - edit.rar

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