Boş Satırları silmek.?

[ZİNDAN]

Merhaba;
Ekteki örnek dosyadaki listenin A sutunundaki hücreler boş ise, ait olduğu satırı bilgi olsun olmasın silsin istiyorum.

Böylece çıktı alırken en alttaki 504. satırdaki bilgilerin yukarı doğru çıkarak yazıcıdan çıktı alırken fazla sayfa israfının önlenmesini istiyorum.

Bu konuda bana yardımcı olacak arkadaşlara çok teşekkürler.



Kolay gelsin.

 

[Necdet]

Merhaba,

1. Satırı düzenlemeniz şartı ile aşağıdaki kodları kullanabilirsiniz.

Sub Macro1()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[ismailmuhcu]

Aşağıdaki kodları Projenizin "ÖNİZLEME" sayfasına yapıştırın...

Sayfaya girdiğinizde boş satıurlarınız gizlenecek;

Private Sub Worksheet_Activate()
Dim Hucreler As Range
For Each Hucreler In Range("A1:A1000")
Application.ScreenUpdating = False
If Hucreler.Value = "" Or Hucreler.Value = " " Then
Hucreler.EntireRow.Hidden = True
End If
Next Hucreler
End Sub

Sayfadan çıkarken Gizlenen satırlar geri alınacak;

Private Sub Worksheet_Deactivate()
Range("A1:A1000").EntireRow.Hidden = False
End Sub

 

[ZİNDAN]

Evet.
Birleştirilmiş hücreleri düzeltince, çalışıyor.

Diğer kodda harika.

Çok teşekkürler sayın Necdet Yeşertener ve İsmailmuhcu.Saygılar.