كود صغير جدا و لكن مفيد جدا_ازالة فلترة البيانات من ورقة العمل

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة  

 

انشىء زر بورقة العمل و الحق به هذا الكود

Sub sort()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
 If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
   
  End If
  
End Sub

 

 

 و لا تنسونا من صالح الدعاء

تحياتى

تم تعديل ديسمبر 20, 2016 بواسطه جلال الجمال_ابو أدهم

[احمد ابوزيزو]

بارك الله فيك

[جلال الجمال_ابو أدهم]

احمد ابوزيزو

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

تحياتى