أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





ممكن معرفه اين الخظأ فى الكود

الملف المرفق اكواد ترتيب تعمل جيداا الا كود ترتيب الاصغر الترتيب اسفل الجدول والملف يوضح ذلك لمشاهدة الروابط يلزمك ال ..



12-12-2017 01:52 صباحا
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 49
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
قوة السمعة : 512
الاعجاب : 0
 offline 

الملف المرفق 

اكواد ترتيب تعمل جيداا

الا كود ترتيب الاصغر الترتيب اسفل الجدول 

والملف يوضح ذلك

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 

 
 
  ترتيب.rar   تحميل rar مرات التحميل :(7)
الحجم :(51.044) KB





12-12-2017 09:23 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4314
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ممكن معرفه اين الخظأ فى الكود
هذا لانه يعتبر الخلايا الفارغة هى الاصغر وعليه جرب هذا التعديل
والذى حددنا فيه اخر خلية بها بيانات ثم تعملنا مع هذا الرقم

Sub الاصغر()
Dim lr As Long
lr = ورقة1.Cells(Rows.Count, 2).End(xlUp).Row
Range("B2:J" & lr).Sort Key1:=Range("H2:H" & lr), Order1:=xlDescending, Key2:=Range("B2:B" & lr), Order2:=xlAscending, Header:=xlNo
End Sub


تقبل تحياتى وتقديرى



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

13-12-2017 12:45 صباحا
مشاهدة مشاركة منفردة [2]
ابوحنين
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 49
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
قوة السمعة : 512
الاعجاب : 0
 offline 
look/images/icons/i1.gif ممكن معرفه اين الخظأ فى الكود
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب
هذا لانه يعتبر الخلايا الفارغة هى الاصغر وعليه جرب هذا التعديل
والذى حددنا فيه اخر خلية بها بيانات ثم تعملنا مع هذا الرقم

Sub الاصغر()
Dim lr As Long
lr = ورقة1.Cells(Rows.Count, 2).End(xlUp).Row
Range("B2:J" & lr).Sort Key1:=Range("H2:H" & lr), Order1:=xlDescending, Key2:=Range("B2:B" & lr), Order2:=xlAscending, Header:=xlNo
End Sub


تقبل تحياتى وتقديرى


الف شكر لك استاذى الفاضل 
وجعله الله فى ميزان حسناتك




29-12-2017 10:31 مساء
مشاهدة مشاركة منفردة [3]
essamaly
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 17-12-2017
رقم العضوية : 2600
المشاركات : 1
الجنس : ذكر
تاريخ الميلاد : 25-3-1985
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ممكن معرفه اين الخظأ فى الكود
هل فى كود تجميع ملفات الاكسل فى ملف اكسل واحد




30-12-2017 07:41 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif ممكن معرفه اين الخظأ فى الكود
أخي الكريم عصام
أهلاً بك في المنتدى ونورت بين إخوانك
يرجى طرح طلبك في موضوع مستقل ، مع إرفاق نماذج مصغرة من الملفات المراد تجميعها مع وضع بعض النتائج المتوقعة ليسهل على الأعضاء تقديم المساعدة المطلوبة إن شاء الله






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
داله جديده معرفه للحصول على عدة نتائج بنطاق محدد بشرط اللون alsqercolor الصقر
23 3155 محمود ابو الدهب
داله Alsqercomment جديده معرفه لاستخراج تعليق خليه فى خليه اخرى الصقر
10 1628 محمد الدسوقى
تسريع عمل كود يستخدم فيه الداله المعرفه MATCHAlsqr عبدالرحمن صبحى
1 321 عبدالرحمن صبحى
الداله الجديده المعرفه VLOOKUPAlsqr - حسام خطاب الصقر
57 5127 محمد علاء
الداله الجديده المعرفه alsqrDMY - حسام خطاب الصقر
18 1528 المبتدأ

الكلمات الدلالية
ممكن ، معرفه ، الخظأ ، الكود ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:46 مساء

أعلن هنا
أعلن هنا
أعلن هنا