فوزى فوزى قام بنشر يناير 27, 2020 مشاركة قام بنشر يناير 27, 2020 اولا اشكر الاستاذ سليم على هذا العمل والجهد المتواصل فى مساعدة الاخرين السلام عليكم ورحمة الله وبركاته الى خبراء هذا المنتدى الرائع نرجو عمل كود يقوم باستبدال فصل الى فصل اخر بناء على الجدول نقل الطلاب بمعاير النوع والعدد والفصل توضيح اكثر اريد انقل من الذكور من قصل 6 / 1 اثنين انفلهم الى فصل 6 / 2 وهكذا مع الاناث وهذا جدول توضيحى مع عمل لون للفصول التى تم تغيرها تغير الفصول.xlsm رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 27, 2020 مشاركة قام بنشر يناير 27, 2020 السلام عليكم أخي الكريم جرب تستخدم هذا الكود Sub nnn() cycle = WorksheetFunction.CountA([N8:N30]) - 1 If cycle < 2 Then Exit Sub lr = Cells(999, 1).End(xlUp).Row For c = 1 To cycle T = Cells(c + 8, "N") n = Cells(c + 8, "O") old = Cells(c + 8, "P") nw = Cells(c + 8, "Q") rep = 0 For r = 9 To lr A = Cells(r, "C") B = Cells(r, "D") If B = old And A = T And rep < n Then With Cells(r, "D") .Value = nw .Interior.Color = 212 End With rep = rep + 1 End If Next r Next c End Sub أو تفضل الملف به الكود تغير الفصول.xlsm 2 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 27, 2020 الكاتب مشاركة قام بنشر يناير 27, 2020 الله يحفظك يابشمهندس شغل محترفين وشكر على سرعة الرد متمنين لكم دوام الصحة والعافية وبارك الله فيكم الف الف شكر مع تحياتى لشخصكم الكريم بعد اذنك يابشمهندس طارق ممكن اضافة على الكود ان ينسخ اسماء الطلاب اللى تم نقلهم من فصل الى فصل اخر لتوضيح المطلوب فى العمود S يجلب اسماء الطلاب فى العمود T يحلب من فصل وفى العمود U يجلب الى فصل شاكرين مساعيكم الى فعل الخير رابط هذا التعليق شارك More sharing options...
أفضل إجابة طارق محمود قام بنشر يناير 27, 2020 أفضل إجابة مشاركة قام بنشر يناير 27, 2020 تفضل المطلوب تغير الفصول.xlsm 2 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 27, 2020 الكاتب مشاركة قام بنشر يناير 27, 2020 الله يحفظك يابشمهندس شغل راقى وفكر عالى والحمد لله أخيراً توصلت للمراد بما قدمته لي من عون ومساعدة فهذا هو ما كنت أحتاج الوصول إليه ويعلم الله كم فرحتي كبيرة وأنا أرى نتائج عملك وجهدك الطيب وبارك الله فيك وفي علمك وعملك رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 27, 2020 مشاركة قام بنشر يناير 27, 2020 الحمد لله وجزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 27, 2020 الكاتب مشاركة قام بنشر يناير 27, 2020 الحمد لله تم المطلوب على اكمل وجه بفضل الله ثم بفضلكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان