جلال محمد

تمام ... شكرا جزيلا جزاك الله خيرا

تمام ... شكرا جزيلا Foksh الاوامر تعمل جيدا باقي زر الطباعه عند معاينة الطباعه يتوقف الفورم امام المعاينة وبالتالي يتوقف الملف عن العمل

ارجو اضافة الدالة GetDateColumn في الكود حتي اتخلص من هذة الرساله

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

تمام ... شكرا استاذ حجازى جزاك الله كل خير علي جميل عملك وسرعة الرد

السلام عليكم اخي محمد بعد تجربة الكود علي اكثر من فصل تحدث مشكله بعد ترحيل السشن الاول لفصل 1Aيتم الترحيل تمام عند اختيار فصل تاني مثل 1B يقوم الكود بمسح غياب الفصل السابق ... وهكذا .. شاهد المرفق ... اختر الفصل من D3 ثم اختر التايخ من D2 يتم استدعاء الفصل غياب2.xlsm

السلام عليكم في اي ورقة يتم تغير الملف واعدادة للعام الدراسي الجديد غيرت في صفحة RW تواريخ الاسابيع ولكن عند كتابة تاريخ في صفحة CL تظهر رساله ان التاريخ غير موجود كما في الصورة التاريخ مظبوط علي سنة 2024 عند كتابة تاريخ في عام 2025 تظهر رسالة الخطأ

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

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

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

اريد ترحيل عمود السشن بما فية اسم المعلم حسب الاختيار من شيت2 الي شيت3 بشرط تطابق التاريخ والكود ورقم السشن Book2.xlsx

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

Sub dahmour() Dim w As Workbook Dim L As String Dim r1 As Long, r2 As Long, c As Long Dim cell As Range, cell2 As Range Set w = ActiveWorkbook L = w.Sheets("Sheet2").[d2].Value If L <> "" Then r1 = w.Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row r2 = w.Sheets("حصر الغياب").Cells(Rows.Count, 1).End(xlUp).Row c = w.Sheets("حصر الغياب").Range("E7:Z7").Find(L, LookAt:=xlWhole).Column For Each cell In w.Sheets("Sheet2").Range("a11:a" & r1) For Each cell2 In w.Sheets("حصر الغياب").Range("D8:D" & r2) If cell2.Value = cell.Value Then w.Sheets("حصر الغياب").Cells(cell2.Row, c) = w.Sheets("Sheet2").Cells(cell.Row, [k4]).Value Exit For End If Next cell2 Next cell End If End Sub يوجد خطا في هذ السطر c = w.Sheets("حصر الغياب").Range("E7:Z7").Find(L, LookAt:=xlWhole).Column مرفق ملف غياب.xlsm

وعليكم السلام ... شكرا استاذ عبد الله

اريد من حضاراتكم التعديل علي الكود المرفق بدل الترحيل لملف خارجي الترحيل لشيت في نفس الملف وليكن اسم الشيت ( Sheets3) فما التعديل المناسب .... وشكرأ لكم Sub dahmour() Dim w1, w2 As Workbook Dim L As String Set w1 = ActiveWorkbook Set w2 = Workbooks("STEM Grade 10.xlsm") L = w1.Sheets("Sheet2").[d2] If L <> "" Then r1 = w1.Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row r2 = w2.Sheets("Total").Cells(Rows.Count, 1).End(xlUp).Row c = w2.Sheets("Total").Range("K13:KJ13").Find(L, LookAt:=xlWhole).Column For Each cell In w1.Sheets("Sheet2").Range("a11:a" & r1) For Each cell2 In w2.Sheets("Total").Range("H14:H" & r2) If cell2.Value = cell.Value Then w2.Sheets("Total").Cells(cell2.Row, c) = w1.Sheets("Sheet2").Cells(cell.Row, [k4]).Value Exit For End If Next Next End If End Sub