[Çözüldü] Tek tıklamayla istenilen tüm sayfaları yazdırma

[voleclub]

Selam,
Yazdır butonuna basınca  tüm  ilk 6 harfi FATURA olan sayfaların sadece  E 8 hücresi dolu  olan ları yazdırmasını istiyorum.
Örneğin; yazdır butonuna basınca 22 tane fatura yazan sayfayıda yazdırmasını istiyorum. Ancak bilgiler ve ödeme isteği sayfasını  ve E8 hücresi boş olan Fatura (2)  sayfasını yazdırmasın. Şimdiden teşekkürler.



(Çözüm içeren dosya eklendiğinden, mevcut ek silinmiştir.)

[Bülent Öztürk]

Aleyküm selam Mahmut Bey,

Aşağıdaki kodu dener misiniz?

Kod: [Seç]

Dim excelce_sayfa As Worksheet
On Error Resume Next
For Each excelce_sayfa In ThisWorkbook.Worksheets
    If VBA.Left(excelce_sayfa.Name, 6) = "FATURA" And Worksheets(excelce_sayfa.Name).Range("E8") <> Empty Then
        Worksheets(excelce_sayfa.Name).PrintOut
    End If
Next excelce_sayfa
MsgBox "Sayfalar yazıcıya gönderilmiştir." & vbCrLf & "Almayı unutmayın! ;)", vbInformation, "İşlem Tamam"
End Sub

[voleclub]

Yardımınız için teşekkürler Bülent bey ama ben burdan kodu alamıyorum.Size zahmet olacak ama excel kitabına yazabilirmisiz.

[Bülent Öztürk]

Tabi ki eklerim.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

Bülent Bey denedim oldu. Çok teşekkür ederim.

[Bülent Öztürk]

Rica ederim Mahmut Bey.

Çalışmalarınızda başarılar.

[Black Lord]

Teşekkür bende kendime uyarlamadım elinize sağlık bülent bey