Bir Aralıktaki Sıfır Ve Sıfırdan Büyük Tüm Değerleri Silme

[bilal5412]

Merhaba arkadaşlar,

Aşağıdaki adreste örnek bir çalışma vardır. Bu çalışmada yapılmak istenen, değeri "sıfır ve sıfırdan büyük" sayıları silmek istiyorum. Normalde bu işlem için her bir kolonu tek tek süzüp sıfır ve sıfırdan büyük olanları süzüp siliyorum. Daha kısa bir yolu var ise yardımcı olabilir misiniz.

Bilgi : Asıl dosyamda 40-50 kolon ve 400-500 satır gibi verilerim oluyor.

https://drive.google.com/file/d/0B3wJKQcxKCV4WHFveGFuY05LbDA/view?usp=sharing

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u, alt taraftan işlem yapılacak sayfa adına fareyle sağ tıklayıp
KOD GÖRÜNTÜLEyi seçtiğinizde açılacak ekranın sağa tarafına yapıştırın ve F5 tuşuna basın.
.

Sub temizlik()
Dim hücre As Range
For Each hücre In [B][COLOR="Blue"]Range("A2:C10")[/COLOR][/B]
If IsNumeric(hücre.Value) And hücre.Value <> "" And hücre.Value >= 0 Then hücre.ClearContents
Next hücre
End Sub

 

[bilal5412]

Merhaba.

Aşağıdaki kod'u, alt taraftan işlem yapılacak sayfa adına fareyle sağ tıklayıp
KOD GÖRÜNTÜLEyi seçtiğinizde açılacak ekranın sağa tarafına yapıştırın ve F5 tuşuna basın.
.

Sub temizlik()
Dim hücre As Range
For Each hücre In UsedRange
If IsNumeric(hücre.Value) And hücre.Value <> "" And hücre.Value >= 0 Then hücre.ClearContents
Next hücre
End Sub

Yanıtınız için çok teşekkürler. Bu uygulamayı belirli bir alan için nasıl yapabiliriz. (tüm sıfırdan büyük olan diğer alanlarımdaki verileri sildi)

 

[Ömer BARAN]

Önceki cevabımı güncelledim, sayfayı yenileyerek tekrar kontrol ediniz.

 

[bilal5412]

Önceki cevabımı güncelledim, sayfayı yenileyerek tekrar kontrol ediniz.

Sorum çözülmüştür. Teşekkürler.

 

[Ömer BARAN]

Sorum çözülmüştür. Teşekkürler.

İyi günler dilerim.