السلام عليكم ورحمة الله وبركاته
تحياتى
ماسترو المنتدى / على السحيب
عدلت الكود الاول لكى يتم تطبيقه على جميع الصفحات ورجعت لما اشرت اليه فى مشاركة سابقة ( ولكن لم يعمل )
وهذا ما فعلته
Sub MySort2()
Application.ScreenUpdating = False
With ActiveWorkbook
For Each sh In .Sheets
sh.Select
If sh.Sheets.ComboBox1 = [i15] Then sh.Rows.Hidden = False
If sh.Sheets.ComboBox1 <> [i15] Then
sh.Rows.Hidden = False
For A = 6 To 1000
BR = sh.Cells(A, 6)
If BR <> ComboBox1 Then
sh.Rows(A).Hidden = True
End If
Next
'åäÇ ÊÖÚ ÃÑÞÇã ÇáæÇÞÚÉ Èíä ÇáÌÏæá ÇáÃæá æÇáËÇäí
sh.Rows("36:38").Hidden = False
'åäÇ ÊÖÚ ÃÑÞÇã ÇáæÇÞÚÉ Èíä ÇáÌÏæá ÇáËÇäí æÇáËÇáË
sh.Rows("54:56").Hidden = False
End If
ActiveWindow.SmallScroll Down:=-100
Application.ScreenUpdating = True
End Sub
ارجو الاطلاع علية وافادتى ما يمكن عمله
ولك جزيل الشكر