ابو غريب قام بنشر سبتمبر 5, 2012 مشاركة قام بنشر سبتمبر 5, 2012 خوانى الاعزاء السلام عليكم ورحمة الله وبركاته اريد جلب بيانات هذه القائمة من شيت البيانات الموجود فى هذا الملف وقد قمت بعمل دالة if كما مبين فى الخلية B4 , c4 , d4 ولم تعمل معى فارجو منكم مساعدتى فى جلب هذه البيانات عند تغير اسم الاستاذة من القائمة المنسدلة من الخلية f2 يتم تغير بيانات التلاميذ التابعين لكل مدرس وشكرا جزيلا ومرفق الملف المطلوب مصارف حضانة البدر.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر سبتمبر 5, 2012 مشاركة قام بنشر سبتمبر 5, 2012 أليك أخي ماطلبت وأتمني أن يكون المطلوب تم تعديل الرابط لعمل إحصاءات القوائم مصارف حضانة البدر.rar رابط هذا التعليق شارك More sharing options...
ابو غريب قام بنشر سبتمبر 5, 2012 الكاتب مشاركة قام بنشر سبتمبر 5, 2012 شكرا جزيلا ياخى العزيز manmoud-lee على هذا العمل العظيم وانا اعرف اننى اتعبتك معى ولاكنى اتعشم فى الله وفيك الخير يوجد تعليق فى شيت القائمة ان المسلسل غير منتظم وانا اعرف ان حضرتكم وضعت فية داله ارجو من حضرتكم ضبط المسلسل من 1 الى نهاية الفصل وشكرا جزيلا وانا اسف على تعب حضراكم رابط هذا التعليق شارك More sharing options...
هاني عدلي قام بنشر سبتمبر 5, 2012 مشاركة قام بنشر سبتمبر 5, 2012 بعد أذن أخي العزيز / محمود هذا هو الملف بعد ضبط الترقيم ====== جرب المرفقات مصارف حضانة البدر.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 5, 2012 مشاركة قام بنشر سبتمبر 5, 2012 (معدل) السلام عليكم استخدم هذا الكود في حدث ورقة "قائمة فصل" 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 بواسطه عباد رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر سبتمبر 6, 2012 مشاركة قام بنشر سبتمبر 6, 2012 أنا أسف أخي ( أبو جادالله ) لقد قمت بتعديل الملف عندما قرأت كلام حضرتك لكن النت من ناحية وصيانة المنتدي من ناحية أخري أخروا رفعي للمرفق ولكن أخي أليك ماطلبت مصارف حضانة البدر 3.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر سبتمبر 6, 2012 مشاركة قام بنشر سبتمبر 6, 2012 عفوا أخي ( هاني ) أنا منذ دقيقة من رفعي لمرفقي قمت بقراءئة مرفقك ماشاء الله أخي فكرتك بسيطة وجميلة وأجمل مافي الموضوع تنسيقك بارك الله فيك رابط هذا التعليق شارك More sharing options...
هاني عدلي قام بنشر سبتمبر 6, 2012 مشاركة قام بنشر سبتمبر 6, 2012 أخي / محمود شكراً لكلماتك الرقيقة و تشجيعك هذا جعله الله في ميزان حسناتك ======= خالص تحياتي رابط هذا التعليق شارك More sharing options...
ابو غريب قام بنشر سبتمبر 6, 2012 الكاتب مشاركة قام بنشر سبتمبر 6, 2012 (معدل) شكرا اخوانى اعضاء المنتدى العظماء لقد اتعبتكم معى لاكن اتعشم فى الله وفيكم خيرا وجعلكم الله منارة علم تضيء لنا ولغيرنا طريق العلم وشكرا اخى / أ محمود و اخى / أ هانى عدلى واخى / أ عباد ونبارك ترقى الاستاذ / هانى عدلى وندعو الله ان يسدد خطاه والى الامام دائما لكم منى اعلى تحية وتقدير والسلام عليكم تم تعديل سبتمبر 6, 2012 بواسطه ابوجادالله رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر سبتمبر 7, 2012 مشاركة قام بنشر سبتمبر 7, 2012 الشكر لله أخي نحن جميعا في الخدمة ومفيش تعب ولا حاجة لأن أللي بيقدر علي عمل شئ بيقدمة طواعية بالأضافة لأنة حق مكتسب لك ولجميع الزملاء لأننا جميعا تعلمنا في هذا الصرح ولازلنا وهذا شيئا قليل لرد الجميل رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر سبتمبر 7, 2012 مشاركة قام بنشر سبتمبر 7, 2012 الشكر لله أخي نحن جميعا في الخدمة ومفيش تعب ولا حاجة لأن أللي بيقدر علي عمل شئ بيقدمة طواعية بالأضافة لأنة حق مكتسب لك ولجميع الزملاء لأننا جميعا تعلمنا في هذا الصرح ولازلنا وهذا شيئا قليل لرد الجميل رابط هذا التعليق شارك More sharing options...
هاني عدلي قام بنشر سبتمبر 7, 2012 مشاركة قام بنشر سبتمبر 7, 2012 شكرا اخوانى اعضاء المنتدى العظماء لقد اتعبتكم معى لاكن اتعشم فى الله وفيكم خيرا وجعلكم الله منارة علم تضيء لنا ولغيرنا طريق العلم وشكرا اخى / أ محمود و اخى / أ هانى عدلى واخى / أ عباد ونبارك ترقى الاستاذ / هانى عدلى وندعو الله ان يسدد خطاه والى الامام دائما لكم منى اعلى تحية وتقدير والسلام عليكم أخي / ابو جادالله لا داعي للشكر فجميعنا في المنتدي موجودين لمساعدة بعضنا البعض , فنحن ساعدناك اليوم , و أنت سوف تساعدنا غداً ======== شكراً علي هذه التهنئة الرقيقة ==== خالص تحياتي :fff: رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.