كود مسح السطر الاخير

[KHMB]

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

مطلوب كود مسح السطر الأخير فقط وإعادة اللون الأصلي (الأبيض) 

 

كود آخر منفصل وبزر ثاني

وإذا امكن كود آخر منصل لأول سطر او ممكن احدد مثلا السطر الرابع او الخاس او العشرون

 

الأهم مسح السطر الأخير فقط  والباقي ثنائيات.

وجزاكم الله خير الجزاء سلفا.

 

ملاحظة / صدقوني لي يومين بل اكثر صباحا ومساء ابحث في هذا المنتدى وفي قوقل وبأسلوب كل الكلمات والنصوص فبدون جدوى وهذا بسبب الخطأ في عناوين الطلبات لنا جميعا فمثلا لو انا الآن هذا طلبي وفي عنوان الموضوع كتبت ارجو المساعدة في طلب كود فعند البحث بطلبي بهذا النص  كود مسح السطر الأخير لن تظهر لي نتائج لان العناوين أساسا خطأ وهي الأكثر في جميع المنتديات . ياليت نظع العنوان الصحيح لطلبنا اهم شي ليكون مرجع أساسي .

 

مرفق ملف صفحة فيها بيانات فقط كمثال

كود حذف آخر صف.rar

تم تعديل نوفمبر 24, 2014 بواسطه KHMB

[ibn_egypt]

أخى الفاضل

 

تفضل الملف المرفق لربما به طلبك

 

تحياتى

كود حذف آخر صف.rar

[KHMB]

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

نعم يفي بالغرض 100 % الله يجعل لك من كل ضيق مخرجا ويرزقك من حيث لاتحتسب رزفا حلالا طيبا ويجعله عونا لك في دينك ودنيارك بارب

 

اخي ابن مصر هل ممكن عمل ذلك عن طريق المتغيرات وتعريف الشيث وتحديد كلمة lastRow

dim I as integer

dim sw as WorkSheet

Dim Add as Range

Set  Sw =ThisWorkbook.Sheets("Main")

Set Add = Sw.Range("A65536").End(XlUp).LastRow 

او

Set Add = Sw.Range("ِ65536").End(XlUp).Offset(0, 1)a

شي مثل كذا فقط للتعلم. وجزاك الله خير

[ياسر خليل أبو البراء]

تقصد أن يكون بهذا الشكل

Sub DeleteLastRow()
    Dim ws As Worksheet
    Dim LastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Data")
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    Cells(LastRow, 1).EntireRow.Delete
End Sub

[ibn_egypt]

أخى الفاضل

 

نعم كل شئ بالبرمجة ممكن، وكما تفضل أخى الفاضل واستاذي أ.ياسر ووضع لك الكود الخاص بذلك تستطيع استخدامه .. انا فضلت اسهل عليك ويكون هو سطر كود واحد يبحث من خلاله الاكسل عن اخر صف به بيانات في العمود ويقوم بحذفه

 

كل الطرق تؤدي الى روما ( الحذف ) .. اختر منها ما تشاء يا ابا الحسن والحسين

 

تحياتي 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب ابن مصر

بصراحة سطر واحد أفضل بس دا طلبه نعمله ايه بقا

وبعدين كل السبل تؤدي إلى روما كما قلت ولكن روما لا تأبه لأحد

جزيت خيرا يا ابن مصر على ما تقدمه من مساعدات جمة وعظيمة

[KHMB]

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

نعم اخي ياسر خليل ذلك ماكنت ابغي جزاك الله خير

 

اخي واستاذي ابن مصر آه عليك والله تعبتك معي وانت لاكليت ولامليت استحي حتى ان اطلب شي آخر ومانستغنى عنكم ابدا يعجز لساني عن شكركم جزاك الله خير الجزاء نعم كودك الأول استخدمتة في برنامجي ولكن هذا لاني شبه افهم الطريقة ليس إلا.

[ibn_egypt]

 

 

بارك الله فيك أخي الحبيب ابن مصر

بصراحة سطر واحد أفضل بس دا طلبه نعمله ايه بقا

وبعدين كل السبل تؤدي إلى روما كما قلت ولكن روما لا تأبه لأحد

جزيت خيرا يا ابن مصر على ما تقدمه من مساعدات جمة وعظيمة

 

 

جزانا الله واياك استاذي الفاضل، فما نحن الا نقطة في بحر علمكم

 

روما لاتأبه لأحد بالفعل، كان بقاله يومين بيدور صباح ومساء ودلوقتى يقولك ما ينفعش تبقي كده ، ههههههههههههههههه   (بهزر يا ابا الحسن والحسين)

 

متابع موضوعك الرائع عن كثب من خلف الباب  وانتظر الحلقات المتقدمة قليلا  ، بارك الله فيك وزادك علما وفضلا

 

تحياتي

 

[KHMB]

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

حياك الله اخي ابن مصر

 

بالنسبة لكود اخونا ياسر خليل جزاه الله خير ممتاز كانت هناك ملاحظة ولكني حاولت معها وهي لما يحذف السطر كامل يترك اثر حدث تنسيق الحدود فقمت بتغيير الحذف Delete  إلى  مسح المحتويات ClearContenents

وعملت معي تمام وهذا من ضمن تعلم المحاولات فجزاكم الله خير إنتهــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــى