شكرا لحضرتك بافندم
بس ممكن توضيح أكثر بتعديل الاكواد الموجوده هنا
0
Sub CE??EC??E()
'
' CE??EC??E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=CE??EC??E", Operator:=xlOr, _
Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "CE??EUUUUUC??E"
Range("A3").Select
End Sub
Sub C?????()
'
' C????? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=C?????", Operator:=xlOr, _
Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "C???U?UUUUUUUUU?"
Range("A3").Select
End Sub
Sub E????UC?U?E?E()
'
' E????UC?U?E?E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=E???? C?U?E?E", Operator:= _
xlOr, Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "E???? C?U?E?E"
Range("A3").Select
End Sub
Sub E????UC?O???E()
'
' E????UC?O???E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=E???? C?O???E", Operator:= _
xlOr, Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "E???? C?O???E"
Range("A3").Select
End Sub
Sub C?????()
'
' C????? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=C?????", Operator:=xlOr, _
Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "C??UUUUUUUU???"
Range("A3").Select
End Sub
Sub C??OE??E()
'
' C??OE??E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=C??OE??E", Operator:=xlOr, _
Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "C??OE??E"
Range("A3").Select
End Sub
Sub C?E????()
'
' C?E???? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=C?E????", Operator:=xlOr, _
Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "C?E????"
Range("A3").Select
End Sub
Sub C????()
'
' C???? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'
'
Selection.AutoFilter Field:=1, Criteria1:="=C????", Operator:=xlOr, _
Criteria2:="=C?C??C??"
Range("B5").Select
ActiveCell.FormulaR1C1 = "C????"
Range("A3").Select
End Sub