حاتم عيسى

الأستاذ الفاضل المحترم : أبو عيد تحية طيبة ... من عند الله بارك الله في حضرتك وشكرا على سرعة الرد أستاذي الفاضل جهد عظيم ومشكور عليه ولكن قد يكون هناك خطأ ما عندي فلم تظهر لي أي نتيجة بمعني الدوال موجودة في الجداول ولكن لا يوجد أي ناتج ظاهر في الخلايا نهائي بمعني لا يوجد اسماء حصص أو أسماء معلمين في صفحة جدول الفصل أو جدولين فصل أو صفحة جدول 6 فصول ولا أعلم ما الخطا الموجود عندي فل من مساعدة بعد إذن حضرتك ؟ وجزاك الله كل الخير علما بأنني أعمل على أوفيس 2013 . وهذه صورة الخطأ عند فتح الملف على أوفيس 2003

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

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

للرفـــــع للأهمية

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

للرفـــــع للأهمية

للرفع

للرفع

بسم الله الرحمن الرحيم السادة الأفاضل : مشرفين - رواد المنتدى الغالي أوفيسنا تحية طيبة من عند الله ... وبعد برجاء مساعدتي في إعداد نقل البيانات في جدول الفصل ( عند اختيار الفصل يتم نقل الحصص الخاصة بالفصل وكذلك اسم مدرسين الحصص أسفل كل حصة ) ولكم جميعًا وفار التحية وعظيم الاحترام ونفعكم الله بعلمكم وجعله في ميزان حسناتكم . مرفق ملف للعمل عليه الجدول المدرسي 2016 2017.rar

أستاذنا الغالي : عبد الباري البنا .... بارك الله في حضرتك وجعل جميع أعمالك في موازين حسناتك برنامج أقل ما يقال عنه أنه أكثر من رائع ممتاز ممتاز جدا

الاستاذ الفاضل // عبدالبارى السلام عليكم يرجى رفع البرنامج هنا بالمنتدى نظرا لإحتواء رابط التحميل على برامج ضارة The site ahead contains harmful programs جزاكم الله خيرا

كل عام وجميع حضراتكم بألف خير الأمة الإسلامية بخير بمناسبة عيد الأضحى المبارك أستاذ الفاضل هل من الممكن إعادة الرفع مرة أخرى أو مراجعة الرابط حيث أنه لا يتم التحميل وجزاك الله كل الخير .....

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

بفضل الله تعالى ..... ثم بفضل الأستاذ الفاضل المحترم : ياسر خليل أبو البراء تم تعديل الكود وحل المشكلة في المشاركة التالية

أستاذي الفاضل المحترم الخلوق : ياسر خليل أبو البراء بارك الله في حضرتك وزادك الله من فضله ونفعك بعلمك وجعل الله جميع أعمالك في موازين حسناتك

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

بسم الله الرحمن الرحيم برجاء من السادة خبراء الاكسيل وأساتذة الأكواد مساعدتي في التعديل على الكود التالي حتى يتم فك حماية الصفحات المرحل إليه االبيانات ثم مسح البيانات السابقة ثم ترحيل البيانات ثم إعادة حماية الصفحات مرة أخرى . علما بأن كلمة مرور الحماية هى ( 123 ) وشكرا لكم جميعا Option Base 1 Sub Transfer_Data() ' Dim Sh_Master As Worksheet Dim Rng As Range Dim Arr() Application.ScreenUpdating = False '====================================================================================== Set Sh_Master = Sheets("الرئيسية") For Each Sh In Sheets If Sh.Name <> Sh_Master.Name Then Sh.Range("B7:H" & Rows.Count).ClearContents End If Next End_Row = Sh_Master.Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Sh_Master.Range("A6:N" & End_Row) Arr = Rng '====================================================================================== For Row = 2 To UBound(Arr) For Col = 7 To 12 If Arr(Row, Col) = 1 Then ShName = Arr(1, Col) End_Row = Sheets(ShName).Cells(Rows.Count, "C").End(xlUp).Row + 1 Set Rng = Range(Sh_Master.Cells(Row + 5, "B"), Sh_Master.Cells(Row + 5, "F")) Rng.Copy Sheets(ShName).Range("B" & End_Row) Sheets(ShName).Range("G" & End_Row) = Arr(1, Col) '============================== Sheets(ShName).Range("H" & End_Row) = Sh_Master.Cells(Row + 5, "N") - 1 ' OR ' Sheets(ShName).Range("H" & End_Row) = "عنده مواد تالية" '============================== End If Next Next '====================================================================================== Application.ScreenUpdating = True ' End Sub

لو أمكن من فضل حضرتك عند ترحيل البيانات للمرة الأولى تتم بنجاح وتتم حماية الصفحات ولكن عند إضافة أي تلاميذ جدد وإعادة الترحيل مرة أخرى يعطي رسالة مفادها بأن الخلايا محمية ولا يمكن الترحيل . فما الحل ؟

بارك الله في حضرتك واسف على ازعاج حضرتك وكثرة الطلبات.

Option Base 1 Sub Transfer_Data() ' Dim Sh_Master As Worksheet Dim Rng As Range Dim Arr() Application.ScreenUpdating = False '====================================================================================== Set Sh_Master = Sheets("الرئيسية") For Each Sh In Sheets If Sh.Name <> Sh_Master.Name Then Sh.Range("B7:H" & Rows.Count).ClearContents End If Next End_Row = Sh_Master.Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Sh_Master.Range("A6:N" & End_Row) Arr = Rng '====================================================================================== For Row = 2 To UBound(Arr) For Col = 7 To 12 If Arr(Row, Col) = 1 Then ShName = Arr(1, Col) End_Row = Sheets(ShName).Cells(Rows.Count, "C").End(xlUp).Row + 1 Set Rng = Range(Sh_Master.Cells(Row + 5, "B"), Sh_Master.Cells(Row + 5, "F")) Rng.Copy Sheets(ShName).Range("B" & End_Row) Sheets(ShName).Range("G" & End_Row) = Arr(1, Col) '============================== Sheets(ShName).Range("H" & End_Row) = Sh_Master.Cells(Row + 5, "N") - 1 ' OR ' Sheets(ShName).Range("H" & End_Row) = "عنده مواد تالية" '============================== End If Next Next '====================================================================================== Application.ScreenUpdating = True ' End Sub الأستاذ الفاضل المحترم الخلوق : عمر الحسيني تحية من عند الله ... وبعد أتقدم بخالص الشكر والتحية والتقدير لمجهود حضرتك ولما بذلته في تنفيذ طلبي بارك الله فيك ولك وعليك مشكووووووووووووووووووووووووووووووووور مجهود وعمل أكثر من رائع هل من الممكن حماية الصفحات المرحل إليها البيانات بكلمة مرور وليكن " 123 " حتى لا يتم العبث بها وهذا هو الكود الأكثر من رائع الخاص بالترحيل والذي قمت حضرتك بعمله في الملف :

بارك الله في حضرتك عمل أكثر من رائع وممتاز ولكن هناك نقطة صغيرة وهى مسح البيانات من الصفحات المرحل إليها قبل الترحيل حتى لا يكون هناك تكرار في البيانات . وشكرا جزيلا لحضرتك وجعل الله جميع أعمالك في موازين حسناتك ....

الملف بعد بعض التعديلات برجاء المساعدة للضرورة بارك الله فيكم جميعًا الدور الثاني444.rar

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

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

بارك الله في حضرتك وشكرا على الرد جاري التجربة