sıfırsa satırı silsin

[orcunerkek54]

iyi akşamlar benzer örnekler var ancak mükükerrerleri siliyor benim istediğim mükerrer değil D sütununda SIFIR olan SATIRIN silinmesi teşekkürler....

 

[N.Ziya Hiçdurmaz]

yanıt

Sub TEST()
For sut = [d65536].End(3).Row To 1 Step -1
If Range("d" & sut) = "0" Then
Rows(sut).Delete
End If
Next
End Sub

 

[orcunerkek54]

çok teşekkürler yıldırım gibisiniz

 

[asilacar]

Benim de çok işime yaradı açıkçası fakat kodda çözemedigim iki nokta var

For sut = [d65536].End(3).Row To 1 Step -1

kodun ne yaptıgını bilemedim

bir de ;

If Range("d" & sut) = "0" Then

bu kullanımı bilmiyorum tam olarak ne yapıyor?

 

[N.Ziya Hiçdurmaz]

yanıt

D sütununun en son satırından yukarıya bir eksilterek döngünün oluşması.
For sut = [d65536].End(3).Row To 1 Step -1

d sütununda döngü içindeki hücrelerin 0 ' eşit olanlarını koşul tutma
If Range("d" & sut) = "0" Then

 

[asilacar]

Çok teşekkür ederim VBA üstad deneyeyim kodu hemen


Bir minik soru daha End(3) teki 3 ne oluyor üstad? Neyin parametresidir acep?