hücre değeri sıfır olan satırı Komple sil bir TÜRLÜ

[bistrobellman]

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

:? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :? :?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:09c63e62dc]For a = Cells(65536, 4).End(xlUp).Row To 2 Step -1
If Cells(a, 4) = 0 Then Rows(Cells(a, 4).Row).Delete
Next
[/vb:1:09c63e62dc]

 

[bistrobellman]

TEÞEKKÜRLER