3 SATIRDAN FAZLA OLAN BOŞ SATIRLARI GİZLE VEYA SİL

[cocoa35]

Arkadaşlar merhaba; Hazırlamış olduğum bir programda rapor sayfasında benim istemediğim boş satırlar oluşuyor, copy paste macro'su ile rapor oluştuğu için tam olarak nerede boşluk olduğu tespit olmuyor. Bu neden ile sadece rapor sayfasında geçerli olacak otomatik olarak " 3 satırdan fazla olan boş satırların silinmesini" istiyorum. Ancak copy-paste macrosu çalıştırıldığında sayfa eski haline dönsün ve yeni kopyalamalar olduğunda yine " 3 satırdan fazla boş satırların" silinmesini istiyorum. Bu makroyu aradım hep tüm boş satırları silen makroları gördüm bunu yapabilirmiyiz acaba?

 

[Saban Sertkaya]

Merhabalar,
Anlattıklarınızdan kafamda tasarlayabildiğim kadarıyla, örneği inceleyiniz. Dilerim işinizi görür.

3_bosluk.xlsm dosyasını indir - download

3_bosluk.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[cocoa35]

Sn Şaban bey çok teşekkürler gayet iyi olmuş

 

[Saban Sertkaya]

İşinize yaramasına sevindim. Kolay gelsin.

 

[cocoa35]

Şaban bey merhaba , örnek dosyada kod gayet güzel çalışıyor, benim dosyada hata verdi! şimdi hata örnek dosyada sadece 1 sayfa olması ile ilgili olabilirmi ! ben bu işlemin sadece örneğin " PROSESHESAP" Sayfasında yapılmasını istiyorum. Bunu şöyle uyguladım, verdiğiniz kod'u bir modüle kopyaladım, sonra PROSESHESAP sayfasına bir buton koyup bu module atadım. ancak işlem hata verdi.

 

[cocoa35]

Şaban bey bir şey daha dikkatimi çekti, şöyleki; örnek dosyada A Kolonunu dikkate alıyor sadece halbuki benim programımda A ile V kolon arası dikkate alınmalı sanırım bu yüzden hata verdi zira A kolonunda boş olan hücrenin yanındaki diğer hücrerelerde formül var. Yani A ve V kolon arasında 3 ten fazla boş satır varsa silsin !

 

[cocoa35]

Ben ek'te boşlukları aldırmak istediğim sayfanın bulunduğu dosyayı gönderiyorum. Lütfen siz macroyu buna göre adapte edebilirmisiniz, isteğim A6 : V6 satırından başlayıp sonuna kadar 3 satırdan fazla boş olanları silinmesi. teşekkürler.

 

[Korhan Ayhan]

Verinizi yedekledikten sonra aşağıdaki kodu deneyiniz.

Option Explicit

Sub Ucten_Fazla_Bos_Satirlari_Sil()
    Dim X As Long, Alan As Range, WF As WorksheetFunction, Son As Long, Say As Long
    
    Set WF = WorksheetFunction
    
    Son = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    For X = 6 To Son
        If WF.CountBlank(Range("A" & X & ":U" & X)) = 21 Then
            Say = Say + 1
        Else
            Say = 0
        End If
        If Say > 3 Then
            If Alan Is Nothing Then
                Set Alan = Cells(X, 1).Resize(, 21)
            Else
                Set Alan = Union(Alan, Cells(X, 1).Resize(, 21))
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then
        Alan.Delete Shift:=xlUp
    End If
    
    Set WF = Nothing
    Set Alan = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Saban Sertkaya]

Merhabalar Sayın cocoa35,

Korhan Hocam sorunuzu cevaplamışlar.
Zaten, altın üye olmadığımdan eklediğiniz dosyayı da göremiyorum.

 

[cocoa35]

Şaban bey ilginiz için çok teşekkür ederim. Evet Korhan bey gayet güzel yapmış, yanlız korhan bey'den isteğim şu sayfadan ayrılırken yeniden eski haline gelmesini istiyorum. Zira program'da bazı seçenekler değiştiğinde program belirli satır aralıklarına copy/paste yöntemi ile kopyalama yapıyor. Dolayısı ile sayfadan ayrıldıktan sonra eski haline gelmesi gerekiyor. Bu konuda yardımınızı istiyorum.

 

[Korhan Ayhan]

Eski haline gelmesi gerekiyorsa silmek yerine gizlemek daha uygun olacaktır.

 

[cocoa35]

Evet haklısınız gizleme olsun onu deneyeyim

 

[Korhan Ayhan]

Deneyiniz.

 

[cocoa35]

Korhan bey çok teşekkürler gayet iyi olmuş, gizleme olunca sayfa düzeni bozulmuyor. Bir tek sıkıntı var PDF Rapor aldırdığımda bu boşluklar orada çıkıyor. Bunu önlemenin bir yolu varmı?

 

[Korhan Ayhan]

PDF kaydetmeden önce sayfayı boş bir kitaba taşıyıp ilk verdiğim kodla boş satırları silerek PDF olarak kayıt edebilirsiniz.