ترحيل بيانات من شيت الى اخر

[ابو غريب]

خوانى الاعزاء السلام عليكم ورحمة الله وبركاته

اريد جلب بيانات هذه القائمة من شيت البيانات الموجود فى هذا الملف وقد قمت بعمل دالة if كما مبين فى الخلية B4 , c4 , d4 ولم تعمل معى فارجو منكم مساعدتى فى جلب هذه البيانات عند تغير اسم الاستاذة من القائمة المنسدلة من الخلية f2 يتم تغير بيانات التلاميذ التابعين لكل مدرس وشكرا جزيلا

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

مصارف حضانة البدر.rar

[جمال عبد السميع]

أليك أخي ماطلبت وأتمني أن يكون المطلوب

تم تعديل الرابط لعمل إحصاءات القوائم

مصارف حضانة البدر.rar

[ابو غريب]

شكرا جزيلا ياخى العزيز manmoud-lee على هذا العمل العظيم وانا اعرف اننى اتعبتك معى ولاكنى اتعشم فى الله وفيك الخير يوجد تعليق فى شيت القائمة ان المسلسل غير منتظم وانا اعرف ان حضرتكم وضعت فية داله ارجو من حضرتكم ضبط المسلسل من 1 الى نهاية الفصل وشكرا جزيلا وانا اسف على تعب حضراكم

[هاني عدلي]

بعد أذن أخي العزيز / محمود

هذا هو الملف بعد ضبط الترقيم

======

جرب المرفقات

مصارف حضانة البدر.rar

[الـعيدروس]

السلام عليكم

استخدم هذا الكود في حدث ورقة "قائمة فصل"

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [F2]) Is Nothing Then

Dim SH As Worksheet

Dim R As Range

Set SH = Sheets("البيانات")

Range("A4:D5686").ClearContents

SH.AutoFilterMode = False

SH.Range("H3").CurrentRegion.AutoFilter Field:=8, Criteria1:=Target

With SH.AutoFilter.Range

    Set R = .Offset(1, 1).Resize(.Rows.Count - 1, 2).SpecialCells(xlCellTypeVisible)

    If Not R Is Nothing Then

	    R.Copy ActiveSheet.Range("B" & ActiveSheet.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row)

    I = 1

    RI = 4

    Do While I < Range("B1500").End(xlUp).Row - 2

    Cells(RI, 1).Value = I

    I = I + 1

    RI = RI + 1

    Loop

    End If

End With

SH.AutoFilterMode = False

End If

End Sub

تم تعديل سبتمبر 6, 2012 بواسطه عباد

[جمال عبد السميع]

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

ولكن أخي أليك ماطلبت

مصارف حضانة البدر 3.rar

[جمال عبد السميع]

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

[هاني عدلي]

أخي / محمود

شكراً لكلماتك الرقيقة و تشجيعك هذا

جعله الله في ميزان حسناتك

=======

خالص تحياتي

[ابو غريب]

شكرا اخوانى اعضاء المنتدى العظماء لقد اتعبتكم معى لاكن اتعشم فى الله وفيكم خيرا وجعلكم الله منارة علم تضيء لنا ولغيرنا طريق العلم وشكرا اخى / أ محمود و اخى / أ هانى عدلى واخى / أ عباد ونبارك ترقى الاستاذ / هانى عدلى وندعو الله ان يسدد خطاه والى الامام دائما

لكم منى اعلى تحية وتقدير والسلام عليكم

تم تعديل سبتمبر 6, 2012 بواسطه ابوجادالله

[جمال عبد السميع]

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

[جمال عبد السميع]

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

[هاني عدلي]

شكرا اخوانى اعضاء المنتدى العظماء لقد اتعبتكم معى لاكن اتعشم فى الله وفيكم خيرا وجعلكم الله منارة علم تضيء لنا ولغيرنا طريق العلم وشكرا اخى / أ محمود و اخى / أ هانى عدلى واخى / أ عباد ونبارك ترقى الاستاذ / هانى عدلى وندعو الله ان يسدد خطاه والى الامام دائما

لكم منى اعلى تحية وتقدير والسلام عليكم

أخي / ابو جادالله

لا داعي للشكر فجميعنا في المنتدي موجودين لمساعدة بعضنا البعض ,

فنحن ساعدناك اليوم , و أنت سوف تساعدنا غداً

========

شكراً علي هذه التهنئة الرقيقة

====

خالص تحياتي

:fff: