كود إظهار الصفوف المخفية

[ابواسماء ابوزيد]

عند الضغط على زر إظهار لم يظهر الصفوف المخفيه التى بها أرقام كما اريد عند إخفاء الصفوف يعيد أرقام التسلسل وكأنه لم يكن فيه إخفاء صفوف ولكم جزيل الشكر

كشف من لهم مبالغ زائده.xlsm

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

هذا الكود ولا لزوم للخلقات التكرارية

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

[ابواسماء ابوزيد]

جزاك الله خيرا اخى الفاضل استاذ سليم حاصبيا على اهتمامك وجعله الله فى ميزان حسناتك