Tüm sayfaları bazı şartlara göre yazdırma

[mahmutozdemir]

Slm,
Yazdır butonuna basınca anasayfa,veriler,bireysel,öğrenci bilgileri ve grup sayfaları dışındaki bütün sayfaların eğer h7 hücresinde veri varsa yazdırsın h7 hücresinde veri yoksa yazdırmasın istiyorum. Teşekürler.

 

[İhsan Tank]

Merhaba
Başka sayfalar eklenecek mi_?
Eklenecek ise baştaki 5 sayfanın yeri sabit mi_? Değişiklik yapacak mısınız_?
Eklenmeyecek ise problem yok

 

[mahmutozdemir]

eklenecek 100-150 sayfa olacak 5 sabit olmayabilir.

 

[İhsan Tank]

eklenecek 100-150 sayfa olacak 5 sabit olmayabilir.

Şunu demek istedim
Mesela
Anasayfa'yı yerinden alıp Kayıttan sonraya götürecek misin. Yoksa Kitaptaki ilk 5 hep bunlar mı olacak_?
Anasayfa - Veriler - Bireysel - Öğrenci Bilgileri - Grup
bunlar aralarında değişebilir tabi.
Yoksa ona göre çözüm üreteceğiz.

 

[mahmutozdemir]

olur tabiki sabit kalsın

 

[İhsan Tank]

olur tabiki sabit kalsın

Sabit olmasına gerek yok
Kodu boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sayfa_yazdır_61()
Dim ts, kaplan As Date, trabzonspor
trabzonspor = MsgBox("Sayfaları Yazdırıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
kaplan = Time
For ts = 1 To Sheets.Count
If Sheets(ts).Name <> "ANASAYFA" And _
Sheets(ts).Name <> "VERİLER" And Sheets(ts). _
Name <> "BİREYSEL" And Sheets(ts).Name <> _
"ÖĞRENCİ BİLGİLERİ" And Sheets(ts).Name <> _
"GRUP" Then
If Sheets(ts).Range("H7") <> "" Then
Sheets(ts).PrintOut
End If
End If
Next
Application.ScreenUpdating = True
MsgBox Format(kaplan - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlem Tamamlandı", , "Bitiş"
End Sub

 

[mahmutozdemir]

Tşekkürler İhsan Bey ellerinize sağlık...

 

[İhsan Tank]

Teşekkürler İhsan Bey ellerinize sağlık...

Rica ederim
:keyif: