0 (Sıfır) olan satırları silme

[sedat2161]

İyi çalışmalar ekili listemde 1,2,3 adlı sayfalarda 0 (sıfır) değeri olan satırları 1. Sayfada bulunan buton yardımı ile silmek istiyorum. Yardımcı olursanız çok sevinirim. Hayırlı günler

 

[Orion1]

İyi çalışmalar ekili listemde 1,2,3 adlı sayfalarda 0 (sıfır) değeri olan satırları 1. Sayfada bulunan buton yardımı ile silmek istiyorum. Yardımcı olursanız çok sevinirim. Hayırlı günler

Dosyanız ektedir.

Sub YuvarlatılmışDikdörtgen1_Tıklat()
Dim sonsat As Long, i As Long, j As Byte
Application.ScreenUpdating = False
For j = 1 To 3
    sonsat = Sheets(CStr(j)).Cells(Rows.Count, "E").End(xlUp).Row
    For i = sonsat To 3 Step -1
        If Sheets(CStr(j)).Cells(i, "E").Value <> "" And _
            Sheets(CStr(j)).Cells(i, "E").Value = 0 Then
                    Sheets(CStr(j)).Rows(i & ":" & i).Delete
        End If
    Next i
Next j
Application.ScreenUpdating = True
MsgBox "sıfırlar silindi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[sedat2161]

Çok teşekkür ederim Orion 1 bey iyi çalışmalar.

 

[Orion1]

Çok teşekkür ederim Orion 1 bey iyi çalışmalar.

Rica ederim.
İyi çalışmalar.

 

[sedat2161]

Dosyanız ektedir.

Sub YuvarlatılmışDikdörtgen1_Tıklat()
Dim sonsat As Long, i As Long, j As Byte
Application.ScreenUpdating = False
For j = 1 To 3
    sonsat = Sheets(CStr(j)).Cells(Rows.Count, "E").End(xlUp).Row
    For i = sonsat To 3 Step -1
        If Sheets(CStr(j)).Cells(i, "E").Value <> "" And _
            Sheets(CStr(j)).Cells(i, "E").Value = 0 Then
                    Sheets(CStr(j)).Rows(i & ":" & i).Delete
        End If
    Next i
Next j
Application.ScreenUpdating = True
MsgBox "sıfırlar silindi." & vbLf & "evrengizlen@hotmail.com"
End Sub

Orion1 bey bazen sıfırlar başka hücrelerde oluyor bu ekli dosyam dışındaki dışındaki başka dosyalarım var. Farklı sayfa ve hücrelerdeki sıfırları nasıl silebiliriz. İyi çalışmalar

 

[Orion1]

Orion1 bey bazen sıfırlar başka hücrelerde oluyor bu ekli dosyam dışındaki dışındaki başka dosyalarım var. Farklı sayfa ve hücrelerdeki sıfırları nasıl silebiliriz. İyi çalışmalar

Herhangi bir hücrede 0 sıfır olursa o satır silinsinmi?

 

[derisa963]

@Orion1 Abi benim fikrim son isteğe gore for döngüsü dosyayı zorlayabilir .Kolay yoldan gitmeyi düşünürsem Gelişmiş filtreleme ile önce o sayfalardaki sütunlar "<>0" ile başka sayfaya kopyalanıp asıl sayfalar silinerek iş çözülebilir gibi geldi . Karar yüce gönlünüze kalmış

 

[sedat2161]

Herhangi bir hücrede 0 sıfır olursa o satır silinsinmi?

Abi şu anda ne yapacağımı şaşırdım. Şimdilik konuyu beklemeye alsak. Konuyu tam çözdüğümde yardımlanızı beklerim. İyi Çalışmalar