AccessTr.neT

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

(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.

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.

(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.

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.

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

---

Ayrıca çözüm için alttaki gifi izleyin çoketoplaya da yuvarla formülü eklenecek.