Excel'de yalnızca veri içeren satır ve hücreleri nasıl yazdırabilirim?

Bu yöntem, Excel'de yalnızca veri içeren satırları hızlıca yazdırmak için size pratik bir VBA çözümü sunar. Lütfen aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için Alt+F11 tuşlarına aynı anda basın.

2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu yeni açılan Modül penceresine kopyalayıp yapıştırın.

VBA: Excel'de yalnızca veri içeren satırları yazdırma

Sub PrintSummary()
Dim xRg As Range, xRg1 As Range, xCell As Range
Dim xSht As Worksheet
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range to print:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can't select multiple selections", , "Kutools for Excel"
Exit Sub
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set xSht = Worksheets.Add(After:=Sheets(Sheets.Count))
xRg.Copy xSht.Range("A1")
Set xRg1 = xSht.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg1.Columns(1).Cells
If Application.WorksheetFunction.CountA(xCell.EntireRow) = 0 Then
xCell.EntireRow.Hidden = True
End If
Next
xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
xSht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. F5 tuşuna basın veya Çalıştır düğmesine tıklayarak bu VBA'yı çalıştırın.

4. Açılan Kutools for Excel iletişim kutusunda, boş satırları yoksayarak yalnızca veri içeren satırları yazdırmak istediğiniz aralığı belirtin ve Tamam düğmesine tıklayın.

Ardından Sınırlı aralık, içindeki tüm Boş satırlar yoksayılırak hemen yazdırılır.

Not: Bu VBA kodu, boş satırları yoksayarak birden fazla seçimi toplu olarak yazdırmayı desteklemez.

Bu yöntem, etkin çalışma sayfasındaki veya seçili aralıktaki tüm boş hücreleri silmek ve ardından Excel’de yalnızca veri içeren satırları yazdırmak için Kutools for Excel’in Boş Satırları Sil yardımcısını kullanmayı açıklar. Lütfen aşağıdaki adımları izleyin:

1. Yalnızca veri içeren satırları yazdırmak istediğiniz çalışma sayfasına gidin ve Kutools > Sil > Boş Satırları Sil > Aktif Çalışma Sayfası seçeneğine tıklayın.

Not: Bir sınırlı aralık içinde yalnızca veri içeren satırları yazdırmak için öncelikle bu aralığı lütfen seçin ve ardından Kutools > Sil > Boş Satırları Sil > Seçili Aralık seçeneğine tıklayın.

2. Bir Kutools for Excel iletişim kutusu açılır ve kaç adet boş satırın silindiğini gösterir. Kapatmak için Tamam düğmesine tıklayın.

Artık etkin çalışma sayfası/Aralık seç içindeki tüm Boş satırlar silinmiş olacaktır. Ekran görüntüsüne bakın:

3. Dosya(veya)Office Düğmesi) > Yazdır seçeneğine tıklayarak, etkin çalışma sayfasında veya belirtilen aralıkta yalnızca veri içeren satırları yazdırın.

Bazen Excel'de tüm boş hücreleri yoksayarak yalnızca veri içeren hücreleri yazdırmak isteyebilirsiniz. Bu yöntem, Excel'de belirli bir aralıkta yalnızca veri içeren hücreleri yazdırmak için Kutools for Excel’in Dolu Olmayan Hücreleri Seçin yardımcısını ve Birden Çok Seçimi Yazdır Sihirbazı özelliğini kullanır.

1. Yalnızca veri içeren hücreleri yazdırmak için, yazdırmak istediğiniz aralığı seçin ve Kutools > Seç > Dolu Olmayan Hücreleri Seçin seçeneğine tıklayın.

2. Bir Kutools for Excel iletişim kutusu açılır ve seçili hücrelerde kaç adet veri olduğunu gösterir. Kapatmak için Tamam düğmesine tıklayın.

3. Bu dolu hücreleri seçili tutun ve Enterprise > Yazdırma > Birden Çok Seçimi Yazdır Sihirbazı seçeneğine tıklayın. Ekran görüntüsüne bakın:

4. Açılan Birden Çok Seçimi Yazdır Sihirbazı iletişim kutusunda, tüm Dolu Olmayan Hücreleri Seçin seçimlerinin Yazdırılacak aralıklarlistesinde listelendiğini göreceksiniz; lütfen Bitirdüğmesine tıklayın.

5. Artık tüm Dolu Olmayan Hücreler, bağlantılı resimler olarak bir Yeni çalışma sayfasına kopyalanmış ve yapıştırılmıştır. Bu veriyi içeren hücreleri yazdırmak için Dosya(veya)Office düğmesi) > Yazdır seçeneğine tıklayın.

Excel'de her satırı/hücreyi ayrı bir sayfada yazdırma

Excel'de bir çalışma sayfasında yalnızca Baskı Alanı gösterme

Baskı Alanı, seçim ve tüm çalışma kitabı için Excel'de