belirli sayıları içeren satırların silinmesi

[ssyolog]

merhaba

ekteki excelde sadece H Sütuna denk gelen sıfıra eşit olan bütün satırların silinmesi için bir formül varmı acaba ya da bir makro

çok teşekkürler

 

[Saban Sertkaya]

Merhabalar,

Dosyanız eklenmemiş. Ama aşağıdaki kodu bir butona atayarak, şu şekilde deneyebilirsiniz.

Sub Sil()
For a = 1 To [H1048576].End(xlUp).Row
If Cells(a, 8) = 0 Then Rows(a).Delete
Next a
End Sub

 

[ssyolog]

dosyayı ekleme izin vermiyor sisteminiz mail adresinize gönderebilirim

çok teşekkürler

 

[Ömer BARAN]

dosyayı ekleme izin vermiyor

Örnek belgenizi burası veya burası gibi bir paylaşım sitesine yükleyip, oradan alacağınız erişim bağlantı adresini burada paylaşabilirsiniz.
.

 

[memoli79]

Sn. Ömer Baran aynı kodu satırları silme yerine gizlemek için nasıl değiştirebiliriz?

 

[Ömer BARAN]

Sn. Ömer Baran aynı kodu satırları silme yerine gizlemek için nasıl değiştirebiliriz?

Sanırım Sayın Şaban Bey'in bu konu sayfasında verdiği kod'da değişiklik için fikrimi sordunuz.
Koddaki Rows(a).Delete yerine Rows(a).EntireRow.Hidden = True yazarak ilgili satırı gizleyebilirsiniz.

 

[Korhan Ayhan]

Satır silme kodlarında döngüyü de son satırdan başlatmak daha doğru sonuç verecektir.

 

[memoli79]

Sanırım Sayın Şaban Bey'in bu konu sayfasında verdiği kod'da değişiklik için fikrimi sordunuz.
Koddaki Rows(a).Delete yerine Rows(a).EntireRow.Hidden = True yazarak ilgili satırı gizleyebilirsiniz.

Ömer Bey çok özür dilerim cevabı sizin verdiğinizi sanarak size sordum. Yine de cevapladığınız için teşekkürler.

 

[memoli79]

Satır silme kodlarında döngüyü de son satırdan başlatmak daha doğru sonuç verecektir.

Korhan Bey bir örnekle açıklarmısınız?

 

[Korhan Ayhan]

Boş bir dosya açın.

"H" sütunundaki hücrelere 10 satır kadar 1 yazın.

Daha sonra aşağıdaki kodu deneyin.

Sub Sil()
    For X = 1 To Cells(Rows.Count, "H").End(3).Row
        If Cells(X, "H") = 1 Then Rows(X).Delete
    Next
End Sub

Normalde bu kod ile tüm 1 girdiğiniz satırların silinmesi gerekir. Fakat makro tüm sütunu taramasına rağmen silme işlemini eksik yapacaktır. Bunun sebebi ise silinen satırın yukarı ötelenmesidir.

 

[memoli79]

Çok teşekkür ederim Korhan Bey