مجاهد2013

الف شكر و ألف تحية للجميع حفظكم الله بحفظه و جعل ما تقدموه لنا من مساعدات في ميزان أعمالكم الصالحة كود جمع اليانات في خلية واحدة شغال و لكن العيب فيه أن الاسم يأتي بعد اللقب و ليس بعد تاريخ و مكان الازدياد و كذلك التاريخ غير كامل ينقصه اليوم لا يظهر (كما هو مبين في الصورة المرفقة) med.xlsm

أولا شكرا أستاذ سليم الكود شغال و لكن لا يحافظ على الترتيب حتى بالمعادلة حصل معي نفس الشيئ ( الملف المرفق) و لكن الذي أريده بالضبط هو إدراج رمز QR أسفل الشهادة كما هو مبين في الصورة المرفقة medjahed-11.xlsx

السلام عليكم عني في الملف المرفق لشهادة مدرسية أريد إدراج QR كود أسفل الشهادة و يحتوي على البيانات المدونة باللون الأحمر و هي مجمعة في الخلية M15.فهل ممكن المساعدة في هذا. medjahed.xlsx

الف شكر أستاذ سليم مع تحياتي.🖕

أستاذ سليم هاهو الملف الذي عملنا عليه سابقا std_salim.xlsm

أولا الف شكر ثانيا أستاذ سليم أنا أحتاج في الترحيل يكون لكل قسم 50صف القسم الثاني مثلا يبدأ من 51 و هكذا ..........لأن عند إضافة أي تلميذ من أي قسم عند الترحيل يترحل للقسم بتاعه لأني عندي في عمل ثاني أحتاج (selection) لكل قسم على حدى لعمل قائمة منسدلة .

ألف ألف شكر

السلام عليكم في الملف المرفق أريد ترحيل بيانات من data إلى data2 غيرت بعص الأعمدة في شيت داتا و غيرت كذلك في الكود( المنجز سابقا من طرف الأستاذ سليم حاصبيا) و لم أتحصل على النتيجة إذا كان ممكن أستاذ سليم أو غيره يصحح لي الخطأ. Option Explicit Sub give_data() If ActiveSheet.Name <> "data" Then Exit Sub Dim i%: i = 3 Dim Laste_Row%, k%, m% Dim arr, arr_num() Dim rg As Object arr_num = Array(3, 53, 103, 153, 203, 253, 303, 353, 403, 453, 503, 553, 603, 653, 703, 753, 803, 853, 903, 953, 1003, 1053, 1103, 1153, 1203, 1253, 1303, 1353, 1403, 1453, 1503, 1553, 1603, 1653, 1703, 1753, 1803, 1853, 1903, 1953, 2003) Laste_Row = Sheets("data").Cells(Rows.Count, 1).End(3).Row Sheets("data2").Range("a3").Resize(3000, 3).ClearContents Set rg = CreateObject("system.collections.arraylist") With rg Do Until i > Laste_Row If Not .contains(UCase(Range("h" & i).Value)) Then .Add UCase(Range("h" & i).Value) i = i + 1 Loop arr = .toarray End With For i = LBound(arr) To UBound(arr) m = arr_num(i) For k = 3 To Laste_Row% If Sheets("data").Cells(k, "H") = arr(i) Then With Sheets("data2").Cells(m, 1) .Value = Sheets("data").Cells(k, "A") .Offset(, 1) = Sheets("data").Cells(k, "Y") .Offset(, 2) = Sheets("data").Cells(k, "H") m = m + 1 End With End If Next Next Set rg = Nothing: Erase arr_num: Erase arr End Sub عذرا ان لم تكن هذه هي الطريقة الصحيحة لعرض الموضوع 1411.xlsm

السلام عليكم أتمنى أن يكون الجميع بصحة و عافية عندي في الجدول لما أثبت الغيابات (بما أن الجمعة و السبت عطلة نهاية الأسبوع ما فيش دراسة ) أريد كود لنسخ محتوى العمود (الخميس) في عمودي الجمعة و السبت على مدار السنة هو سهل بالعادلات لكن كما تعلمون الأيام تتغير كل سنة . لكم مني جزيل الشكر نسخ غياب.xlsx

تمام التمام ألف شكر مع تحياتي أستاذ سليم

أولا ألف شكرا أستاذ سليم فغالبا ما أجدك بجانبي ـ سأبعث لك صورتين لتوصيح المطلوب . و هكذا تكون الغيابات متتالية حسب الأيام

السلام عليكم أحتاج كود لترحيل الغيابات من شيت"p" إلى شيت " غيابات الأساتذة " حسب الجدول بحيث : عند وضع حرف غ للاستاذ الغائب يقوم بترحيله إلى شيت غيابات الاساتذة وفق الجدول الزمني المخصص له من شيت " t " و شكرا med.xls

السلام عليكم أولا أتقدم بالشكر لكل أساتذة المنتدى الذين أجدهم دعمل لي في كل مرة .تحياتي للجميع الكود هذا من انجاز أحد الأساتذة فكل الشكر موصول له أردت إضافة رسالة تنبهني " قل قمت بطباعة التقرير اليومي " الكود عمل نص و النص امهم لم يعمل و هو : تجيني الرسالة و في حالة No من المفروض لا يقوم بتثبيت الغيابات و يعود إلى شيت التقرير اليومي للطباعة و في حالة yes يتمم الكود مهمته. الكود موجود في الموديول 3. كما أريد إضافة كود لنسخ خلايا كل أعمدة (الخميس ) في أعمدة الجمعة و السبت jour.xlsm

ألف شكر استاذنا تحياتي

أولا أستاذ سليم كيف أحوالك أتمنى تكون في تمام الصحة و العافية المهم الكود شغال و لكن أنا أريد أن أرحل عدد معين من التلاميذ إلى الجدول و ليس العدد الكلي مثلا قسم 3أ ف به 45 تلميذا و أنا أريد أن أرحل 23 تلميذا يعني يرحل من 01 إلى 23 و لما أطلب أكتب القسم ثانية في الجدول الأخر يرحل من 24 إلى ......( حسب العدد المطلوب ) و هكذا

السلام عليكم المطلوب في شيت pv عند كتابة اسم القسم و عدد التلاميذ يرحلهم مباشرة من شيت data إلى شيت Pv حسب العدد المطلوب و يرحل الباقي حسب العدد المطلوب إلى المكان المطلوب و شكر ا مسبقا med.xlsx

عذرا استاذ سليم على الازعاج و لكن المطلوب داخل الجدول الأقسام المقابلة لمنصب ريا م1 في صف الاقسام أرفقت لك ملف توضيحي عندما أغير الأستاذ يتغير الجدول بما فيه من اقسام ربما : 3ع ت01 و 2ت ر 1ع2 ............ salim.xlsx

السلام عليكم أخ سليم ليس ذاك المقصود فقد أرفقت ملفا توضيحيا عند جلب اسم الاستاذ و مادة تدريسه يملا الجدول اليا باسماء الأقسام الموجودة في الصف 6 (E6:Z6) بناء على المنصب مثلا (ريا م1) الأقسام التي تقابله في الجدول العام و قد لونت الخلايا المناسبة لذلك بلون أصفر .ليوم الأحد كمثال و شكرا توضيح.xlsx

السلام عليكم أرجو المساعدة في ترحيل بيانات من شيت جدول عام ( يحتوي توقيت الأساتذة حسب الأقسام ) إلى شيت جدول فردي بحيث مثلا أستاذ ريا م1 ماهو القسم الدي يعمل معه أول حصة يوم الأحد هو قسم 3ت ر ( الأقسام موجودة في E6:Z6 ) استاذ.xlsx

ألف شكر أستاذنا الكريم

السلام عليكم أولا رمضان كريم للجميع مع كل الشكر و التقدير لمن ساعدني في انجاز هذا البرنامج والى كل الأساتذة الافاضل . عندي مشكل في شيت جدول الحراسة (عندي 3 حراس حارس أول يرمز له بالرمز ر متبوع برقم الحجرة و حارس ثاني و ثالث يحملان رقم القاعة مثلا : القاعة 1 : ر1-1-1 نجدها في شيت data2 في العمود h اريد تصحيح المعادلة الخاصة بالحارس الثالث و شكرا لكم BOOK (2).rar

السلام عليكم : بعد إذن حضرة الأستاذ سليم و الاستاذ بن علية اللذان ساعداني في انجاز هذا البرنامج و كل الساهرين على المنتدى عندي كود (salim code) لجلب معطيات الأساتذة بعد الفلترة رجال-نساء(H.F) أردت تغيير الفلترة حسب الاطار (أ ت ث-أ ت م-أ ت إ)عدلت شوية في الكود لكن ظهر خطأ ممكن حد يصحح لي . سؤال ثاني في جدول الحراسة أريد أسفل ( الحراس الاحتياطيون) أن أرحل ح1 للعمود الاول ح2 للعمودالثاني ح3 للعمود الثالث من شيت توزيع الحراسة . و شكرا لكم حراسة امتحان.xlsm

ألف شكر أستاذ بن علية .تحيباتي

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

ألف شكر أستاذ سليم شغال تمام . أسف مرة أخرى سؤال أخر أستاذنا هل اطلعت على الموصوع الذي طرحته سابقا في المنتدى تحت عنوان (توزيع الحراسة ) و قد اخذت سؤال اليوم جزء منه و الذي أريد من خلاله توزيع آلي للحراس بشروط فهل ممكن المساعدة