Negatif Değerleri sıfırlamak veya silmek

[sesar]

Merhaba;

Tablomda çeşitli sütunlarda bulunan negatif değerlerin sıfırlanmasını nasıl otomatik bir şekilde yapabilirim?

Bütün kitabı seçip tüm bu negatif değerleri sıfırlamak veya silmek istiyorum.

Teşekkürler.

 

[sesar]

Aynı sorunu yaşayıp Google dan arayarak gelenler olabilir diye düşünüyorum.
Çözümü Kutools eklentisi ile buldum. Kutools yükleyin ve resimdeki en alt seçeneği işaretleyin.
Tüm negatif değerler 0'a dönüşecektir.

 

[Korhan Ayhan]

Eklentiyi kullanmadan da yapabilirsiniz.

Küçük bir döngü ile basitçe çözülebilir.

Sub Negatifleri_Sifir_Yap()
    Dim Ver As Range, Say As Long
    
    For Each Veri In ActiveSheet.UsedRange
        If Veri.Value < 0 Then
            Veri.Value = 0
            Say = Say + 1
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & "Yapılan değişiklik sayısı ; " & Say, vbInformation
End Sub