işaretli sayfaları yazdır makrosu

[Emir Hüseyin Çoban]

sizlerden şöyle bir isteğim olacak arkadaşlar,
örnek içersinde de gerekli açıklama var,

excel sayfa1 de sayfa2, sayfa3 ve sayfa4 ü yazdırmak istiyorum
ancak bazen hepsini bazende sadece bir tanesi
bunun için yazdıracağım sayfaları sayfa1 de seçmem gerekiyor
daha sonra yazdır butonunu tıklayıp yazıcıya gönderebilmeliyim
herkeze teşekkürler

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub YuvarlatılmışDikdörtgen_Tıklat()
For i = 1 To Sheets("menü").Cells(65536, 2).End(3).Row
If Cells(i, 3).Text = "*" Then
Sheets(Cells(i, 2).Text).PrintOut
End If
Next
End Sub

 

[Emir Hüseyin Çoban]

tabloya uyguladım ancak yazdırma

 

[security]

tabloya uyguladım ancak yazdırmadı

Ekli Dosyayı Deneyiniz sorunsuz Yazdırma İşlemi yapılıyor Sorun Olmaması Lazım...

 

[Emir Hüseyin Çoban]

teşekür ederim, çalışıyor
yanında yıldız işareti olanları yazdırıyor ancak tabloya yıldız koymak yerine tik işareti ekledim makroyu tiklere göre uyarlamamız mümkün mü

 

[Emir Hüseyin Çoban]

merhaba

bu işinizi görür mü?

Sub YuvarlatılmışDikdörtgen_Tıklat()
For i = 1 To Sheets("menü").Cells(65536, 2).End(3).Row
If Cells(i, 3).Text = "*" Then
Sheets(Cells(i, 2).Text).PrintOut
End If
Next
End Sub

teşekkür ederim arkadaşım, ben tikleyerek yazdırmaya çalıştığım için çalıştıramamışım

 

[Emir Hüseyin Çoban]

sorunu çözdüm teşekkürler arklar