جلال محمد

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

تمام ... شكرا جزيلا 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

السلام عليكم ممكن رفع الملف هنا ... اللينك لا يعمل

جرب الملف فورم ادخال و تعديل مرن مع الصور.rar

شكرا للجميع الحمد لله لقد توصلت الي الحل كشف ملاحظة 1.xlsx شكرا جزيلا اخي بن علية لم اري رد حضرتك .... وفعلا الحل تمام وحل رائع ... شكرا لحضرتك جزاك الله خير

السلام عليكم يوجد مشكلة بالمف وهي توجد دالة IF في العمود S بداية من الخلية الرابعة ملخصها عند تساوي اسم المادة الموجودة في الخلية S3 مع مواد الرينج D3:O3 والخلية المقابلة الاسم المعلم فارغة يظهر اسمة واذا وجد اي نص لا يظهر الاسم المشكله عند اختيار المادة المفروض تظهر الاسماء في العمود S الذى يظهر في العمود S هي مادة الجيولوجيا فقط والباقي يظهر في الاعمدة المجاورة بترتيب المواد فما حل هذة المشكلة اريد الاسماء تظهر في عمود واحد وهو S شكرا لكم كشف ملاحظة 1.xlsx Untitled Project.rar

الحمد لله

شكرا جزيلا فكرة جميله بس انا اريدها من الاكسل نفسه

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

جزاك الله خيرا

اخي الكريم حسين كمال جزاك الله خيرا على تعب حضرتك ان شاء الله هجرب البرامج ... ويارب تجيب نتيجة ان شاء الله شكرا لحضرتك ولجميع الزملاء

شكرا جزيلا ياريت يكون هناك حل مرفق ملف وورد وملف صورة الموقع لم يقبل الملف في وجود الامتداد المضاف للملف الامتدد هو npph تعريف التربية الفنية.docx