İşaret konulanlar yazdırılmasın

[Yesilyurtlu]

Hayırlı Akşamlar;
Değerli Üstadlarım Excel Çalışma Sayfasında B sütununda alt alta yazılmış isimler var. Ve A sütununda herhangi bir isme karşılık gelen hücreye * işaretini koyduğımız zaman excel sayfasında görünecek ama yazıcıdan çıktı alacağımız zaman * işaretli satırda ki bilgiler yazdırılmış sayfa da çıkmayacak.

Böyle bir makro mümkün müdür? Yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Değişik yöntemle yapılabilir.

Aşağıdaki kodlar ThisWorkbook'un kod sayfasına kopyalayınız.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
Dim i As Long
For i = 2 To [B65536].End(3).Row
    If Cells(i, "A") = "*" Then Rows(i).Hidden = True
Next i
End Sub

Aşağıdaki kodlar da bir modülde olabilir.

Sub Goster()
Dim i As Long
    Range("B1:B" & [B65536].End(3).Row).EntireRow.Hidden = False
End Sub

 

[Korhan Ayhan]

Selamlar,

Makro kullanmadan da yapabilirsiniz. Filtreleme yaparak "*" içermeyen satırları yazdırabilirsiniz.

 

[Yesilyurtlu]

Korhan Ayhan ve Necdet Yeşertener Uzmanıma Teşekkür Ederim.

 

[Yesilyurtlu]

Necdet Abi ;
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
Dim i As Long
For i = 2 To [B65536].End(3).Row
If Cells(i, "A") = "*" Then Rows(i).Hidden = True
Next i
End Sub

Kodu çoklu yapabilir miyiz? Sayfa 1 , Sayfa2 Sayfa3 Sayfa 4 Sayfa 5 gibi

 

[Necdet]

Merhaba,

Aşağıdaki gibi kullanabilir yada ekleme yapabilirsiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa1" And _
ActiveSheet.Name <> "Sayfa2" And _
ActiveSheet.Name <> "Sayfa3" Then Exit Sub
Dim i As Long
For i = 2 To [B65536].End(3).Row
If Cells(i, "A") = "*" Then Rows(i).Hidden = True
Next i
End Sub

 

[Yesilyurtlu]

ÜSTAD Teşekkür Ettim. Allah Razı Olsun