- Katılım
- 21 Mart 2008
- Mesajlar
- 232
- Excel Vers. ve Dili
- 2016
Aşağıdaki makro filtreleme makrosu 2007 de hazırlandı 2007 de çalışıyor ancak 2010 da çalışmıyor
renkler kullanılanılarak yapılmış bir filtrelemedir
yardımcı olan olursa sevinirim
Sub lise1()
' lise1 Makro
Sheets("LİSTE").Select
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=1, Criteria1:= _
"=1-FEN LİS.", Operator:=xlOr, Criteria2:="=2-SOS.BİL.LİS."
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=10
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=10, Operator:= _
xlFilterAutomaticFontColor
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=10, Criteria1:=RGB(55, _
96, 145), Operator:=xlFilterFontColor
End Sub
renkler kullanılanılarak yapılmış bir filtrelemedir
yardımcı olan olursa sevinirim
Sub lise1()
' lise1 Makro
Sheets("LİSTE").Select
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=1, Criteria1:= _
"=1-FEN LİS.", Operator:=xlOr, Criteria2:="=2-SOS.BİL.LİS."
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=10
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=10, Operator:= _
xlFilterAutomaticFontColor
ActiveSheet.Range("$A$2:$M$4741").AutoFilter Field:=10, Criteria1:=RGB(55, _
96, 145), Operator:=xlFilterFontColor
End Sub
