استفسار بسيط عن كود لاخفاء الصفوف الفارغة

[احمد الشافعي]

السلام عليكم اساتذتي الكرام 

اشكركم جميعا لمساندتكم لنا في الرد عن استفسارتنا 

ولن اطيل علي حضراتكم 

لقد بحثت مرارا عن طريقة عمل زر لاخفاء السطور الفارغة بالجدول 

ولقد وجدت ما اريده في موضوع هنا 

وهذا الرابط الخاص به 

http://www.officena.net/ib/index.php?showtopic=37374

 

ولكني كنتي أمل من حضراتكم افادتي بالجزئية الموجودة بالكود التالي 

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CommandButton1.Caption = "اخفاء الفارغ" Then
For D = 5 To 13
If Cells(i, 33) = "" Then
Cells(i, 33).EntireRow.Hidden = True
End If
Next
CommandButton1.Caption = "اظهار الفارغ"
Else
 CommandButton1.Caption = "اظهار الفارغ"
For D = 5 To 13
If Cells(i, 33) = "" Then
Cells(i, 33).EntireRow.Hidden = False
End If
Next
CommandButton1.Caption = "اخفاء الفارغ"
Application.ScreenUpdating = True
End If
End Sub

وخاصة الجزئية 

If Cells(i, 33) = "" Then
Cells(i, 33).EntireRow.Hidden = False

واريد معرفة كيفية تطبيقها علي المثال التالي 

وشكرا لكم 

 

HIDE EMPETY CELLS.rar

[ibn_egypt]

اخى الفاضل أ.أحمد

 

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

 

تحياتي  

HIDE EMPETY CELLS.rar

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

تفضل أخي الحبيب الملف ..مع الشرح لأسطر الكود

بس متنساش تدعي لي

Hide Show Empty Rows.rar

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

الأخ الحبيب والأستاذ الكبير ابن مصر

إنت كدا دايما سابقني بخطوة .. عموما أهو كله إثراء للموضوع (مين إثراء دي تعرفها ؟؟؟)

[احمد الشافعي]

اخي الكريم  ibn_egypt

شكرا لك هذا هو المطلوب 

ولكن ارجو من حضرتك محاولة شرح الكود لسهولة استخدامه لاكثر من شيت اخر 

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

[احمد الشافعي]

اشكرك استاذ 

YasserKhalil

واشكر مساعدتك الكريمة في الشرح الوافي 

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

وشكرا لك استاذي 

 

ibn_egypt

أذادكم الله من خيره وأدام عليكم بكامل الصحة والعافية 

[ibn_egypt]

 

الأخ الحبيب والأستاذ الكبير ابن مصر

إنت كدا دايما سابقني بخطوة .. عموما أهو كله إثراء للموضوع (مين إثراء دي تعرفها ؟؟؟)

 

 

حبيبي واستاذي الفاضل أ.ياسر

 

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

 

تحياتي وتقديري أستاذي الحبيب  

 

 

اخي الكريم  ibn_egypt

شكرا لك هذا هو المطلوب 

ولكن ارجو من حضرتك محاولة شرح الكود لسهولة استخدامه لاكثر من شيت اخر 

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

 

 

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

 

تحياتي  

[احمد الشافعي]

شكرا لكم جزيلا اخوتي الاعزاء واساتذتي الكرام 

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

واكون شاكرا اذا افدتوني بطريقة عمل الزر مع وضع الكود 

للملف المرفق

Test.rar

[ibn_egypt]

أخى الفاضل أ.أحمد

 

تفضل ملفك بعد التعديل 

 

تحياتي  

Test.rar

[احمد الشافعي]

تسلم يدك اخي الكريم وجزاك الله خيرا وزادك الله من علمه

[ابا اسماعيل]

 هل يوجاد كود

الخفاء السطور الفارغة اعتمادا على لايوجود اسم في خانة في الفاتورة

بشكل تلقائى واطهار صفوف التي فيها البيانات بي شكل تلقائي دونا نقص في حجم الفاتورة بل اخفاء سطور لامسحوها

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

أخي الحبيب أبا اسماعيل ارفق ملفك لتكون الصورة واضح بالنسبة لي ..

أعتقد أن الإخفاء سيؤثر على حجم الفاتورة ..عموما دعنا نلقي نظرة على ملفك أولاً