Bir kritere göre satır sildirme.

[Galus]

Belirtilen bir sütunda içinde sıfır değeri olan hücrelerin ait oldukları satırların otomatik olarak silinmesini istiyorum.

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub satir_sil()
Dim i As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For i = Cells(65536, "D").End(xlUp).Row To 1 Step -1
    If Cells(i, "D").Value <> "" And Cells(i, "D").Value = 0 Then
        Rows(i).Delete
    End If
Next
Application.ScreenUpdating = True
MsgBox "0 Olan sat&#305;rlar silindi.."
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modülle ilişkilendirir misiniz?

Sub Sifir_Satirlar_Sil()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For i = [D65536].End(3).Row To 2 Step -1
     If Cells(i, "D") = 0 Then Rows(i).Delete
Next i
MsgBox "Satırlar Silinmiştir....."
End Sub

Not : Geç kalmışım

 

[Galus]

Sayın Necdet_Yesertener,

Yardım ve destekleriniz için öok teşekkürler..

 

[Orion1]

Sayın Necdet_Yesertener,

Yardım ve destekleriniz için öok teşekkürler..

Bize teşekkür yokmu?Valla kırılırım.

 

[Galus]

Sayın Orion2,

Çok çok teşekkürler...

 

[Orion1]

Sayın Orion2,

Çok çok teşekkürler...

Rica ederim.
İyi çalışmalar.

 

[Galus]

Bize teşekkür yokmu?Valla kırılırım.

Valla sonradan görünce teşekkür yazdım. Allah senden de razı olsun.

Selamlar..

 

[Orion1]

Sayın Galus eğer Necdet Yesertener hocamın kodlarını kullanacaksanız.Kodların en altına aşğıdaki kodu ilave edeniz.Sayın hocam herhalde bu kodu yazmayı unutmuş.

Application.ScreenUpdating = True

 

[Necdet]

Sayın Orion2 hocam, unutmadım, özellikle yazmadım, zaten silinen silinmiştir, makroyu tekrar çalıştırmak için kimbilir kaç gün geçer diye düşündüm

Bence burda önemli olan ikimizin döngüsü farklı satırlarda bitiyor. Ben 2. siz 1. satıra kadar devam ettiriyorsunuz.

2. satırda bitirmemin nedeni her excel tablosunda mutlaka bi başlık olur düşüncesinden dolayıdır.

Saygılar

 

[Orion1]

Sayın hocam,ben sayın Galus'un yolladığı dosyaya göre yaptım.Orada 1nci satıra kadar veri vardı yanılmıyorsam.Saygılar.

 

[Galus]

Önceki örnekteki D sütununa göre veriler başarı ile silinmişti. Şimdi hem D sütunu hem de E sünununa göre sıfır olan satırları sildirebilir miyiz? Yani D sütununda stokta olmayanları silecek ama E sütununa da bakacak. E sütununda sayımda bir rakam varsa silmesin.

Teşekkürler.

 

[Necdet]

Merhaba,

Hem E hem de D sütunu 0 ise sildirdim. Umarım doğru anlamışımdır.

Sub Sifir_Satirlar_Sil()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
j = [D65536].End(3).Row
k = [E65536].End(3).Row
If j < k Then j = k
For i = j To 1 Step -1
     If Cells(i, "D") = 0 And Cells(i, "E") = 0 Then Rows(i).Delete
Next i
MsgBox "Satırlar Silinmiştir....."
End Sub

 

[Galus]

Aynen istediğim buydu. Demekki derdimi iyi ifade edebilmişim.
Sayın Necdet_Yesertener, ilgi ve alakanıza çok çok teşekkürler...

 

[Orion1]

Merhaba.
Bende bir şeyler hazırladım.:cool.
Ekli dosyayı inceleyiniz.

Sub satir_sil()
Dim i, son_sat As Long
Sheets("Sayfa1").Select
son_sat = Cells(65536, "E").End(xlUp).Row
Application.ScreenUpdating = False
For i = son_sat To 1 Step -1
    If Cells(i, "E").Value <> "" And Cells(i, "D").Value <> "" _
    And Cells(i, "E").Value = 0 And Cells(i, "D").Value = 0 Then
        Rows(i).Delete (xlUp)
    End If
Next
Application.ScreenUpdating = True
MsgBox "0 olan satırlar silindi..", vbOKOnly + vbInformation
End Sub

 

[Galus]

Sayın Orion2,

Saygı ve hürmetlerimle size de teşekkürler...

 

[Orion1]

Sayın Orion2,

Saygı ve hürmetlerimle size de teşekkürler...

Rica ederim.
Saygılar benden.
Benim yazdığım kodlarda sayın üstadımın kodlarına göre bir fark var .Oda Eğer hücre aralığında D ve E sütunundaki hücreler boş ise silme işlemi gerçekleşmiyor.Silme olabilmesi için mutlaka her 2 hücredede 0 olması gerekiyor.

 

[Necdet]

Benim yazdığım kodlarda sayın üstadımın kodlarına göre bir fark var .Oda Eğer hücre aralığında D ve E sütunundaki hücreler boş ise silme işlemi gerçekleşmiyor.Silme olabilmesi için mutlaka her 2 hücredede 0 olması gerekiyor.

Sevgili Orion2 ile hep bu mesajda karşı karşıya geliyoruz

Sayın Orion2 sizin dediğinizi düşündüm ama dosyada öyle birşey görmediğim için yapmamıştım, oysa haklısınız, geniş düşünmek gerek. Yani Şartı şöyle yazmak gerek (Çünkü sizin şartınızda hücrenin teki null diğeri 0 ise silmiyor)

    If (Cells(i, "E").Value = "" Or Cells(i, "E").Value = 0) And _
       (Cells(i, "D").Value = "" Or Cells(i, "D").Value = 0) Then
        Rows(i).Delete (xlUp)
    End If

Hey gidi COBOL heyyy, böyle parantezli şartlar vardı, denedim burda da varmış

 

[Galus]

Ben şimdi son eklenen kodları nereye ekliyeyim?

Teşekkürler..

 

[Orion1]

Or kullanmak dağa doğru olacaktır.

Sevgili Orion2 ile hep bu mesajda karşı karşıya geliyoruz

Sayın Orion2 sizin dediğinizi düşündüm ama dosyada öyle birşey görmediğim için yapmamıştım, oysa haklısınız, geniş düşünmek gerek. Yani Şartı şöyle yazmak gerek (Çünkü sizin şartınızda hücrenin teki null diğeri 0 ise silmiyor)

    If (Cells(i, "E").Value = "" Or Cells(i, "E").Value = 0) And _
       (Cells(i, "D").Value = "" Or Cells(i, "D").Value = 0) Then
        Rows(i).Delete (xlUp)
    End If

Hey gidi COBOL heyyy, böyle parantezli şartlar vardı, denedim burda da varmış

Evet ,sayın hocam haklısınız.Or kullanmak dağa doğru olacaktır.Saygılar.