Belirli Satırların Tamamını Silme

[ali.canlidinc]

Merhaba,

Foruma yeni dahil oldum, öncelikle böyle bir platformu hazırlayanlara teşekkür ederim.

Elimde çok basit bir hesap tablosu var, bir açıklama ve yanında kasaya giren veya kasadan çıkar miktar +/- şeklinde yazıyor. Sadece harcamaların veya gelirlerin hesaplanması gereken durumlar olduğunda işi kolaylaştırmak için makro yazmaya çalıştım fakat çok başarılı olamadım. Kod, bir sutundaki değerlere teker teker bakacak eğer sıfırdan büyükse o satırın tamamını silecek.

Böyle birşey mümkün mü? Kodu hakkında biraz bilgi verebilir misiniz? Örnek olarak bakabileceğim bir kod var mı? Şimdiden teşekkürler.

-Ali

 

[omerceri]

kod yazmana gerek yok otomatik süzgeç uygula, süzgeç uygularken;
özel'i seç,
büyüktür 0 işaretle,
süzdüğü tüm satırları seç ve sil.
Süzgeçi kaldır.

 

[ali.canlidinc]

Süzgeç'i biliyorum, şimdiye kadar benzer bir yöntem ile verileri ayrıştırdık. Bu işi daha kolaylaştıracak bir kod yazmak isityorum.

Bir sutundaki hucreleri sırayla alt alta nasıl seçerim. Örneğin Range("D4").Select dedim, D4 ile işim bittiğinde D5'i seçeceğim ve böylece sutunun sonundaki boş hücreye kadar gideceğim. Böyle birşey mümkün müdür?

Teşekkürler,

 

[zafer]

Merhaba

A sütunun daki hücrelere bakar. 0 dan büyükse satırı siler.
Kodları modüle yapıştırıp , Çalıştırınız.

Sub satır_sil()
st = Cells(65536, 1).End(xlUp).Row + 1
For i = 1 To st
If st = i Then Exit Sub
If Cells(st - i, 1) > 0 Then Rows(st - i).Delete
Next
End Sub

 

[ali.canlidinc]

Cevap için teşekkürler,

If Cells(i, 1) > 0 Then Cells(i, 1).Delete
satırını
If Cells(i, 1) > 0 Then Rows(i).Delete
şeklinde değiştirdim ve şu anda çalışıyor

Sorum olursa tekrar sizleri rahatsız edeceğim :8)

 

[zafer]

Merhaba


Son gönderdiğim kodlar daha uygun . onları denermisiniz.
ilk gönderdiğim kodlarda alt alta 2 adet o dan büyük değer varsa silmez ve sonsuz döngüye girebilir.