كيفية عمل نسخة احتياطية في نفس الملف

[الزرقطوني]

السلام عليكم

الاخوة الاعزاء الملف المرفق تم انجازه بمساعدة خبراء هذا المنتدى الرائع

في الورقة المسماة "1" تتغير اسماء التلاميذ كلما غيرت رقم القسم من الخانةC3 حيث يتم استيرادها من الورقة المسماة " أقسام "

ما اريده في هذا الملف هو حينما اختار القسم 1 وامسك درجات التلاميذ اريد ان احتفظ بمعطيات هذا القسم قبل ان انتقل الى قسم اخر وهكدا

اريد زرين في هذه الورقة المسماة "1" احدهما لمسح المعطيات وأخر لحفظ تلك المعطيات في ورقة اخرى بنفس الملف

الملف يفتح كما يلي:

اسم المستخدم chebrat

كلمة المرور 123

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

الشكر الجزيل لخبراء هذا المنتدى الرائع

11.rar

تم تعديل نوفمبر 21, 2010 بواسطه ezzarqtouni

[طارق محمود]

السلام عليكم

أخي الكريم

أرجو أن يكون المرفق هو ماتطلب

11-2.rar

[الزرقطوني]

شكرا جزيلا على الرد

انت دائما اخي تساعدني في اتمام تطبيقاتقي

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

انه الان شغال جيدا ويستعمله كثير ممن اعرفهم ويدعون لك باستمرار

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

عذرا عن هذه المقدمة رايت انني ملزم بذكرها

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

ما اريده ان تحدث هذه الورقة بكل المعطيات التي سجلت بها وتبقى المعادلات الموجودة في الاوراق الاخرى المرتبطة بالورقة"1" شغالة

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

ارجو ان اكون واضحا

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

عذرا اعتقد اخي ان هناك خطأ في هذا السطر من الكود

Sheets(Z).[A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

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

تم تعديل نوفمبر 23, 2010 بواسطه ezzarqtouni

[طارق محمود]

السلام عليكم

فعلا أخي عندك حق

الملف لايعمل علي إكسل 2003

لم أنتبه لأنني أعمل علي 2010

وهذا يتلافي مثل هذه الشروط

عموما

عدل السطر الذي ذكرته

من

Sheets(Z).[A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

إلي

Sheets(Z).[A1].PasteSpecial xlFormulas

وسيمشي الحال إن شاء الله

[الزرقطوني]

شكرا جزيلا أخي TareQ Mهذا جزئ من المطلوب

عذرا اخي اريد حينما اعود الى الورقة المسماة "11" استطيع طباعة الشهادات حسب اختياري لكل قسم هل هذا ممكن

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

[الزرقطوني]

للرفع

[طارق محمود]

السلام عليكم

أخي الحبيب

في المرفق

ستجد في الورقة المسماة "11"

زر بإسم (إختر القسم للطباعة)

تحياتي

11-3.rar

[الزرقطوني]

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

لكن اعتقد ان هناك خطأ ما في الكود

اذكرك اخي ان الملف عندي في اكسيل 2003

الملاحذ هنا ان اللائحة المنسدلة المتعلقة باختيار القسم للطباعة تبقى فارغة رغم احداث اوراق الاقسام

عذرا اخي وارجو السماح ان أضعت وقتكم

شكرا

[الزرقطوني]

للرفع

[طارق محمود]

معذرة أخي

مرفق الملف المضبوط

11-3.rar

[الزرقطوني]

السلام عليكم

اخي TareQ M الحبيب

عذرا اعتقد ان الملف لا زال غير مضبوط

إذ حينما اختار القسم1 للطباعة مثلا فإن ماأحصل عيه هو كالتالي

الاسماء هم أسما القسم المختار ولكن المعطيات الخاصة بالدرجات فهي المعطيات المسجلة بالورقة المسماة"1" فإن تم مسح معطيات هذه الورقة فلا احصل على معطيات وتكون الشهادات فارغة

اعذرني اخي على الالحاح

احتاج الى ضبط هذا الملف عاجلا وضروري

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

تم تعديل نوفمبر 25, 2010 بواسطه ezzarqtouni

[الزرقطوني]

السلام عليكم وطاب يومكم

اعتقد اخي انه يجب تعديل هذا السط

Sheets("1").[C3].Value = xclass

هذا السطر يربط طباعة الشهادات بالورقة "1" في حين المطلوب هو ربط طباعة الشهادات بالاوراق المسماة "قسم1" "قسم2"... الى اخره

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

تم تعديل نوفمبر 25, 2010 بواسطه ezzarqtouni

[الزرقطوني]

عذرا اخي TareQ M

ارجوك اخي شاهد المشاركتين 11 وايض 12

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

[طارق محمود]

السلام عليكم

أخي العزيز

لقد فهمت انك تريد الطباعة من الورقة 1

عذرا

الآن : عدلت لك الكود كالتالي

سينسخ محتويات الورقة 1 في ورقة أخري كمرجع

ثم يغير الورقة 1 لتحتوي علي بيانات القسم المطلوب

ثم يطبع منها

حيث أن كل العلاقات بالورقة 11 المجهزة للطباعة مرتبطة بتلك التي بالورقة 1

ثم يسترجع البيانات من الورقة المرجع إلي الورقة 1 ثم يلغي المرجع

وهذا هو الكود بعد التعديل

xclass = Sheets("11").[am1].Value

mySheet = "ÞÓã" & xclass


'Backup

Sheets("1").Copy After:=Sheets(Sheets.Count)

old_class = [C3].Value

n_name = ActiveSheet.Name



Sheets(mySheet).Range("G9:R64").Copy

Sheets("1").Select

Range("G9").Select

ActiveSheet.Paste

[C3] = xclass

Sheets("11").Activate

Dim i As Integer

s = Range("Z3").Value

For i = 1 To Range("Z3").Value


    	Range("J5").Value = i

	If i <= Range("Z3") Then

  	ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

	End If

Next i



Sheets(n_name).Range("G9:R64").Copy

Sheets("1").Select

Range("G9").Select

ActiveSheet.Paste

[C3].Value = old_class


Application.DisplayAlerts = False


Sheets(n_name).Delete

Sheets("11").Activate

End Sub

تفضل المرفق

11-4.rar

[الزرقطوني]

شكرا جزيلا اخي طارق

ارجو ان تعذرني واطلب منك المزيد

كما لاحظت اخي طارق الورقة المسماة "1" نسجل بها درجات التلاميذ

ثم كما فعلت اخي يتم نقل تلك المعطيات الى اوراق اخرى جديدة

والتي كما فعلت ايضا نطبع الشهادات حسب اختيار القسم من الورقة"11"

وهو عمل رائع ابدعت فيه اخي طارق

المطلوب الان اخي طارق لو سمحت هو ان نكرر هذا العمل بالنسبة للورقة المسماة "2" والتي نسجل بها درجات

المرحلة الثانية الدراسية ويتم احداث اوراق اخرى نسميها مثلا "قسم1اس2"

ثم الورقة"22" التي اريد ان يكون بها ما عملته اخي في الورقة "11"

اي من خلال الورقة "22" اختار القسم المحدث مثلا "قسم1اس2" ثم نطبع الشهادات الموافقة لهذا القسم

وهكدا دواليك بالنسبة للباقي

اعذرني اخي جزاك الله خيرا

[طارق محمود]

تفضل أخي المرفق

11-5.rar

[الزرقطوني]

السلام عليكم

اخي طارق شكرا جزيلا هذا هو المطلوب

لكن لاحظ اخي طارق حينما اريد طباعةشهادات عبر الورقة "11" مرتبطة بالقسم1 مثلا فان المعطيات هي معطيات

تلاميذ القسم1 ولكن الاسماء في اعلى الشهادات هي اسماء ترتبط بالمعطيات المسجلة بالورقة"1"

ونفس الامر يحدث حينما اريد الطباعة من الورقة"22" اي ان المعطيات هي معطيات القسم المختار للطباعة ولكن الاسماء هي اسماء ترتبط بالمعطيات الباقية في الورقة "2"

ارجو المساعدة في هذا الملف اخي طارق ولك جزيل الشكر

11--6.rar

تم تعديل نوفمبر 28, 2010 بواسطه ezzarqtouni

[الزرقطوني]

للرفع

[طارق محمود]

أخي الكريم

لاأري مشاكل أو أنني لم افهم

ان كنت تقصد السطر العلوي

الاكاديمية جهة الشاوية ورديغة ، النيابة بـــــرشــــيد

فهذا يمكنك تغييره قبل البدء في الطباعة يدويا

وإلا ارفق صورة من المشكلة

[الزرقطوني]

اخي طارق

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

عبر الخانة " اختر القسم " في الورقة"11" او في الورقة"22"

غان امر الطباعة يصدر ولكن اسماء التلاميذ لا تكون متوافقة مع القسم المختار

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

تم تعديل نوفمبر 29, 2010 بواسطه ezzarqtouni

[طارق محمود]

السلام عليكم

أخي العزيز

عندي مضبوطة أو مازلت لم أفهم

إقرأ التالي ثم شاهد الفيديو

لتمييز البيانات فقط وضعت درجة التربية الإسلامية لأول تلميذ من كل قسم متناسبة مع رقم القسم

أي 11 للقسم الأول ، 12 للقسم الثاني ، 13 للقسم الثالث ، 14 للقسم الرابع

الورقة 1 بها بيانات القسم 3

وسأختار في الورقة 11 طباعة القسم 4

جعلت الطباعة علي الأكروبات PDF

لكي تري نتيجة الطباعة

سأطبع فقط 3 أسماء

للمشاهدة

ezzarqtouni.rar

[الزرقطوني]

اخي طارق

البيانات صحيحة متوافقة مع ورقة القسم4 الدي اخترت طباعتها

ولكن الاسماء في الاوراق المطبوعة هي اسماء تلاميذ القسم2

[طارق محمود]

ياأخي الكريم

أرجو التركيز

راجع الفيديو

في الثانية 55 من الفيديو وقف عرض الفيديو ستجد أنه تم اختيار الأولي 2 أي قسم2 للطباعة

وفي الدقيقة 1 والثانية 34 من الفيديو وقف عرض الفيديو ستجد أنه المطبوع إسم عيسي1 أي قسم2 وأول درجات الإسلامية 12

يعني كله مضبوط

[الزرقطوني]

عذرا اخي طارق

في المرفق ورقتين مطبوعتين

الاولى 1 والاولى2

لاحظ اخي الاسماء هي ذاتها في الورقتين ( اسم ونسب التلميذ)

والبينات مختلفة لكن الاسماء تابثة

11-6.rar

تم تعديل نوفمبر 29, 2010 بواسطه ezzarqtouni

[طارق محمود]

السلام عليكم

أخي الكريم

مرفق نتيجة الطباعة تلميذين من كل قسم بيانات مختلفة وأسماء مختلفة

مرفق أيضا الملف بالأكواد

لعل الكود عندك به شيئا أو خطأ ما

تفضل أخي

ezzarqtouni_PDF.rar

11-5_New.rar