ابوصلاح قام بنشر أغسطس 23, 2014 قام بنشر أغسطس 23, 2014 (معدل) السلام عليكم اخوتي الكرام اجو المساعدة اريد ترتيب بالكود اولا الترتيب يكون الذكر اولا ثانيا يكون الترتيب ابجدي من ا الى ى وشكرا ترتيب بالكود.rar تم تعديل أغسطس 23, 2014 بواسطه ابوصلاح
ابوصلاح قام بنشر أغسطس 23, 2014 الكاتب قام بنشر أغسطس 23, 2014 شكرا الاخ حسام عيسي لكن الترتيب هنا ابجدي فقط انما اريد الترتيب النوع اولا يرتب الذكر ويابجده ثم الاناث ثانيا ويابجده
الصـقر قام بنشر أغسطس 23, 2014 قام بنشر أغسطس 23, 2014 تفضل اخى الكريم اتمنى لك التوفيق ترتيب بالكود.zip
علي المصري قام بنشر أغسطس 23, 2014 قام بنشر أغسطس 23, 2014 السلام عليكم ورحمة الله وبركاته اخي الكريم لاحظ الاسم التالي اسماء ياسر عبدالراضي احمد النوع ذكر فها هذا صحيح او الكود المستخدم للتعامل مع الرقم القومي به مشكلة او الرقم القومي خطأ اردت ان انبه فقط وجزاكم الله خيرا
علي المصري قام بنشر أغسطس 23, 2014 قام بنشر أغسطس 23, 2014 بعد الاذن تم اختصار الكود كما يلي Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Add Key:=Range("J10:J43") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Add Key:=Range("D10:D43") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة3").Sort .SetRange Range("C10:Q43") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub شكرا لكم
ابوصلاح قام بنشر أغسطس 23, 2014 الكاتب قام بنشر أغسطس 23, 2014 بعد الاذن تم اختصار الكود كما يلي Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Add Key:=Range("J10:J43") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Add Key:=Range("D10:D43") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة3").Sort .SetRange Range("C10:Q43") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub شكرا لكم شكرا جزيلا
ابوصلاح قام بنشر أغسطس 23, 2014 الكاتب قام بنشر أغسطس 23, 2014 تفضل اخى الكريم اتمنى لك التوفيق شكرا جزيلا اسناذ حسام بارك الله فيك
ابوصلاح قام بنشر أغسطس 24, 2014 الكاتب قام بنشر أغسطس 24, 2014 السلام عليكم ارجو منكم المساعدة اين الخطا في الكود كلمة السر 111 محرر الاكواد 1 ترتيب بالكود3.rar
الصـقر قام بنشر أغسطس 24, 2014 قام بنشر أغسطس 24, 2014 استاذ صلاح بارك الله اتفضل الملف ان شاء الله يكون هو المطلوب ترتيب بالكود3.zip
ابوصلاح قام بنشر أغسطس 24, 2014 الكاتب قام بنشر أغسطس 24, 2014 استاذ صلاح بارك الله اتفضل الملف ان شاء الله يكون هو المطلوب تسلم يا استاذ حسام جزيت عنا خير انا لست من المحترفين لكني من الهواة لدي في نفس الصفحة ثلاث صفوف صف اول وثان وثالث اريد ان يشملهم الكود وشكرا
الصـقر قام بنشر أغسطس 24, 2014 قام بنشر أغسطس 24, 2014 (معدل) اخى الاستاذ ابو صلاح اتبع حكمه لا تعطينى سمكة ولكن علمنى كيف اصطاد بالنسبة للكود ترتيب الابجدى اعمل تسجيل ماكرو وقم بتحديد مجموعه خلايا رأسيا واعمل ترتيب ابجدى ثم واقف تسجيل الماكرو واذهب الى الفيجوال بيسك ستجد كود ترتيب الاسماء ابجديا طبقا للخلايا التى قمت بتحديديها موجود بالمودويل ستلاحظ هو نفس الكود الذى ارسلته لك ولكن مع اختلاف نطاق الخلايا انا زيك مبتدء وتلاميذ فى هذا المنتدى ومنتديات اخرى ولكن حريص على فهم الشئ والتعلم بارك الله فيك جرب وقلى النتيجة تم تعديل أغسطس 24, 2014 بواسطه حسام عيسى
ابوصلاح قام بنشر أغسطس 24, 2014 الكاتب قام بنشر أغسطس 24, 2014 اخى الاستاذ ابو صلاح اتبع حكمه لا تعطينى سمكة ولكن علمنى كيف اختار بالنسبة للكود ترتيب الابجدى اعمل تسجيل ماكرو وقم بتحديد مجموعه خلايا رأسيا واعمل ترتيب ابجدى ثم واقف تسجيل الماكرو واذهب الى الفيجوال بيسك ستجد كود ترتيب الاسماء ابجديا طبقا للخلايا التى قمت بتحديديها موجود بالمودويل ستلاحظ هو نفس الكود الذى ارسلته لك ولكن مع اختلاف نطاق الخلايا انا زيك مبتدء وتلاميذ فى هذا المنتدى ومنتديات اخرى ولكن حريص على فهم الشئ والتعلم بارك الله فيك جرب وقلى النتيجة بالضبط اخي عملت لكن غيرت في الكود الذي ارستله لي ترتيب الكود الجديد.rar
الصـقر قام بنشر أغسطس 24, 2014 قام بنشر أغسطس 24, 2014 تفضل اخى الحبيب ان شاء الله يوكن هو المطلوب اتمنى لك التوفيق ترتيب بالكود3 - Copy.zip
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.