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

دالة لحذف الصفوف


nisreen76

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

أخواني أشكركم على المجهود الذي تبذلونه في مساعدتنا

ولي استفسار كيف يمكنني أن أحذف صفوف فارغة ضمن مجال

مثلا الصف 31 به بيانات 32 فارغ 33 بيانات وهكذا وليس بالشرط صف فارغ وصف به بيانات

أرجو أن أكون أوصلت الفكرة

رابط هذا التعليق
شارك

اخي او اختي

السلام عليكم

الفكرة لاذن الله واضحة ووصلت

ولكن لايوجد مرفق للعمل علية

آمل التكرم بوضع مرفق للعمل علية

مع التحية

رابط هذا التعليق
شارك

Sub delErows()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Range("a1:a65000")
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlUp)
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

DellEmptyRows.rar

رابط هذا التعليق
شارك

للأسف لم تعمل معي ما أوده حذف الصفوف تلقائيا بدون الضغط على أي شيء:

ما هو مطلوب كالآتي

if blank F24 delete row

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

أكثرتم عليكم ولكني أود التخلص من هذه المشكلة وخاصة إنني غير خبيرة بالفيجول بيسك

تم تعديل بواسطه nisreen76
رابط هذا التعليق
شارك

السلام عليكم

الاخت nisreen76

من الافضل ارسال ملف توضحين فيه ما تريدين

و لارسال الملف يجب اولا ضغطه ببرنامج ال winrar او ال wizip

حتي يقبل التحميل للمنتدي

تحياتي

رابط هذا التعليق
شارك

السلام عليكم

الاخت nisreen76

تم التطبيق علي ملفك بعمل زرين احدهما اخفاء الصفوف وهذا ما افضله بالنسبة لملفك

و الاخر الغاء و هو الذي طلبتيه

ارجو التجربة و اخباري لو فيه اي تعديل

تحياتي

Invoice.rar

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

أكثرت عليكم نعم هذا ما أريد لكن مع بعض التعديلات أود الإخفاء كما أشرتم علي ولكن هناك مشكلة أريد إذا كان بالإمكان أن تتم العملية تلقائية بدون ضغطة زر وإذا كان هذا لا يمكن لا أريد لهذا الزر أن يظهر في الطباعة وشكرا

Invoice.rar

رابط هذا التعليق
شارك

السلام عليكم

من خصائص الزر حددى PrintOpject الى False

هذا اولا

ثانيا يمكن ان تضعى زر ماكرو في شريط الادوات و تربطيه بالكود وبهذا يكون بعيد عن الطباعه و غيرها

رابط هذا التعليق
شارك

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