خالد الشاعر قام بنشر فبراير 20, 2009 قام بنشر فبراير 20, 2009 اساتذة المنتدى برجاء المساعدة فى هذا الملف تم تحميلة من المنتدى فى صفحة si يوجد امر ترتيب الاسماء ولكنى رابط الاسماء مع صفحة ثانية فافى الخلية الفارغة يضع 0 و عند الترتيب يرتب ال 0 فى المقدمة فهل يوجد حل لهذة المشكلة شكرا ___________________.rar
عادل حنفي قام بنشر فبراير 20, 2009 قام بنشر فبراير 20, 2009 السلام عليكم اخي المشكلة تكمن في المعادلات التي تنقل بها الاسماء من ورقة1 لذا تم التغلب علي ذلك بعمل زر بورقة1 يتم عن طريقه نقل الاسماء الي شيت si جرب و اخبرني النتيجة تحياتي _____1.rar
خالد الشاعر قام بنشر فبراير 23, 2009 الكاتب قام بنشر فبراير 23, 2009 اشكرك يا استاذى الفاضل ماكرو ممتاز برجاء الشرح للافادة للجميع شكرا جزاك الله كل خير
عادل حنفي قام بنشر فبراير 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
خالد الشاعر قام بنشر فبراير 25, 2009 الكاتب قام بنشر فبراير 25, 2009 اشكرك يا استاذى العزيز جزاك الله كل خير شكراً
عادل حنفي قام بنشر فبراير 25, 2009 قام بنشر فبراير 25, 2009 السلام عليكم اشكرك اخي الحبيب justice علي مرورك و بارك الله فيك
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") تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.