ابواسماء ابوزيد قام بنشر فبراير 1, 2020 مشاركة قام بنشر فبراير 1, 2020 عند الضغط على زر إظهار لم يظهر الصفوف المخفيه التى بها أرقام كما اريد عند إخفاء الصفوف يعيد أرقام التسلسل وكأنه لم يكن فيه إخفاء صفوف ولكم جزيل الشكر كشف من لهم مبالغ زائده.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر فبراير 1, 2020 أفضل إجابة مشاركة قام بنشر فبراير 1, 2020 هذا الكود ولا لزوم للخلقات التكرارية Private Sub ToggleButton1_Click() If ToggleButton1 = True Then Call HideBlankRows: ToggleButton1.Caption = "Show_All" Else Call Show_all: ToggleButton1.Caption = "Filter_Me" End If End Sub '++++++++++++++++++++++++++++++++++ Sub HideBlankRows() Dim r%, My_RG As Range Set My_RG = Range("A11").CurrentRegion r = My_RG.Rows.Count My_RG.Offset(1).Resize(r - 1).AutoFilter 6, _ Criteria1:="<=" & Range("k2") End Sub '+++++++++++++++++++++++++ Sub Show_all() If ActiveSheet.AutoFilterMode Then Range("A10").CurrentRegion.AutoFilter End If End Sub الملف مرفق FILTR_No_Filter.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابواسماء ابوزيد قام بنشر فبراير 2, 2020 الكاتب مشاركة قام بنشر فبراير 2, 2020 جزاك الله خيرا اخى الفاضل استاذ سليم حاصبيا على اهتمامك وجعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها