السلام عليكم و رحمة الله وبركاته
<A name=OLE_LINK21>الثلاثاء، 14/3/1430هـ. الموافق 10/3/09م
استخدام التصفية التلقائية بكودواحد لعدة اعمدة
في الحدث التلقائي للصفحة
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 Then
H = ActiveCell.Column
A = [b2].Value
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=H, Criteria1:="=" & Cells(2, H)
' Range("A2:C2").ClearContents
End If
End Sub
_______________________ay______.rar