Bir çalışmada hücre değerine göre 0'dan küçük ise 0'dan küçük, 0'dan büyük ise 0'dan büyük değerleri otomatik fitre et kodu yazılı fakat 0 'dan küçük değerleri filtre etmiyor... kod aşağıda görülmektedir. Yanlış nerede yardımcı olacak arkadaşlar varmı_?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K629]) Is Nothing Then Exit Sub
Dim k As Worksheet: Set k = Sheets("karşılaştırma")
k.Range("C2
2").AutoFilter Field:=1: k.Range("C22").AutoFilter Field:=2
If k.Cells(1, 1) < 0 Then
k.Range("C22").AutoFilter Field:=1, Criteria1:="<0", Operator:=xlAnd
Else
k.Range("C22").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
End If
If k.Cells(1, 2) < 0 Then
k.Range("C22").AutoFilter Field:=2, Criteria1:="<0", Operator:=xlAnd
Else
k.Range("C22").AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K629]) Is Nothing Then Exit Sub
Dim k As Worksheet: Set k = Sheets("karşılaştırma")
k.Range("C2
2").AutoFilter Field:=1: k.Range("C22").AutoFilter Field:=2If k.Cells(1, 1) < 0 Then
k.Range("C2
2").AutoFilter Field:=1, Criteria1:="<0", Operator:=xlAndElse
k.Range("C2
2").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAndEnd If
If k.Cells(1, 2) < 0 Then
k.Range("C2
2").AutoFilter Field:=2, Criteria1:="<0", Operator:=xlAndElse
k.Range("C2
2").AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAndEnd If
End Sub
