Excel'de uzun bir sütunu tek sayfada nasıl yazdırabilirim?
Diyelim ki bir sütunda 200 satırdan oluşan uzun bir veri listeniz var ve bunu yazdırmak istiyorsunuz. Ancak yazdırıldığında yaklaşık 5 sayfa kâğıt harcanıyor; yalnızca sol tarafta dar bir sütun, sağ taraftaysa bolca boşluk kalıyor. Word’de sütun oluşturmak mümkün olsa da Excel’de böyle bir özellik bulunmuyor. Kâğıt tasarrufu yapmak için bu uzun listeyi tek bir sayfada nasıl yazdırabilirsiniz?
Formül kullanarak uzun sütunu tek sayfada yazdırma
VBA kodu kullanarak uzun sütunu tek sayfada yazdırma
Kutools for Excel ile uzun sütunu tek sayfada yazdırma
Formül kullanarak uzun sütunu tek sayfada yazdırma
Bu sorunu çözmek için size uzun bir formül sunabilirim. Lütfen aşağıdaki gibi ilerleyin:
1. Geçerli çalışma kitabınızda yeni bir çalışma sayfasının A1 hücresine şu formülü girin: =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0))
- Sheet1, sütuna dönüştürmek istediğiniz uzun listeyi içeren çalışma sayfasıdır.
- 45, verileri bir sütunda listeleyeceğiniz satır sayısıdır.
- Hepsi değişkendir ve ihtiyaçlarınıza göre değiştirebilirsiniz.
2. Ardından A1 hücresini seçin, dolgu tutamacını aşağı doğru 45. satıra kadar sürükleyin ve ardından veriler tamamen görünene kadar sağa doğru sürüklemeye devam edin. Böylece uzun sütun, bir Yeni çalışma sayfasıiçinde tek sayfaya sığacak şekilde birkaç sütuna bölünmüş olur. Ekran görüntüsüne göz atın:
VBA kodu kullanarak uzun sütunu tek sayfada yazdırma
Aşağıdaki VBA kodu da uzun bir veri listesini birkaç sütuna bölmenize yardımcı olabilir; böylece verileri yazdırabilir ve kâğıttan tasarruf sağlayabilirsiniz.
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
Sub SingleToMultiColumn()
Dim rng As Range
Dim iCols As Integer
Dim lRows As Long
Dim iCol As Integer
Dim lRow As Long
Dim lRowSource As Long
Dim x As Long
Dim wks As Worksheet
Set rng = Application.InputBox _
(prompt:="Select the range to convert", _
Type:=8)
iCols = InputBox("How many columns do you want?")
lRowSource = rng.Rows.Count
lRows = lRowSource / iCols
If lRows * iCols <> lRowSource Then lRows = lRows + 1
Set wks = Worksheets.Add
lRow = 1
x = 1
For iCol = 1 To iCols
Do While x <= lRows And lRow <= lRowSource
Cells(x, iCol) = rng.Cells(lRow, 1)
x = x + 1
lRow = lRow + 1
Loop
x = 1
Next
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve açılan iletişim kutusunda bölmek istediğiniz liste verisini seçin. Ekran görüntüsüne bakın:
4.Tamam seçeneğine tıklayın ve bölmek istediğiniz sütun sayısını girin. Ekran görüntüsüne bakın:
5. Ardından Tamam seçeneğine tıklayın; uzun sütun artık beş sütuna bölünmüş ve Yeni çalışma sayfasında görünmektedir. Ekran görüntülerine bakın:
 |  |  |
Kutools for Excel ile uzun sütunu tek sayfada yazdırma
Hem uzun formüller hem de VBA kodları sizin için zorlayıcı olabilir. Bu sorunu çözmek için size daha kolay ve pratik bir yöntem tanıtayım.Kutools for Excel’nin Sütunlara Bölözelliği, uzun sütunu birkaç sütuna hızlıca bölerek yazdırmanızı kolaylaştırır.
Kutools for Excel, 30 gün boyunca sınırsız şekilde ücretsiz deneyebileceğiniz 300'den fazla kullanışlı Excel aracı sunar.Şimdi Edinin.
Kutools for Excel yüklendiğinde aşağıdaki adımları izleyebilirsiniz:
1. KUTOOLS PLUS > Sütunlara Böl seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Açılan iletişim kutusunda:
- Aralığın başlığını seçmek için ilk
düğmesine, bölmek istediğiniz sütunu seçmek içinse ikinci düğmesine tıklayın.
- Ardından, sayfa başına yerleştirmek istediğiniz satır sayısını Sayfa Başına Satır Sayısı bölümünden belirtin ve bir sayfada istediğiniz sütun sayısını Sayfa Başına Sütun Sayısı alanına girin. Ekran görüntüsüne bakın:
düğmesine, bölmek istediğiniz sütunu seçmek içinse ikinci 
3. Ardından Tamam seçeneğine tıklayın; uzun liste verisi artık bir sayfada beş sütuna bölünmüş olacak. Ekran görüntülerine bakın:
 | |  |
- 1. Başlık, her sütundan önce eklenecektir.
- 2. Mevcut Çalışma Sayfasıyla Bağlantı Oluştur seçeneğini işaretlerseniz, yeni çalışma sayfasındaki veriler Kaynak Veri ile bağlantılı hale gelir.
- Bu özellik hakkında daha fazla bilgi almak istiyorsanız, Birden Fazla Sütunu Yazdır bağlantısına tıklayın.
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