مساعدة في كود الإخفاء

[عبد الغني1]

السلام عليكم يا إخوان

أريد كود كلما كانت خلية من b9 إلى b33 فارغة يقوم بإخفاء السطر كله الفارغ مع العلم أنني نزلت كود لإخفاء السطور ولكن

المشكلة حدثت لما قمت بإضافة المعادلة ( IFERROR ) في النطاق ( f33:b9) أرجو أن تبينو لي المشكلة أين تكمن

نسخة من Xl0000019.rar

تم تعديل سبتمبر 29, 2013 بواسطه largot2009

[أبو عبد الملك السوفي]

السلام عليكم

تفضل أخي أرجو أن يكون المطلوب

ومرحبا بسكان الوادي

نسخة من Xl0000019.rar

[عبد الغني1]

أخي عبد السلام الملف به مشكل كلما اريد فتحه تصادفني مشكلة في فتحه

[أبو عبد الملك السوفي]

السلام عليكم

الملف يفتح عندي بدون مشاكل

حاول ترقية الأوفيس الى 2010

[عبد الغني1]

حاول أن تجد لي فكرة بدون ترقية الأوفيس إلى 2010

[البروفسير]

اخرجه اخى عبد السلام بصورة 2003 ليعمل بصورة صحيحة .. لانه فعلا لم يعمل لدي انا اوفيس 2003 ومسطب التحويلة الخاصة بالاصدارات الاعلى . وبالرغم من هذا لا يعمل .

[أبو عبد الملك السوفي]

السلام عليكم

حاول أخي أن تخفظ من أمان الماكرو

[أبو عبد الملك السوفي]

السلام عليكم

أخي الكريم ضع هذا الكود في الملف

Sub MyPrint5()

  Application.ScreenUpdating = False
  With Sheets("صفحة الترحيل")
    With .UsedRange
      For i = 2 To .Rows.Count
        If .Cells(i, 2).Value = "" Then
          .Cells(i, 2).EntireRow.Hidden = True
        End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub

تم تعديل سبتمبر 29, 2013 بواسطه عبد السلام زاوي

[عبد الغني1]

هل من مساعد أرجو المساعد يا إخوان

[أبو عبد الملك السوفي]

السلام عليكم

أخي الكريم ألم يفدك الكود الذي وضعته فهو نفسه الذي في الملف

جرب المرفق التالي

Xl0000019.rar

[عبد الغني1]

أخي عبد السلام الملف الذي ارسلته لايعمل بالشكل الصحيح مع العلم أنني لم أقم بتنصيب أوفيس 2010

[احمد عبد الناصر]

السلام عليكم

 

اسعد الله اوقاتكم

 

جرب المرفق

Sub Dahmour()
Application.ScreenUpdating = False
For Each c In [b9:b33]
If c.Value = "" Then
c.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

تحياتي

+Xl0000019.rar

[عبد الغني1]

شكرا أخي الكريم

ممكن كيف يكون الحل إذا كان الكود يعمل أتوماتيكي أي بدون زر أي عندما تكون قيمة الخلية 0 أو فارغة يختفي السطر وشكرا