Verileri süzme

[ANTALYA 01]

Merhabalar

Ekte göndermiş olduğum tablodaki 4.makroya ihtiyacım var.Açıklama ayrıntılı tablonun içinde teşekkürler.

 

[ANTALYA 01]

D

Tablo ektededir.

 

[Recep İpek]

Aşağıdaki kod belki işinize yarayabilir.

Sub Sil()
For Each veri In Sheets("Sayfa1").Range("I3:I100")
If veri < 1 Then
veri.Delete Shift:=xlUp
End If
Next
End Sub

 

[ANTALYA 01]

D

Denedim Kodu Olmadı Bakiye 0,01-1 Ytl Arasını vermeyecek 1 Ytl ve üzeri olan Bakiyeyi verecek.Tabloda Uyarlarsanız sevinirim.Belki ben beceremedim.

 

[Recep İpek]

Ekteki dosyayı inceleyiniz.

I kolonundaki 1'den küçük verileri siler.Böylelikle 1'den büyük bakiyeler kalır.

Umarım doğru anlamışımdır.

 

[ANTALYA 01]

s

Sayın Ripek llgin için teşekkür ederim.İlk önce Senin Butona basıyorum sırasıyla sonra CTRL+SHİFT+A B C Yapıyorum.Verimize ulaşıyoruz fakat G Sütünu tamam ben H Sütunundaki 0,01-1 Ytl üzerini versim desem çok mu şey istemiş olurum.Amacım Çok sayfayı bu küçük rakamlardan temizlemek kağıt tasarrufu yapmak.Vadesi geçen 1 ytl üzerini versin kısaca

 

[Recep İpek]

Ekteki dosyada gerekli düzeltmeleri yaptım.

İsterseniz H kolonu, isterseniz I kolununundaki 1'den küçük verilerinizi silebilirsiniz.

 

[ANTALYA 01]

D

İlginizden dolayı teşekkür ediyorum.İyi çalışmalar