Çözüldü Belli sütunlardaki değerlerin hepsi sıfırsa ilgili satırın silinmesi

Merhaba. Daha önce c ve f sütunları arası değerlerin toplamı sıfır olduğu takdirde ilgili satırın tamamen silinmesini sormuştum. Şimdiki sorum şu şekilde olacak. Ekteki dosyada c , e ve f sütunlarındaki değerlerin hepsi sıfırsa ilgili satırın silinmesi ve silinen satırların 2. sayfaya taşınmasını nasıl sağlayabilirim.

İkinci olarak da c ile f sütunları arasındaki değerlerin hepsi sıfır olduğu takdirde aynı işlemi nasıl yapabilirim?

Önceki dosyanızdaki kodlarda çok basit bir değişikle..
Deneyin.
İyi çalışmalar.

Merhaba Aslında burada sorduğum soru biraz farklı. Değerlerin toplamı değil de değerlerin kendisinin sıfır olması

Ekteki dosyada c , e ve f sütunlarındaki değerlerin hepsi sıfırsa ilgili satırın silinmesi

yukarıda sorduğum soruyla ilgili
Kodunuzda şöyle bir değişiklik yaptım. Bu sefer bütün satırları sildi Döngüyü durduramadım.

Sub cef_toplamına_göre()
Application.ScreenUpdating = False
On Error Resume Next
Set s2 = ThisWorkbook.Worksheets("Sayfa1 (2)")
sonsat = Range("A65536").End(xlUp).Row
For i = sonsat To 3 Step -1
If Cells(i, "c") = 0 & Cells(i, "e") = 0 & Cells(i, "f") = 0 Then
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
For k = 1 To 8
s2.Cells(sonsatir, k) = Cells(i, k)
Next k
Rows(i).Delete shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

4 nolu mesajda ki kodlarda;
If Cells(i, "c") = 0 & Cells(i, "e") = 0 & Cells(i, "f") = 0 Then
satırını;

If Cells(i, "c") = "0" And Cells(i, "e") = "0" And Cells(i, "f") = "0" Then

Şeklinde düzenleyerek deneyin.

Vay süper oldu gerçekten