مطلوب كود مسح قيم خلايا عامود بتحقيق شرط

[الســـــــاهر]

السلام عليكم

احبابي اسرة اوفيسنا

السلام عليكم و رحمة الله و بركاته

ارجو مساعدتي في عمل كود لحذف قيم خلايا بالعامود B بتحقيق شرط و احد

و جزاكم الله عنا خير الجزاء

Book1.rar

[h63]

السلام عليكم

حدد الخلايا من b5 حتى اخر خلية تحتوى على قيمة

ثم اضغط الزر

هشام

Book1.rar

[على حسانين]

بسم الله الرحمن الرحيم

أخى لعلى لم أفهم سؤالك جيدا .... لكن يمكنك أستخدام قاعدة IF

[أبو عبد النور]

السلام عليكم،

جرب هذا الكود بواسطة زر :

Sub Macro1()
    On Error Resume Next
    [B5:B65000].SpecialCells(xlCellTypeBlanks).Delete
End Sub

[ابو اسامة العينبوسي]

السلام عليكم

اذا اردت مسح الخلايا الفارغه فقط تحت اول خليه فارغه كود الاخ اعلاه تمام

اما اذا اردت حذف كل الخلايا سواء كانت فارغه او غير فارغه تحت اول خلية فارغه

اليك الكود الاتى يعمل مثل الكماشه على الخلايا المطلوبه

Sub MoveBlankRowsToBottom()
Dim X As Range, Y As Range
Set X = Range("b4").End(xlDown).Offset(1, 0)
Set Y = Range("b100").End(xlUp).Offset(1, 0)
Range(X, Y).ClearContents
End Sub

[الســـــــاهر]

السلام عليكم

اخي الكريم h63

اشكرك على هذا الكود الجميل و الرائع

و سوف استفيد منه في امور اخرى ولكنه ليس المطلوب

شكرا لك على المرور و المساعدة

الاخ الكريم علي حسانين

اشكر لك مرورك و المساعدة

الاخ الكريم apt

كود رائع يفيدني في امور اخرى و لكنه ليس المطلوب

اشكر لك مرورك و المساعدة

الاخ الكريم و الاستاذ العبقري ابو اسامة العينبوسي

استاذي هذا ماكنت ابحث عنه تماما

اشكر لك مرورك و المساعدة

و شكرا لجميع الاساتذة الذين قدمو حلولهم جعلها الله في ميزان حسناتهم

اللهم آمين

تقبلو تحياتي

تم تعديل يوليو 24, 2008 بواسطه الســـــــاهر