اضافة صف من صفحة اخرى بنفس التنسيق والمعادلات

[محمد الورفلي1]

لو سمحتو اريد اضافة صف من صفحة اخرى بنفس التنسيق والمعادلات

 

اضافة صف من صفحة اخرى.rar

[محمد الورفلي1]

للرفع

[محمد الورفلي1]

هل ممكن حل

[محمد الورفلي1]

اذا كان في طريقة اخرى ياريت توضيخها لي وشكراً

[احمدزمان]

السلام عليكم و رحمة الله

اخي محمد

 

ماهو سر دمج خلايا 3 صفوف في الورقة الثانية

 

من اين يتم نقل البيانات حيث يوجد ورقة الأولى جدولين عن اليمين وعن اليسار

 

بمعنى الموضوع محتاج توضيح اكثر اذا تكرمت

[محمد الورفلي1]

وعليكم السلام ورحمة الله وبركاته   الاخ الفاضل أحمد زمان

بالنسبة للدمج فان لدينا ملف رئيسي لدى وزارة التعليم فهو تكون به الخلايا مدمجة حتي تكون امام كل اسم خلية للفصل الدراسي الاول للاعمال والامتحان وكذالك فصل دراسي ثاني فهن اربع خلايا فا انا مجبر علي ان تكون بنفس التنيسق حتي يتسنى لي نسخ اسماء الطلبة مره واحدة فهذا

نظام الامتحانات في ليبيا

واذا كان هناك حل اخرى اخي الفاضل مافيش مشكلة فا هذا الخيار (( الدمج )) فقط لسهولة نسخ الاسماء وليس عائق

تم تعديل مايو 13, 2014 بواسطه محمد الخازمي

[احمدزمان]

 

 

من اين يتم نقل البيانات حيث يوجد ورقة الأولى جدولين عن اليمين وعن اليسار

 

بمعنى الموضوع محتاج توضيح اكثر اذا تكرمت

[احمدزمان]

السلام عليكم

 

تم عمل التالي

 

في ورقة اعدادات

تم تغيير دالة مسلسل بحيث تأخذ المسلسل بمجرد كتابة الإسم في خانة الإسم حتى وان ترك السابق فارغ

 

في ورقة درجات الأولي

تغيير دالة التسلسل في ورقة درجات الأولي الى 

=MAX($A$10:$A10)+1

تغيير الدالة لجلب بيانات الطالب الى

=IF(ISERROR(INDEX(اعدادات!$A$1:$G$555;MATCH($A11;INDEX(اعدادات!$A$1:$G$555;;1);0);2));"-";INDEX(اعدادات!$A$1:$G$555;MATCH($A11;INDEX(اعدادات!$A$1:$G$555;;1);0);2))

تم عمل كود يقوم بنسخ آخر رقم تسلسل موجود في الورقة ولصقة بالأسفل مع عمل دمج الخلايا واضافة الدوال او المعادلات

Sub ãÇßÑæ1()
'
FRV = Range("AJ9")
ER = ActiveSheet.UsedRange.Rows.Count + 9
For FR = 170 To ER
If Cells(FR, 1) <> FRV Or Cells(FR, 2) = "-" Then GoTo 7
FRR = "A" & FR & ":AJ" & FR + 3
With Range(FRR)
    .EntireColumn.Hidden = False
    .EntireRow.Hidden = False
    .Copy
End With
TR = FR + 4
    Range("A" & TR).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.RowHeight = 8
7 Next FR
End Sub

لذلك في كل مرة تضغط على زر اضافة جديد

يتم اضافة البيانات لواحد فقط

 

مع ملاحظة: انه في حال وجود اي صف ليس به اسم يتم الغاء العملية ولا يضيف اي صفوف جديدة لضمان عدم الإضافة بدون سبب

 

هذا حسب فهمي و على قدر معرفتي

 

[احمدزمان]

الملف

 

اضافة صف من صفحة اخرى.rar

اضافة صف من صفحة اخرى.rar

[محمد الورفلي1]

اولاً لبد ان اشكر حضرتك على تعبك معاي وان شاء الله في ميزان حسناتك بأذن الله تعالي

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

[احمدزمان]

السلام عليكم و رحمة الله

 

اخي محمد

 

بناء على طلبك السابق

 

في ورقة درجات الأولي وضعنا الشرط

اذا كان قيمة آخر تسلسل في ورقة اعدادات اكبر من قيمة آخر تسلسل في ورقة الأولي اذا نفذ الكود

وربطناه بالكود

 

في ورقة اعدادات اضفنا كود تشغيل الماكرو اذاكان تم تغيير اي خلية في العمود "B"

بمعنى اذفنا اي اسم

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then ãÇßÑæ1
End Sub

والآن بمجرد اضافة اي اسم جديد

يتم اضافة الصفوف و الدول الجديدة في الورقة الأخرى

 

في حال تعديل اي اسم يتم تعديله تلقائيا بموجب الدوال دون اضافة اي صفوف جديدة

 

ارجو ان يكون كدة تمام

 

 

اضافة صف من صفحة اخرى.rar

[أبو سجده]

اخى العزيز الفاضل الحاج // احمد يعقوب

السلام عليكم

بارك الله فيكم واسعدكم الله فى الدارين

هلا تفضلت باضافة جديدة ألا وهى عملية الحذف

نرجو الافاده وجزاكم الله خيرا

[احمدزمان]

اخى العزيز الفاضل الحاج // احمد يعقوب

السلام عليكم

بارك الله فيكم واسعدكم الله فى الدارين

هلا تفضلت باضافة جديدة ألا وهى عملية الحذف

نرجو الافاده وجزاكم الله خيرا

 

غالي و الطلب رخيص

 

ماهي الطريقة للحذف

1. باستخدام رقم التسلسل - حدد مكان الرقم المطلوب حذفة
2. باستخدام اسم الطالب - حدد الخلية التي بها اسم الطالب للحذف
3. باستخدام الصف الحالي الذي يقف علية المؤشر للورقة

 

و الخيار لك

[محمد الورفلي1]

الاخ الفاضل احمد زمان

 

ابداع وتائلق وشكراً علي طريقة الشرح في الحذف الذي ذكرني يها الخبر الاستاذ سعيد بيرم (( سامحنى اخي احمد  لاني اخذت من وقتك وعطلتك وان شاء الله في ميزان حسناتك  ))

تم تعديل مايو 14, 2014 بواسطه محمد الخازمي

[أبو سجده]

 

اخى العزيز الفاضل الحاج // احمد يعقوب

السلام عليكم

بارك الله فيكم واسعدكم الله فى الدارين

هلا تفضلت باضافة جديدة ألا وهى عملية الحذف

نرجو الافاده وجزاكم الله خيرا

 

غالي و الطلب رخيص

 

ماهي الطريقة للحذف

1. باستخدام رقم التسلسل - حدد مكان الرقم المطلوب حذفة
2. باستخدام اسم الطالب - حدد الخلية التي بها اسم الطالب للحذف
3. باستخدام الصف الحالي الذي يقف علية المؤشر للورقة

 

و الخيار لك

 

اخى العزيز المحترم الحاج // احمد يعقوب

السلام عليكم ورحمته الله وبركاته

جزاكم الله خيرا وبارك فيكم 

مشاركتى هذه هدفها يدور حول طلب بسيط من سيادتكم

الا وهو " لاتحرمنا من تواجدكم معنا "

فقد تعلمت من سيادتكم الكثير وعلى رأس

هذا التعلم " لا لليأس وألف لا للنفس القصير "

أعانكم الله تعالى ورزقكم وايانا من حيث لانحتسب

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

تم تعديل مايو 14, 2014 بواسطه سعيد بيرم