Özel Sayfaları Yazdırma

11 Mart 2019 11 Kasım 2021 663

Bu kod ile Özel Sayfaları Yazdırma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.

Sub printCustomSelection()
Dim startpage As Integer
Dim endpage As Integer
startpage = InputBox("Başlangıç Sayfa numarasını yazınız.", "Değer Girin")
If Not WorksheetFunction.IsNumber(startpage) Then MsgBox "Geçersiz sayfa numarası, tekrar deneyin!", "Hata"
    Exit Sub
End If
endpage = InputBox("Bitiş Sayfa numarasını yazınız.", "Değer Girin")
If Not WorksheetFunction.IsNumber(endpage) Then MsgBox "Geçersiz sayfa numarası, tekrar deneyin!", "Hata"
    Exit Sub
End If
Selection.PrintOut From:=startpage, To:=endpage, Copies:=1, Collate:=True
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Yazdırma seçeneklerindeki ayarı kullanmak yerine, özel sayfa aralığını yazdırmak için bu kodu kullanabilirsiniz. Diyelim ki 5'ten 10'a kadar sayfaları yazdırmak istiyorsunuz. Bu VBA kodunu çalıştırmanız ve başlangıç sayfası ve bitiş sayfasını girmeniz yeterli.

50 Farklı Hazır Makro (VBA) Kodu
Google Üzerinde Arama Yapma
UserForm Üzerinde Dört İşlem
Sağ Tık ile Açılan Menüye Ekleme Yapma
Makro ile Hızlı Doldurma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Seçili Satırların Sayısını Bulma
Sütunları Otomatik Sığdırma
Aktif Çalışma Sayfasını Koruma
Metnin İçinden TC Kimlik Numarasını Ayırma
Dosyanın Olduğu Dizin İsmini Bulma
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
UserForm Üzerine CommandButton Ekleme
Seçili Hücrelerden Boşlukları Kaldırma
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Gizli Sayfaların Bulunması ve Gösterilmesi
Seçimi Yazdırma
Grafik Türünü Değiştirme
TextBox Nesnelerinin Arasında Boşluk Bırakma
Formu Kapatma Makro Kodu
Seçili Aralığı PDF Olarak Kaydetme
Çalışma Kitabının Yedeğini Oluşturma
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Program Başlangıcı Kodları
ComboBox Nesneleri ile Toplama Yapma
Son Satır Numarasını Bulma
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Tek Satırı Kes Kopyala ve Yapıştır
Bir Aralıktaki Maksimum Değeri Renklendirme
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Aktif Hücreye Günün Tarihini Yazma
Formüllü Hücreleri Renklendir
Excel Sayfalarında Çarpım Tablosu Oluşturma
Excel Makroları ile Klasör Arama
Yazı Efekti Verme Kodu
2. Derece Denklemin Grafiğini Çizmek
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
X Sayı Atlayarak Satır Gizleme
Excel Satır Seçme Kodu
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Satır Yüksekliğini Ayarla
TextBox Nesnesine Harf Girilmesini Engelleme
Toplu Sütun Silme
Makrolar ile Klasör Kopyalama
Gizlenmiş Makro Örnekleri
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Sürücü Adı Kontrolü Yapma
Derece Simgesi Ekleme
Excel Dosya Arama Yapma Makrosu
Seçili Her Satırdan Sonra Bir Satır Ekleme
ListBox Üzerindeki Verilere Çoklu Seçim Yapma

Daha önce yorum yapılmamış!

YARARLI KISAYOLLAR
Baskı Önizleme Ctrl F2
Binlik Ondalık Ayırıcı Ekleme Ctrl Shift 1
Kes / Alternatif Shift Delete
Makro Penceresini Açma Alt F8
Otomatik Toplama Ctrl M
Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...