كيفية ترحيل ناجح وراسب

[جلال محمد]

الاخوة الكرام

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

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

اريد ترحيل كل ( 35 ) طالب في شيت والباقي في اللذى يليه وهكذا

وكذلك بصفحة الراسبين

والملف يوضح اكثر ان شاء الله

وشكرا لكم

ترحيل ناجح وراسب.rar

[عبد الفتاح كيرة]

تفضل

هذا ترحيل ناجحين

لكن الورقة الأولى تحتاج تنظيم من جانبك

Sub Macro1()

'

' Macro1 ماكرو

'

Dim lastR As Long

Dim x As Integer

x = 1

lastR = Sheets("total").Range("b" & Rows.Count).End(xlUp).Row

'

Application.ScreenUpdating = False


    Rows("12:12").Select

    Selection.AutoFilter

    ActiveSheet.Range("$A$12:$FT$" & lastR).AutoFilter Field:=73, Criteria1:="ناجح"

   lastR = Sheets("total").Range("b" & Rows.Count).End(xlUp).Row

    For i = 13 To lastR Step 35

    Sheets("ناجح" & x).Cells.Clear

    Sheets("total").Range("$A$" & i & ":$FT$" & i + 35).SpecialCells(xlCellTypeVisible).Copy Sheets("ناجح" & x).Range("a13")

    x = x + 1

    Next i

    Selection.AutoFilter

    Application.ScreenUpdating = True

End Sub

ترحيل بيانات kemas.zip

[جلال محمد]

اخى كيماس

جزاك الله خيرا علي عملك وسرعة ردك

ولكن يبدو اننى لم اوضح المطلوب جيدا

فأنا اريد ترحيل كل الناجحين الي صفحة الناجحين كل ( 35 ) طالب في جدول ويليهم باقى الناجحين في نفس صفحة الناجحين وليس في صفحات ( الكل في صفحة الناجحين ولكن كل 35 طالب في جدول يفصلهم الدباجات الموجوده اسفل الجدول )

وشكرا لك علي المجهود جزاك الله الجنه ان شاء الله

ترحيل بيانات.rar

[عبد الفتاح كيرة]

تفضل

4 أسطر فارغة بعد كل 35 صفا

ترحيل -بيانات.zip

[جلال محمد]

اخى كيماس

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

هذا هو المطلوب شكرا لك وبارك الله لك في وقتك واولادك

ولي سؤال لو سمحت

لماذا البيانات في صفحة الناجحين تبدأ من السطر ( 18 ) لو اردت ان تبدأ من السطر رقم ( 13 ) فاي جزء اعدل فيه

ولك جزيل الشكر

[عبد الفتاح كيرة]

تفضل

بالمرفقات

ترحيل 3بيانات.zip

[جلال محمد]

اخى كيماس

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

شكرا جزيلا لك وبارك الله فيك

[علي فاهم]

اخي الكريم كيماس

نشكر الله الذي وهبنا شخصك وعلمك الفياض

==========

انا معجب بهذا الكود ولكني اريد

اولا نريد اعمدة معينه تظهر بعد الفلترة في كشف المرحلين الناجحين

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

[عبد الفتاح كيرة]

ما الأعمدة

وما الديباجة

بعدها

مزيد من الوقت

إن شاء الله

[الحسامي]

السلام عليكم

ما شاء الله عليك اخي كيماس مبدع

وبحق فكرة الكود اقل مايمكن ان يقال عنها انها اكثر من رائعة

ومن بعد اذنك اود مشاركتكم بهذا الحل

ترحيل بيانات2.rar

[عبدالله المجرب]

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

[عبد الفتاح كيرة]

إضافاتك أستاذى الحسامى

هى فرصة لى و لغيرى كى نتعلم و نرتقى

شهادة حق نقولها

و شهادتكم لنا هى نيشان على صدورنا

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

[علي فاهم]

السلام عليكم

ما شاء الله عليك اخي كيماس مبدع

وبحق فكرة الكود اقل مايمكن ان يقال عنها انها اكثر من رائعة

ومن بعد اذنك اود مشاركتكم بهذا الحل

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

عند الضغط على زر الناجحين او الضغط على زر الراسبين

تاني بنفس الاسماء

[جلال محمد]

اخوانى الكرام

اسعدكم الله في الدنيا والأخية ان شاء الله

وجزاكم الله الجنه

اخى الحسامي واخي كيماس

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

[جلال محمد]

اخى الحسامي

السلام عليكم

بعد تجربة الكود وجدت الأسماء ترحل جميعها الي ورقة ناجح مثلا بدون فلتره كما هي بدون فصل الناجح عن الراسب

كذلك تكرار الطالب الأخير في كل مجموعه نجدة في آخر المجموعة وأول المجموعة بنفس رقمه(اي المجموعة الأولي تنتهي برقم 24 والتاليه تبدأ ايضا برقم 24 )

وشكرا لك

[الحسامي]

السلام عليكم

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

الملف لدي شغال ويوم بالفرز للناجح والراسب

اما مشكلة تكرار الطالب الاخير فهذا صحيح

على العموم هنا المرفق مع التعديل

ترحيل بيانات3.rar

[جلال محمد]

اخى الحسامي

جزاك الله الجنه علي كل ما تقدمه من خير

فعلا مشكلة تكرار الطالب تم حلها

ولكن انظر الي الصوره المرفقه

تجد ان في صفحة الناجحين تم ترحيل كل الطلاب الناجحين والراسبين

وايضا في صفحة الراسب يتم ترحيل الكل

[الحسامي]

السلام عليكم

اخي جلال والله لا اعلم لماذا لم يعمل لديك الملف

فهو يعمل لدي جيدا نرجو من احد الاعضاء ان يقوم بتجربته

واعلامنا بذلك

[علي فاهم]

السلام عليكم

ما شاء الله عليك اخي كيماس مبدع

وبحق فكرة الكود اقل مايمكن ان يقال عنها انها اكثر من رائعة

ومن بعد اذنك اود مشاركتكم بهذا الحل

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

عند الضغط على زر الناجحين او الضغط على زر الراسبين

تاني بنفس الاسماء

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

عند الضغط على زر الناجحين او الضغط على زر الراسبين

تاني بنفس الاسماء

[الحسامي]

السلام عليكم

مرفق ملف بتعديلات قد تنجح

ترحيل بيانات3.rar

[جلال محمد]

اخي الفاضل الحسامي

ان شاء الله جمعه مباركة عليك وعلنا وجميع الأعضاء

شاكر جدا مجهودك العظيم الذي لايقدرة الا الله عز وجل

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

تحياتى لك

[مجدى يونس]

الاخوة الاعزاء

بارك الله فيكم عمل رائع

مجدى يونس

[عبد الفتاح كيرة]

أستاذ جلال

إذا كان الملف لا يعمل معك لظروف غامضة

جرب الملف فى المشاركة رقم 6

[جلال محمد]

الآخوه الكرام

الحمد الله الذي هدانا لهذا وما كنا له مهتدون

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

وجزاك الله كل خير اخي الحسامي

لقد اثقلنا عليك وحملناك الكثير جزاك الله خيرا

فالثواب علي قد المشقه اللهم اجعل اعمالك في موازين حسناتك ان شاء الله

لي طلب أخير عند تفريغ القوائم يتم مسح الصفحه بالكامل مع الدوال المزكوره

فهل من تعديل حتى لايتم مسح هذة الدوال

وشكرا لك

[الحسامي]

السلام عليكم

أخي جمال تم تعديل مدى المسح بحيث لا يمسح الا داخل القوائم فقط

اما الخلايا التي على يسار فلن تمسح معها

ترحيل بيانات3.rar