اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

فى صفحة 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

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

تحياتي

تم تعديل بواسطه aah_aah2008
قام بنشر

السلام عليكم

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

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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information