Excel'de boş satırların yazdırılmasını nasıl engellerim?
Excel çalışma sayfanızda boş satırlar varsa, bunlar genellikle verilerinizin geri kalanıyla birlikte yazdırılır ve bu da hem kağıt hem de alan israfına yol açar. Bunu önlemek için yazdırmadan önce boş satırları otomatik olarak gizleyen bir VBA kodu kullanabilirsiniz. Bu kılavuz, yalnızca veri içeren satırların yazdırılmasını sağlamak üzere bu kodun nasıl ayarlanacağını ve kullanılacağını adım adım gösterecek; böylece daha temiz ve verimli bir çıktı elde edersiniz.
VBA koduyla bir çalışma sayfası yazdırılırken Boş satırlar hariç tutun
VBA koduyla bir çalışma sayfası yazdırılırken Boş satırlar hariç tutun
Aşağıdaki VBA koduyla çalışma sayfasını Boş satırlar olmadan yazdırabilirsiniz; lütfen şu adımları izleyin:
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Yazdırırken Boş satırlar durdurma:
Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xHideRg As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
If xHideRg Is Nothing Then
Set xHideRg = xRg.Rows(I)
Else
Set xHideRg = Union(xHideRg, xRg.Rows(I))
End If
End If
Next
xHideRg.EntireRow.Hidden = True
ActiveSheet.PrintOut Copies:=1
xHideRg.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın. Yazdırmak istediğiniz Veri Aralığı’nı seçmenizi isteyen bir uyarı kutusu görünecektir. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; böylece seçtiğiniz Aralık, boş satırlar olmadan anında yazdırılacaktır.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar