Yazı tipi rengi otomatik değiştikçe filtre çalışsın

[Er_kanas]

If k.Cells(1, 11) < 0 Then
k.Range("A:BA").AutoFilter Field:=11, Criteria1:=255, Operator:=xlFilterFontColor
Else
k.Range("A:BA").AutoFilter Field:=11, Criteria1:=5287936, Operator:=xlFilterFontColor
End If
End Sub
yeni sutün için yapsam yeterlimi

 

[Er_kanas]

Tamam hallettim üstat çok teşekkürler...