كود اخفاء واضهارالصفوف

[عامر ياسر]

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

اضع هذا الملف عسى ان يفيد اعضاء وزوار المنتدى  

aamir.xlsm

[سليم حاصبيا]

الكود مختصراُ

Sub Salim1_Hidden()
  With Range("A16:A60").EntireRow
   .Hidden = Not (.Hidden)
  End With
End Sub

 

[عامر ياسر]

استاذ سليم منكم نتعلم ... انت مبدع بمعنى الكلمة