excel yazdırırken boş satırların yazdırılmaması

[malee26]

merhabalar. forumda yeniyim.
ekli dosyada
sayfa1, sayfa2 ve sayfa3 formüller ile birbirine bağlı. sayfa 3 yazdırma sayfası. sayfa3 te "E" sütununda ilgili formül mevcut.
=EĞER(B2="";"";B2+C2+D2)

yapmak istediğim şey ekli örnekte de olduğu gibi sayfa3 ü yazdırmak istediğimde E sütunundaki formül sonucu oluşan BOŞ hücrelerin olduğu SATIRLARI yokmuş gibi yaparak DOLU hücrelerin olduğu SATIRLARI sanki sayfa4 teki gibiymiş gibi yazdırabilmek. mümkün müdür acaba?

makrolu yada makrosuz fark etmez.

şimdiden teşekkür ederim

 

[AdemCan]

Merhaba örnek kod.

Sub test()
Dim s As Worksheet, son As Long
Cells.EntireRow.Hidden = False
Set s = Sayfa3
son = s.Cells(Rows.Count, 2).End(3).Row
    For i = son To 2 Step -1
        If Cells(i, "E") = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
s.PrintOut
End Sub

 

[malee26]

AdemCan

Merhaba örnek kod.

Sub test()
Dim s As Worksheet, son As Long
Cells.EntireRow.Hidden = False
Set s = Sayfa3
son = s.Cells(Rows.Count, 2).End(3).Row
    For i = son To 2 Step -1
        If Cells(i, "E") = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
s.PrintOut
End Sub

teşekkür ederim Adem bey, ama acemi olduğum için çalıştıramadım. dosyanın gerçek halini ekliyorum.

 

[malee26]

Ekli dosyada 1,2,3,11,22,33 formüllerle bağlıdır.

istediğim şey 11, 22, 33 sayfalarında L sütununda Toplam Tutar başlığı altında satırlarda rakam çıkmamış ise boş ise yazdırma da o satırın olmaması

 

[AdemCan]

Merhaba, sayfa koruma şifreniz nedir?

 

[AdemCan]

Bu kodları resimde işaretli olan BuÇalışmaKitabı bölümüne ekleyin ve tırnak içerisindeki "123" değerini sayfa koruma şifreniz ile değiştirin.
11, 22 ve 33 isimli sayfaları açtığınız zaman L sütunu boş olan satırlar gizlenir. Diğer sayfalardan ekleme yapıp yeniden bu sayfalardan birini açarsanız, eklenen kayıt görünür.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Dim s As Worksheet, son As Long
Set s = ActiveSheet
With s
    If .Name = "11" Or .Name = "22" Or .Name = "33" Then
        .Unprotect "123"
        .Cells.EntireRow.Hidden = False
        son = .Cells(Rows.Count, 2).End(3).Row
            For i = son To 11 Step -1
                If .Cells(i, "L") = "" Then
                    .Rows(i).EntireRow.Hidden = True
                End If
            Next i
        .Protect "123"
    End If
End With
Application.ScreenUpdating = True
End Sub

 

[malee26]

Bu kodları resimde işaretli olan BuÇalışmaKitabı bölümüne ekleyin ve tırnak içerisindeki "123" değerini sayfa koruma şifreniz ile değiştirin.
11, 22 ve 33 isimli sayfaları açtığınız zaman L sütunu boş olan satırlar gizlenir. Diğer sayfalardan ekleme yapıp yeniden bu sayfalardan birini açarsanız, eklenen kayıt görünür.
Ekli dosyayı görüntüle 246174

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Dim s As Worksheet, son As Long
Set s = ActiveSheet
With s
    If .Name = "11" Or .Name = "22" Or .Name = "33" Then
        .Unprotect "123"
        .Cells.EntireRow.Hidden = False
        son = .Cells(Rows.Count, 2).End(3).Row
            For i = son To 11 Step -1
                If .Cells(i, "L") = "" Then
                    .Rows(i).EntireRow.Hidden = True
                End If
            Next i
        .Protect "123"
    End If
End With
Application.ScreenUpdating = True
End Sub

muhteşem olmuş ellerinize sağlık. tırnak içindekileri dediğiniz gibi yaptım ve muhteşem oldu benim için. teşekkür ederim.

 

[AdemCan]

Rica ederim.