مصطفى كمال متولى قام بنشر أبريل 17, 2014 قام بنشر أبريل 17, 2014 (معدل) السلام عليكم اريد دالة او كود يجعل الوظائف مرتبه اذا تم تغيير الوظيفة من القائمة المنسدلة الى الوظيفة المرقى اليها ترحل آليا مع التى تماثلها مثال : لو تم ترقية معلم الى معلم اول يتم نقل او ترحيل بيانته آليا الى وظيفة معلم اول وهكذا بيانات المرحلة الابتدائية2010.rar تم تعديل أبريل 17, 2014 بواسطه مصطفى كامل
أبو سجده قام بنشر أبريل 17, 2014 قام بنشر أبريل 17, 2014 (معدل) اخى العزيز الاستاذ الفاضل // مصطفى كامل السلام عليكم ورحمته الله وبركاته ارجو التوضيح وستجد ماتطلبة بإذن الله تعالى وجزاكم الله خيرا تم تعديل أبريل 17, 2014 بواسطه سعيد بيرم
مصطفى كمال متولى قام بنشر أبريل 17, 2014 الكاتب قام بنشر أبريل 17, 2014 شكرا على اهتمامكم استاذنا سعيد ولكن اريد الاتى : مثال : لو تم ترقية معلم الى معلم اول اقوم يدويا باختيار الوظيفة المرقى اليها من القائمة المنسدلة ثم اقوم بعد ذلك بقص الصف كاملا وألصقه مع الوظيفة المرقى اليها حسب ترتيب الاسم ابجديا واريد ان يتم ذلك آليا عندما اختار الوظيفة الجديدة من القائمة المنسدلة يتم ترحيله آليا وليس كما شاهدت فى الملفات المرفقة ( تصفية حسب الوظيفة ) ولكن فى نفس ورقة العمل وليس ورقة اخرى لانها مرتبطة بالاحصاء
أبو سجده قام بنشر أبريل 17, 2014 قام بنشر أبريل 17, 2014 (معدل) اخى الفاضل الاستاذ // مصطفى كامل السلام عليكم اعتقد ان الملف خاص بشئون العاملين وافر تقديرى تم تعديل أبريل 17, 2014 بواسطه سعيد بيرم
أبوعيد قام بنشر أبريل 27, 2014 قام بنشر أبريل 27, 2014 السلام عليكم جرب المرفق بيانات المرحلة الابتدائية معدل.rar 1
مصطفى كمال متولى قام بنشر أبريل 27, 2014 الكاتب قام بنشر أبريل 27, 2014 (معدل) الاستاذ ابو عيد شكرا على اهتمامكم هو فعلا المطلوب تم تعديل أبريل 27, 2014 بواسطه مصطفى كامل
الشهابي قام بنشر أبريل 27, 2014 قام بنشر أبريل 27, 2014 أخي العزيزالأستاذ / مصطفى كامل وبعد حل الأستاذ / أبو عيد الرائع والذي من خلال حله فهمت المطلوب وإلا في البداية لم أفهم هذا حل آخر لإثراء الموضوع من خلال عمل قائمة مخصصة للترتيب حسب ورقة القوائم يتم إضافتها من خلال الكود التالي بحيث يمكن الزيادة عليها في السطر التالي : "كبير معلمين,معلم خبير,معلم اول ا,معلم اول,معلم,معلم بدون ك,معلم م عقد مميز,معلم م عقد,مدرس" Sub ترتيب() ActiveWorkbook.Worksheets("ابتدائى").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ابتدائى").Sort.SortFields.Add Key:=Range( _ "H11:H191"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "كبير معلمين,معلم خبير,معلم اول ا,معلم اول,معلم,معلم بدون ك,معلم م عقد مميز,معلم م عقد,مدرس" _ , DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ابتدائى").Sort .SetRange Range("D11:T191") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub تقديري واحترامي لكم ولأستاذنا سعيد بيرم وللأستاذ القدير / أبو عيد والعفو بيانات المرحلة الابتدائية2010.rar
أبو سجده قام بنشر أبريل 27, 2014 قام بنشر أبريل 27, 2014 (معدل) اخى العزيز الفاضل // مصطفى كامل السلام عليكم ورحمته الله وبركاته اعتذرلتأخرى فى الرد كما أبلغت سيادتكم فعذرا أخى لسهوى عن تنفيذ طلبكم كامل احترامى وتقديرى لسيادتكم ولاخى الفاضل الاستاذ // ابوعيد ولاخى الفاضل الاستاذ // الشهابى جزاكم الله خيرا تم تعديل أبريل 27, 2014 بواسطه سعيد بيرم
مصطفى كمال متولى قام بنشر أبريل 27, 2014 الكاتب قام بنشر أبريل 27, 2014 الاستاذ الشهابى شكرا على اهتمامكم هو فعلا المطلوب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.