مشكلة مع الترتيب

[خالد الشاعر]

اساتذة المنتدى

برجاء المساعدة فى هذا الملف تم تحميلة من المنتدى

فى صفحة si يوجد امر ترتيب الاسماء ولكنى رابط الاسماء مع صفحة ثانية

فافى الخلية الفارغة يضع 0 و عند الترتيب يرتب ال 0 فى المقدمة

فهل يوجد حل لهذة المشكلة

شكرا

___________________.rar

[عادل حنفي]

السلام عليكم

اخي المشكلة تكمن في المعادلات التي تنقل بها الاسماء من ورقة1

لذا تم التغلب علي ذلك بعمل زر بورقة1 يتم عن طريقه نقل الاسماء الي شيت si

جرب و اخبرني النتيجة

تحياتي

_____1.rar

[خالد الشاعر]

اشكرك يا استاذى الفاضل

ماكرو ممتاز برجاء الشرح للافادة للجميع

شكرا جزاك الله كل خير

[عادل حنفي]

السلام عليكم

اخي khhanna

ماكرو ممتاز برجاء الشرح للافادة للجميع

Application.ScreenUpdating = False               
Sheets("si").Range("E6:E165").ClearContents لافراغ المدي الذي ستنسخ اليه الاسماء
For i = 3 To 165 من الصف رقم 3 الي الصف رقم 165
Cells(i, 2).Select يتم تحديد او الوقوف علي الخلية التي في العمود الثاني من الصف
If Selection.Value > 0 Then اذا كانت قيمة الخلية المحددة اكبر من صفر
With Sheets("si").Columns(5).Rows(165).End(xlUp) 
بالشيت si في العمود الخامس و الي اخر خلية مكتوب بها من الصف 165 الي اعلي
.Offset(1, 0) = Cells(i, 2).Value يتم نسخ محتواها الي الشيت si في المكان المحدد سابقا
End With
End If
Next
Application.ScreenUpdating = True
Sheets("si").Select
Sheets("si").Range("E6").Select

تم شرح الهام بالكود

تحياتي

تم تعديل فبراير 24, 2009 بواسطه aah_aah2008

[خالد الشاعر]

اشكرك يا استاذى العزيز

جزاك الله كل خير

شكراً

[يحيى حسين]

رائع اخي عادل

شرح جميل للكود

وفقك الله

[عادل حنفي]

السلام عليكم

اشكرك اخي الحبيب justice علي مرورك

و بارك الله فيك

[amoudi]

السلام عليكم

اضافة للفائدة

Cells(i, 2).Select يتم تحديد او الوقوف علي الخلية التي في العمود الثاني من الصف
If Selection.Value > 0 Then اذا كانت قيمة الخلية المحددة اكبر من صفر

يختصر الى

If Cells(i, 2).Value > 0 Then

طيب لو واحد قال ايش الفائدة بس اختصار سأقول لا هذا الكود

Application.ScreenUpdating = False 
Application.ScreenUpdating = True

هذا الكود خلاص ما احتاجة وامسحة.

Sheets("si").Select
Sheets("si").Range("E6").Select

يختصر ب

Application.Goto Sheets("si").Range("E6")

تحياتي