- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
ekteki listede KALAN ADET YANİ 4.SUTUNU SIFIR OLANLARIN SATIRI TAMAMEN SİLİNSİN İSTİYORUM..EKE BAKAR MISINIZ?
D Sutununa göre "0" OLANLARI ARAYIP SİLECEK AMA OLMUYOR? :kafa:
Range("D2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = 0 Then ActiveCell.EntireRow.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Select
Loop
:? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :?
D Sutununa göre "0" OLANLARI ARAYIP SİLECEK AMA OLMUYOR? :kafa:
Range("D2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = 0 Then ActiveCell.EntireRow.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Select
Loop
:? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :?