ايجاد حل لحذف الصف الذى يحتوى على اصفار بالكامل داخل نطاق

[amr atef eid]

الى اعزائي المحترمين فى المنتدى - ان شاء الله فى حالة حل هذه المشكلة ادناه سوف يتم نشر ملف خاص بشركة مقاولات بالكامل ان شاء الله

هناك ملف اقوم من خلال بعمل نسخ ثم لصق خاص لصق ارتباط

لكننى فى حاجة الى دالة او كود لحذف الصف بالكامل الذى يحتوى على اصفار داخل نطاق اقوم بتحديده

فىى الملف المرفق النطاق باسم atef

فى هذا الملف فى حاجة الى حذف الثالث والرابع والسادس

داخل النطاق اعلاه

ولكم جزيل شكرى وتقديرى واحترامى

المرفق

abc.rar

[بن علية حاجي]

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

أخي الكريم أقدم لك هذا الملف به كود يفي بالمطلوب ولكن يمكن أن تجد (من إخواني الكرام) كودا أحسن منه... والكود يقوم بحذف خلايا الأعمدة من B إلى D فقط، ويمكنك تغييره لحذف كل السطر بتبديل السطر التالي من الكود:

Range(Cells(cellule.Row, 2), Cells(cellule.Row, 4)).Delete Shift:=xlUp

بالسطر:

cellule.EntireRow.Delete Shift:=xlUp

والكود يتم تنفيذه بالنقر المزدوج في أي مكان من الورقة...

والله أعلم

أخوك بن علية

abc_1.rar

[يحيى حسين]

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

إضافة لحل الأخ بن علية

جرب هذا الكود

 

Sub DelZero()

Dim LastR As Long

LastR = Range("c" & Rows.Count).End(xlUp).Row

For i = LastR To 2 Step -1

	If Range("c" & i).Value = 0 Then Range("c" & i).EntireRow.Delete

Next i

End Sub


 

[amr atef eid]

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

أخي الكريم أقدم لك هذا الملف به كود يفي بالمطلوب ولكن يمكن أن تجد (من إخواني الكرام) كودا أحسن منه... والكود يقوم بحذف خلايا الأعمدة من B إلى D فقط، ويمكنك تغييره لحذف كل السطر بتبديل السطر التالي من الكود:

Range(Cells(cellule.Row, 2), Cells(cellule.Row, 4)).Delete Shift:=xlUp

بالسطر:

cellule.EntireRow.Delete Shift:=xlUp

والكود يتم تنفيذه بالنقر المزدوج في أي مكان من الورقة...

والله أعلم

أخوك بن علية

abc_1.rar

جزاكم الله خير

ياريت تشرح لي الكود وفى حالة توسعة النطاق مثلا من c3 الى z100

علما باننى افضل ان يتم الالغاء بناء على اسم نطاق مهما كان عدد صفوف النطاق

والنطاق المسمى atef افضل ان يتم التعامل مع النطاق لو تفضلتم وجزاكم الله كل الخير

[amr atef eid]

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

أخي الكريم أقدم لك هذا الملف به كود يفي بالمطلوب ولكن يمكن أن تجد (من إخواني الكرام) كودا أحسن منه... والكود يقوم بحذف خلايا الأعمدة من B إلى D فقط، ويمكنك تغييره لحذف كل السطر بتبديل السطر التالي من الكود:

Range(Cells(cellule.Row, 2), Cells(cellule.Row, 4)).Delete Shift:=xlUp

بالسطر:

cellule.EntireRow.Delete Shift:=xlUp

والكود يتم تنفيذه بالنقر المزدوج في أي مكان من الورقة...

والله أعلم

أخوك بن علية

abc_1.rar

جزاكم الله خير

ياريت تشرح لي الكود وفى حالة توسعة النطاق مثلا من c3 الى z100

علما باننى افضل ان يتم الالغاء بناء على اسم نطاق مهما كان عدد صفوف النطاق

والنطاق المسمى atef افضل ان يتم التعامل مع النطاق لو تفضلتم وجزاكم الله كل الخير

اخى العزيز يسعدنى ان ارفق لك ملف مضغوط به ورقة باسم اليومية الامريكية والاخرى باسم العهد

داخل ورقة العهد يوجد نطاق باسم amr

والسؤال هو كيف يمكن حالة وجود صف بالكامل كله اصفار نتيجة اللصق الخاص لص ارتباط الكود يقوم بحذف الصف بالكامل داخل النطاق المسمى amr

والسؤال الاخر هو كيف يتم تطبيق ذلك على اوراق داخل المصنف باسم نطاق اخر

ولكم جزيل الشكر

علما باننى افضل ان يكون الكود من خلال زر امر ولكم تحياتي

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