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

اظهار الصفوف بدل الأعمدة


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

السلام عليكم

=====

شاهد المرفق

استاذنا الكبير المشرف هشـــــــــــــــــــــــام :

كنت احاول مساعدة الاخ صاحب الطلب " باسنت العمري "

ولكنني لم افلح رغم انني كررت المحاولات عدة مرات وعندا شاهدت مرفقك عرفت تماما اين كان خطأي

استفدت كثيرا

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

وفقك الله

ياسر الحافظ " ابو الحارث "

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

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

إخوتي يمكن اختصار الكود ليصبح




Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) <> "B2" Then Exit Sub

Rows("3:21").Hidden = Target.Value = "بنك"

Rows("22:100").Hidden = Target.Value = "شركة"

End Sub



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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information