Yazdırılacak alanın belirlenmesi

[karsiyakali2]

Arkadaşlar merhaba,

Ekteki dosyada sayfa1’de A1 ile A100 satırları arasında bir hücrede 1 rakamı yazıldığında sayfa2’de B1 ile B100 arasındaki ilgili hücreye “ok” yazmasını istedim. Ancak sayfa2’den çıktı almak istediğimde ön izlemede görünmemesine rağmen formül olan tüm sayfaların çıktısını veriyor. Sadece bilgi olan hücrelerin ( yazdırılacak alanı ben seçmeden) çıktısını almam için ne gibi bir işlem uygulamalıyım.

Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sayfa2'nin kod sayfasında olmalı :

Private Sub Worksheet_Activate()
[B][COLOR=red]   ActiveSheet.Unprotect Password:="1"[/COLOR][/B]
    Cells.EntireRow.Hidden = False
[COLOR=red][B]   ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True[/B][/COLOR]
End Sub

ThisWorkbook'un Sayfasında Olmalı :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa2" Then Exit Sub
[COLOR=red][B]ActiveSheet.Unprotect Password:="1"[/B][/COLOR]
Application.ScreenUpdating = False
For i = 1 To [B65536].End(3).Row
    If Cells(i, "B") = "" Then Rows(i).Hidden = True 'EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
[COLOR=red][B]ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True[/B][/COLOR]
End Sub

Yazdırırken Boş olan satırlar gizlenir. Sayfa2 etkinleştiğinde gizlenen sayfalar gösterilir.

 

[karsiyakali2]

Ellerinize sağlık
Çok teşekkür ederim.

 

[karsiyakali2]

Necdet bey göndermiş olduğunuz kodu uyguladım. Tam istediğim gibi oldu. Ancak bugün fark ettim ki sayfaya koruma koyduğumda istediğim işlemi yapamadım. Bu sayfanın korumalı ve belirtilen işlemi yapması için neler yapmalıyım.
Tekrar teşekkürler.

 

[karsiyakali2]

Arkadaşlar bu konu ile ilgili yardımlarınızı bekliyorum.
Hepinize şimdiden teşekkürler , iyi günler.

 

[Necdet]

Merhaba Sayın karsiyakali,

Yukarıdaki verdiğim kodları düzelttim.

Sayfada bir değişiklik yapılacağı zaman sayfa korumasını kaldırmak ve işlem bittikten sonra tekrar sayfa koruması koymakla sorunuzun yanıtı verilmiş olur.

Password:="1" de tırnak içindeki rakam şifredir. Siz kendinize uyarlayınız. Türkçe karakter kullanmadan tabi.