alt alta yuzlerce tablodan sıfırlı olan satırları sılmek

kakara

Altın Üye
Katılım
5 Mart 2014
Mesajlar
252
Excel Vers. ve Dili
excel 2016 plus
Altın Üyelik Bitiş Tarihi
19-12-2025
merhaba ustadlarım detaylı bılgıyı ekledıgım dosyada verdım ılgınız ıcın sımdıden tesekkurler
 

Ekli dosyalar

kakara

Altın Üye
Katılım
5 Mart 2014
Mesajlar
252
Excel Vers. ve Dili
excel 2016 plus
Altın Üyelik Bitiş Tarihi
19-12-2025
sorun devam etmektedır ılgınız ıcın tesekkurler
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
Option Explicit

Sub Delete_Rows_With_Zeros()
    Dim Rng As Range, My_Range As Range
    
    Application.ScreenUpdating = False
    
    With Sheets("Sayfa1")
        For Each Rng In .Range("P16:P" & .Cells(.Rows.Count, "P").End(3).Row)
            If Rng.Value = 0 And Rng.Value <> "" Then
                If My_Range Is Nothing Then
                    Set My_Range = Rng.Offset(, -15).Resize(, 16)
                Else
                    Set My_Range = Union(My_Range, Rng.Offset(, -15).Resize(, 16))
                End If
            End If
        Next
        
        If Not My_Range Is Nothing Then My_Range.Delete Shift:=xlUp
    End With

    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 

kakara

Altın Üye
Katılım
5 Mart 2014
Mesajlar
252
Excel Vers. ve Dili
excel 2016 plus
Altın Üyelik Bitiş Tarihi
19-12-2025
@Korhan Ayhan ustadım verdıgınız kod kusursuz calısıyor ve cok hızlı ılgınız ıcın tesekkur ederım. musaıtlıgınız varsa dıger sorum ıcın verdıgınız lınk ıle denemeler yapıyorum ama sureklı hata alıyorum bır goz atabılırsenız sevınırım.
 
Üst