AccessTr.neT
Tabodaki Sıfır Değeri İçeren Satırları Silme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tabodaki Sıfır Değeri İçeren Satırları Silme (/konu-tabodaki-sifir-degeri-iceren-satirlari-silme.html)

Sayfalar: 1 2 3

RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - berduş - 22/04/2021

yalnız son eklediğiniz dosyada şöyle bir soruna rastladım; bu çalışmada bakiye alanı hesaplanmış alan dolayısıyla sonuç diğer satırdaki verilere de bağlı
mesela 2, 7, 12, 18, 22, 25, 31 satırlarda R sütunundaki veriler 0 ama ben el ile önce 31 sonrada 25. satırı sildiğimde geriye 0 değeri olan satır kalmıyor
yada sadece 2. satırı sildiğimde geriye 0 değerli 6 satır kalması gerekirken 2 satır tek kalıyor çünkü R satırı aynı hesapnolu satırlara göre işlem yapıyor
bu durumda ne yapılacak? mevcut örneğinizde her hangi -sıfır değerli farklı hesapnolu - 2 satırı sildiğimizde geriye kalanlar artık 0 olmuyor
aşağıdaki kod işinize yarayabilir
Not: ama merak ettim neden asıl dosyanızla uyumlu çalışma yerine başka yapıdaki dosyayı kullandınız, açıkçası bunu başka üyeler de yapıyor ve bu hem sizin açınızdan -sorundan kurtulmada zaman kaybına sebep oluyor- hem de bizim açımızdan -aynı işi 2 defa yapmak gibi bir angarya oluşuyor- sorunlu bir durum
Sub SilBakiyeSıfır()

Dim Syf As Worksheet

    Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")

   

    With Syf

    Sonstr = Syf.Cells(Syf.Rows.Count, "a").End(xlUp).Row

    For x = Sonstr To 2 Step -1

        If Syf.Range("R" & x).Value = 0 Then Syf.Range("A" & x).EntireRow.Delete

    Next x



    End With

MsgBox "Silme işlemi tamamlandı"

End Sub


RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - feraz - 22/04/2021

(20/04/2021, 22:31)feraz yazdı: Len(Trim(.Cells(i, "H").Value)) > 0
@berduş hocam yukardakini eklememin sebebi tabloda boş satır 0 olarak göründüğü için boş satırsa silmesin diyeydi.

RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - berduş - 22/04/2021

sizin kodunuzla ilgili bir şey söylemedim hocam, sorun zaten benim yazdığım ilk kodla ilgili, o kodda önce 0 değerli satırların adresi diziye aktarılıp sonra da siliniyordu oysa yeni çalışmada hücre değeri hesaplanmış alan o nedenle yazdığım kodu revize etmem gerekti.

Re: Tabodaki Sıfır Değeri İçeren Satırları Silme - ercansahiner61 - 24/04/2021

(22/04/2021, 12:06)berduş yazdı: sizin kodunuzla ilgili bir şey söylemedim hocam, sorun zaten benim yazdığım ilk kodla ilgili, o kodda önce 0 değerli satırların adresi diziye aktarılıp sonra da siliniyordu oysa yeni çalışmada hücre değeri hesaplanmış alan o nedenle yazdığım kodu revize etmem gerekti.
HOCAM giren topam ile çıkan toplam eşit olduğu halde ve hücre değeri sıfır gösterdiği halde doğrulamada hücre değeri sıfırdan farklı olduğu için kod doğru çılışmıor. nedenii bir türlü çözemedim. Formül içeren içrede sonuç sfır olması gerektiği halde neden sıfırdan farklı gibi algılıyor acaba bu sorunu çözersek, benim sorunda büyük ihtimalle çözülmüş olacak
elle 0 değeri girildiğinde gerçek değeri 0 olarak gösteriyor, bazı hücreler doğru şekilde gerçek sıfır değerini veriyor. bazıları farklı veriyor.

RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - feraz - 24/04/2021

Sorunun bir tanesi

Mesela H2 sütunu -7764,94 olarak gösteriyor oysa kopyalayıp başka bir satıra değer olarak yapıştırırsanız -7764,93999999997 olarak sonuç oluyor bunun için alttaki yuvaral formülünü ekleyin H2 ye ve alta çekin.

Kod:
=YUVARLA((E2-F2);2)


RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - feraz - 24/04/2021

Gifi izleyin ne demek istediğimi anlarsınız diğer olay için.

[Resim: dd.gif]
Ayrıca çözüm için alttaki gifi izleyin çoketoplaya da yuvarla formülü eklenecek.

[Resim: eeee880828d5597d72a3.gif]