satır silme

[mhmtrn]

Merhaba arkadaşlar,
Benim sorum şöyle,
Elimizde bir liste var,
1.sütun: ad-soyad
2.sütun: yaş
3.sütun: eğitim durumu
4.sütun: cebindeki para (sütun adlarını gelişigüzel yazdım)

Ben Cebindeki para bölümü "0 (sıfır)" olan sütunları kaldırmak istiyorum.
Bunu nasıl yapabilirim.
Tercihim,öncelikle formül ile çözebilmek.

 

[Murat OSMA]

Deneyiniz..

sub Emre()
application.screenupdating = false
dim i as integer
for i = 2 to range("a65536").end(3).row
if cells(i,4) = 0 then
rows(i).delete
end if
next i
application.screenupdating = true
i = empty
end sub