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

[rofa97]

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

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

ارجو الافادة افادكم الله

وشكراً

DATA.rar

[الشهابي]

أخي العزيز / rofa97

هذا حل بواسطة أعمدة مساعدة في الورقتين معاً وهو العمود (AA)

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

لأن جلب البيانات يعتمد على العناوين أيضاً وأي اختلاف في العناوين في الورقتين لن يتم جلب بيانات العمود 

هذا الحل بالمعادلات حسب طلبك 

كما غيرت القائمة المنسدلة باسم المدارس وليس رقمها وجعلتها قائمةمرنة بحيث لا يظهر في القائمةالفراغات

قم باختيار المدرسة ليتم جلب بياناته

كما يمكن عمله بالأكواد واظنه أفضل عن طريق التصفية المتقدمة إذا كنت ترغب في ذلك يمكن عمله 

والله الموفق

والعفو 

DATA.rar

[rofa97]

بارك الله فيك اخى الكريم

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

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

ويا ريت لو كود طباعه سواء للكل او ورقه ورقه يبقى كتر الف خيرك

وشكراً

[rofa97]

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

DATA.rar

[الشهابي]

خي العزيز / rofa97

هذا  طريقة لجلب البيانات  بطريقة الكود

وقد قمت بتسجيل كودين للتصفية المتقدمة

كود لعمل قوائم بالقيم الفريدة  

وكود آخر لجلب البيانات 

وقد قمت بتصوير خطوات العمل  وسأرفق ملفين فديو يوضح ذلك 

حيث الفديو الأول لعمل القيم الفريدة

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

ففي التسجيل الأول  لعمل قائمة فريدة باسم اللجنة ينتج الكود التالي 

        Sheets("DATA").Range("D8:D500").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("DATA").Range("D8:D500"), CopyToRange:=Range( _
        "FORM3!AA8"), Unique:=True

ومن ثم تم نسخ الكود ولصقه في الأسفل والتعديل عليه في النطاقات لعمل قوائم فريدة  لكل من الوظيفة والعمل المكلف به ومقر العمل ليصبح الكود بهذا الشكل

Sheets("DATA").Range("D8:D500").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("DATA").Range("D8:D500"), CopyToRange:=Range( _
        "FORM3!AA8"), Unique:=True
        
        Sheets("DATA").Range("F8:F500").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("DATA").Range("F8:F500"), CopyToRange:=Range( _
        "FORM3!AB8"), Unique:=True
        
        Sheets("DATA").Range("H8:H500").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("DATA").Range("H8:H500"), CopyToRange:=Range( _
        "FORM3!AD8"), Unique:=True
        
        Sheets("DATA").Range("I8:I500").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("DATA").Range("I8:I500"), CopyToRange:=Range( _
        "FORM3!AC8"), Unique:=True

والكود الثاني لجلب البيانات وهو مسجل أيضا وهو

Sheets("DATA").Range("C8:Z500").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B2:G3"), CopyToRange:=Range("B7:H7"), Unique:=False

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

 

وبالنسبة للطباعة يفضل عمل ورقة جديدة منسقة ومنظمة يتم طباعتها بحيث يتم جلب بياناتها من ورقة ( FORM3 )

 

عمل قائمة بالسجلات الفريدة.rar

جلب البيانات.rar

DATA.rar

[rofa97]

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

والذى هو لوجه الله تعالى ولخدمة اخواتك كرمك الله واعزك

[rofa97]

انا اسف بتعب حضرتك معايا

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

بارك الله لك فى سعه صدرك وحلمك

وزادك علما على علمك

ولك منى جزيل الشكر والعرفان

[الشهابي]

أخي العزيز / rofa97

في الملف قم بإخفاء الورقة ( FORM3 ) حيث يتم التعامل مع الورقة المسماة(  FORM3 (2) ) 

فعندما يتم التغير في معايير البحث في أعلى الصفحة يتم تغير البيانات في الجدول حيث يتم جلبها من ورقة ( FORM3 ) المخفية ( يمكنك إظهارها أذا أردت ) 

كما عملت لك كود للطباعة تحدد الكشف المطلوب طباعته سوى الكل أو كشف بعينه حيث يحتوي كل كشف على ( 20) معلم  

يمكنك ملاحظة الملف المرفق وإن شاء الله  تستوعبه من خلال ملاحظتك له 

وإذا في استفسار ضعه وإن شاء الله سوف تجد الجواب سوى منا أول من أي أحد من الأخوة 

والعفو

DATA.rar

[rofa97]

بارك الله فيك اخى الكريم

واعانك بالصحة والعافية على امورك وامور اخوانك فى الدنيا

[rofa97]

لو فى شرح فيديو كمان يبقى كتر خيرك

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

[الشهابي]

أخي العزيز / rofa97

بالنسبة للطباعة حدد في الخلية الصفراء التي فوق زر الطباعة المطلوب طباعته ( الكل ) أو رقم الكشف (1) أو (2) أو ( 3) حسب ما تختار

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

(ROUNDUP) لتقريب الناتج إلى أعلى والتخلص من الكسر

 

[rofa97]

جارى التجربة بارك الله فيك اخى الكريم

[rofa97]

بارك الله فيك  اخى الكريم كتر الف خيرك على كل هذه المعلومات القيمة وزادك الله علما على علمك

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

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

[rofa97]

بارك الله فيك اخى الكريم

ارجو ان تتذكر طلبى ولك منى جزيل الشكر

[rofa97]

بارك الله فيك اخى الكريم

ارجو ان تتذكر طلبى ولك منى جزيل الشكر

[ابو نبأ]

السلام عليكم

 

عمل رائع اللهم يزدكم علما

 

وفقكم الله

[rofa97]

بارك الله فيك اخى الكريم

ارجو ان تتذكر طلبى ولك منى جزيل الشكر

[الشهابي]

هذا شرح باختصار في  نفس الملف 

وإذا في استفسار آخر حدده ليتم شرحه إن شاء الله 

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

حزاء الله الجميع خيرا

DATA.rar

[rofa97]

بارك الله فيك اخى الكريم

[rofa97]

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