خالد الشاعر قام بنشر فبراير 20, 2009 مشاركة قام بنشر فبراير 20, 2009 اساتذة المنتدى برجاء المساعدة فى هذا الملف تم تحميلة من المنتدى فى صفحة si يوجد امر ترتيب الاسماء ولكنى رابط الاسماء مع صفحة ثانية فافى الخلية الفارغة يضع 0 و عند الترتيب يرتب ال 0 فى المقدمة فهل يوجد حل لهذة المشكلة شكرا ___________________.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر فبراير 20, 2009 مشاركة قام بنشر فبراير 20, 2009 السلام عليكم اخي المشكلة تكمن في المعادلات التي تنقل بها الاسماء من ورقة1 لذا تم التغلب علي ذلك بعمل زر بورقة1 يتم عن طريقه نقل الاسماء الي شيت si جرب و اخبرني النتيجة تحياتي _____1.rar رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر فبراير 23, 2009 الكاتب مشاركة قام بنشر فبراير 23, 2009 اشكرك يا استاذى الفاضل ماكرو ممتاز برجاء الشرح للافادة للجميع شكرا جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر فبراير 24, 2009 مشاركة قام بنشر فبراير 24, 2009 (معدل) السلام عليكم اخي 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 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر فبراير 25, 2009 الكاتب مشاركة قام بنشر فبراير 25, 2009 اشكرك يا استاذى العزيز جزاك الله كل خير شكراً رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر فبراير 25, 2009 مشاركة قام بنشر فبراير 25, 2009 رائع اخي عادل شرح جميل للكود وفقك الله رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر فبراير 25, 2009 مشاركة قام بنشر فبراير 25, 2009 السلام عليكم اشكرك اخي الحبيب justice علي مرورك و بارك الله فيك رابط هذا التعليق شارك More sharing options...
amoudi قام بنشر فبراير 25, 2009 مشاركة قام بنشر فبراير 25, 2009 السلام عليكم اضافة للفائدة 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") تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان