0,001 Nedeni İle Çalışmayan Süzme Formülü

[ziya]

Merhaba,
Sonuç SIFIR görüntülendiği halde gerçekte (+) (-) 0,001 ve daha küçük küsuratlar nedeniyle aşağıdaki satır çalışmıyor.

ActiveSheet.Range("$Z2:$Z2000").AutoFilter Field:=1, Criteria1:="<>0", Operator _
        :=xlAnd

Yardım rica ediyorum

 

[muhasebeciyiz]

Sub DuzeltVeFiltrele()
Dim cel As Range
Dim ws As Worksheet

Set ws = ActiveSheet
Set Rng = ws.Range("$Z2:$Z2000")

For Each cel In Rng
If cel.Value = 0 Then
cel.Value = 0
End If
Next cel

ws.Range("$Z2:$Z2000").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
End Sub

*******************************************************************************************************************************
Bu makro, belirli bir hücre aralığındaki sıfıra eşit olan hücre değerlerini düzeltir ve ardından AutoFilter işlemi gerçekleştirir.
Eğer hücre değerlerinin düzeltilmesi gerekmiyorsa, sadece filtreleme işlemi öncesi düzeltme kısmını kullanabilirsiniz.

 

[necati]

Merhaba,
Sonuç SIFIR görüntülendiği halde gerçekte (+) (-) 0,001 ve daha küçük küsuratlar nedeniyle aşağıdaki satır çalışmıyor.

ActiveSheet.Range("$Z2:$Z2000").AutoFilter Field:=1, Criteria1:="<>0", Operator _
        :=xlAnd

Yardım rica ediyorum

Merhaba sıfır yerine 1'e eşit yada büyük deneyiniz.
ActiveSheet.Range("$Z2:$Z2000").AutoFilter Field:=1, Criteria1:=">=1", Operator _
:=xlAnd

 

[ziya]

Sub DuzeltVeFiltrele()
Dim cel As Range
Dim ws As Worksheet

Set ws = ActiveSheet
Set Rng = ws.Range("$Z2:$Z2000")

For Each cel In Rng
If cel.Value = 0 Then
cel.Value = 0
End If
Next cel

ws.Range("$Z2:$Z2000").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
End Sub

*******************************************************************************************************************************
Bu makro, belirli bir hücre aralığındaki sıfıra eşit olan hücre değerlerini düzeltir ve ardından AutoFilter işlemi gerçekleştirir.
Eğer hücre değerlerinin düzeltilmesi gerekmiyorsa, sadece filtreleme işlemi öncesi düzeltme kısmını kullanabilirsiniz.

Teşekkür ederim.

 

[ziya]

Merhaba sıfır yerine 1'e eşit yada büyük deneyiniz.
ActiveSheet.Range("$Z2:$Z2000").AutoFilter Field:=1, Criteria1:=">=1", Operator _
:=xlAnd

Teşekkür ederim, ama soruyu anlaşılır anlatamamışım.