For Döngüsünde Sıfırları Silme

[tuvons]

Merhaba arkadaşlar,

For döngüsünde hücredeki değerlerin "0" olduğunda silmesini istiyorum fakat "7,27595761418343E-12" şeklinde olan sayıları silmiyor. Bunu nasıl döngüye sokabilirim.

    son1 = S1.Cells(Rows.Count, "a").End(3).Row
    For x = 2 To son1
    If S1.Cells(x, 2) = "0" Then
    S1.Rows(x).Delete
    x = x - 1
    End If
    Next x

 

[Muzaffer Ali]

Merhaba.

Hücre değeri 0 ise satır silinsin istiyorsunuz fakat "7,27595761418343E-12" yazıyorsa ve satır silinmiyorsa bu gayet normal değil mi?

 

[tuvons]

@Muzaffer Ali merhaba,

Hücrenin biçimini sayı yapınca zaten yazılı değerlerin "0" olduğu gözüküyor. Örneğin 1,8644641386345E-11 - 1,45519152283669E-11 - 1,95399252334028E-12 bu değerlerin hepsi "0". Ben hücre değerini sayı yapıp "0" olarak görsem bile makro ile bunları silemedim.

 

[Muzaffer Ali]

Aşağıdaki gibi yapmalısınız.

If S1.Cells(x, 2).text = 0 Then

 

[Korhan Ayhan]

Bu da olabilir...

If VBA.Round(S1.Cells(x, 2), 0) = 0 Then

 

[tuvons]

Teşekkürler @Muzaffer Ali @Korhan Ayhan