Boş Olan Hücreler Yazılmasın

[vitalexx]

Merhaba. Yaklaşık 150 satırdan oluşan bir tablom var. Bunu, "sadece gerekli alanlar doldurulacak şekilde" kilitleyip şubelerime gönderiyorum. Kullanıcı ilgili yerleri doldurup çıktı alıyor ve bana fax ediyor. Ama bazı aylarda 10 bazı aylarda 50 satır doluyor, diğer satırlar boş kalıyor. Kullanıcılarda silme yetkisi olmadığı için çıktı esnasında boş satırlarda yazdırılıyor. Benim istediğim şablonu bozmadan kullanıcı "yazdır" butununa bastığında sadece dolu hücreler ve alttaki "toplam" satırının çıkması. Bunu sağlayabilirmiyim acaba?

 

[Necdet]

Belki bir çözüm boş satırlar gizlenir ve o şekilde liste alınabilir.

Tabi örnek dosya ekleseniz insanlar somut düşünebilir, çözümde daha rahat olabilir.

 

[vitalexx]

Dosyam ekte. 150 satırlık bu tablomun örneğin 30 satırı dolduruluyor. Yazdır denilince sadece 30 satırı ve alttada toplam satırı yazdırılabilir mi?

 

[Necdet]

Merhaba,

Bir deneyin bakalım, işe yarayacak mı?

Sub Yazdır()
Application.ScreenUpdating = False
For i = 2 To [H65536].End(3).Row
      If Cells(i, "H") = "" Then Rows(i).Hidden = True
Next i
ActiveSheet.PrintOut Copies:=1, Collate:=True
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

 

[vitalexx]

Saygılar Hocam, teşekkürler.

 

[vitalexx]

Hocam Tablonun başına birkaç satır ekledim. Yenisini gönderiyorum. kodu güncellermisiniz? Yazdır Düğmesini İlk İki satıra (1-2) Koyabilirsek görsel açıdan da mükemmel olacak.

 

[SeSi]

Merhaba,

Bunu ayrı bir butonla değil de, Excel menüsündeki yazdır butonuna tıklayınca yapabilir miyiz?

Teşekkürler.

 

[Necdet]

Merhaba,

Buyrunuz. H kolonunun dolu olmasına göre satırı gizlediğini unutmayınız

Sub Yazdır()
    Application.ScreenUpdating = False
    For i = 10 To [H65536].End(3).Row
        If Cells(i, "H") = "" Then Rows(i).Hidden = True
    Next i
    ActiveSheet.PrintOut Copies:=1, Collate:=True
    Cells.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

 

[vitalexx]

Sayfayı düzenledikten sonra kilitlediğim için makro çalışmıyor. Sayfayı koruduğum zaman çalıştıramazmıyım bu makroyu?

 

[Necdet]

Sayfa koruması varsa, bunu makronun içine koymak gerek.
Makro önce korumayı kaldıracak, işlemi yapacak, tekrar koruma koyacak.

 

[vitalexx]

Oldu olacak onuda öğretin hocam. Koruma esnasında malum şifrede gerekecek. Mesela 9. Son yazdığımız kodun içine 9 olan şifreyi açıp işlemi yapacak ve tekrar 9 ile kilitleyecek bir kod rica etsem? Sizi yorduğumun farkındayım. Özür dilerim.

 

[Necdet]

Rica ederim Sayın vitalexx, yormak ne demek?

Sub Yazdır()
On Error GoTo Son
Sheets("MUHTASAR EK").Unprotect "9"
Application.ScreenUpdating = False
For i = 10 To [H65536].End(3).Row
        If Cells(i, "H") = "" Then Rows(i).Hidden = True
Next i
'ActiveSheet.PrintOut Copies:=1, Collate:=True
[COLOR=red][B]ActiveSheet.PrintPreview
[/B][/COLOR]Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
Sheets("MUHTASAR EK").Protect "9"
Son:
End Sub

Yukarıda kırmızı olan satırı silip üsteki satırın tırnağını kaldırınız. Evde yazıcı ile uğraşmak istemediğim için baskı ön izleme ile denedim.