أبو عبد الملك السوفي

أولا شكرا لك على الجهد المبذول ولكن الرقم 2- ماذا يعني هل له دلالة

السلام عليكم المطلوب صحيح لكن لو سمحت استاذي الكريم هل يمكن استبدال الدوال بكود

121 السلام عليكم ما معنى هذا السطر في الكود Cells(Target.Row, 6).Value = "=RC[-2]*RC[-1]" وماذا تعني RC[-2]

للرفع رفع الله قدركم

السلام عليكم أساتذتنا الكرام السلام عليكم لو تتفضلون علينا بكود لترتيب نتائج الطلبة بحيث: بحيث يعطي للطالب رتبته في الحلقة وريبته في المدرسة ككل حيث يراعى في ترتيب الطالب على مستوى الحلقة الآتي : اذا تعادل مجموع الدرجات بين طالبين او اكثر (العمود p ) تعطى الاولوية لنسبة الحفظ واذا تعادلت تعطى الأولوية للأقل غيابات ثم الاولوية الاختبار الشهري ثم السلوك فان تعادل في كل شيء شهر ماي 2104.rar

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

الحمد لله حلت المشكلة الاولى لكن انتقل الخطا الى السطر Range("A3:K100000").ClearContents كان من المفترض ان يمسح البيانات

بقي نفس المشكل

حسننا ساحاول

شكرا اخي لكن الوقة ليست محمية ويظهر الخطا في السطر Lr = [b100000].End(xlUp).Row

أخي الحبيب بارك الله فيك هل لكان ترشدني اين الخطا في هذا الكود Sub ÍÝÙ() Application.ScreenUpdating = True Dim Lr As Integer Dim nr As Integer Lr = [b100000].End(xlUp).Row Range("A3:l" & Lr).Copy nr = Sheets("ÇáãÈíÚÇÊ ÚÇã").[a100000].End(xlUp).Row + 1 Sheets("ÇáãÈíÚÇÊ ÚÇã").Range("A" & nr).PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ" Range("A3:K100000").ClearContents End Sub

السلام عليكم اساتذتنا الكرام لو تتفضلو علينا بشرح معنى End(xlUp).Row في الكود وشكرا

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

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

السلام عليكم آسف استاذي حمادة هنالكة مشكلة بسيطة في الكودفهو يقوم باستدعاء كل الموظفين من جدول حجز الغياب ويرحلها لجدول المراسلة.........لكن كان على الكود ان يستدعي اسماء الموظفين الذين لهم غيابات فقط اما الذين ليس لهم غياب فلا داعي لاستدعاء اسمائهم وترحيلها لجدول الارسال والارشيف

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

السلام عليكم العلامة حمادة اولا لك جزيل الشكر عن هذا المجهود الكبير ثانيا هل يمكن دمج الكودين في كود واحد اي عند ضغط الايقونة يتم استدعاء معلومات الموظف الاول وطباعتها وترحيلها ثم ينتقل الكود للموظف الثاني ان كان له غياب يستدعي بياناته ثم يطبعها ثم يرحلها وهكذا لكل الموظفين. اي يقوم بهذه العملية لكل الموظفين بضغطة واحدة قد يكون الامر صعب ولكن ليس على العلامة حمادة تقبل احترامي وتقديري

السلام عليكم اود من استاذي العلامة القدير حمادة ان يضيف الى كوده الاخير في الملف المرفق ان يضيف للكود الطباعة حسب الشرح التالي: اريد من الكود ان يرحل البيانات من صفحة حجز الغيابات الى صفحة قرار الخصم -اي يقوم مقام دالة VLOOKUP - ثم يقوم بطباعة صفحة قرار الخصم ثم يرحل البيانات الى صفحة جدول الارسال وصفحة الارشيف وهذا لكل من له غياب . ملاحظة : يجب ان يستثني الكوود من ليس له اي غياب برنامج الخصم.rar

السلام عليكم بارك الله فيك الاستاذ العلامة حمادة هل ان احتجت تعديل اتصل بك على الخاص فانا لا اريد ازعاجك دمت لنا ذخرا استاذنا

السلام عليكم العلامة حمادة بارك الله فيك وفي علمك وجوزيت خيرا هل لك ان تكمل لي كود مسح محتويات صفحة حجز الغيابات من العمود H الى العمود W

السلام عليكم للرفع بورك فيكم

السلام عليكم زملائي واساتذتي الكرام كيف حالكم شغلتنا الدنيا عنكم لي عمل يا حبذا لو تساعدونني فيه والمطلوب هو كود لترحيل البيانات في صفحةقرار الخصم الى صفحة جدول الارسال وصفحة الارشيف Book1.rar

السلام عليكم الاوراق المخفية تم اظهارها New qu.rar

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

السلام عليكم استاذي بن علية جازاك الله خيرا وانعم عليك من فضله أولا/الترحيل يكول لشيت واحد والاشهر جنب بعضها البعض ثانيا/ الترحيل يكون من العمودCV الى DA