Koşula bağlı sayfa yazdırma

[solomonnsams]

Günaydın,

Excel çalışma kitabında farklı firmalara ait onlarca sayfa var. Sayfaların tamamında H19 hücresinde tutar bilgisi var. Yapmak istediğim şey H19 hücresinde 0 dan farklı bir değer varsa o sayfanın çıktısını almak. Böyle bir şey yapmak mümkün müdür?

 

[Mdemir63]

Selamlar

Formumuza hoş geldiniz
Sayfalarda H19 hücresi boş değilse o sayfayı yazdırır.

aşağıdaki kodları bir modül içine kopyalayın çalıştırın

Sub yazdir()
Dim syf As Worksheet
      For Each syf In Worksheets
            If syf.Range("H19").Value <> "" Then
                  syf.Activate
                  ActiveSheet.PrintOut
            End If
      Next syf
End Sub

 

[solomonnsams]

Hoş buldum.

Cevabınız için teşekkürler. Bazı sayfalarda H19 da tutar 0. Boş değilse derken 0 olanları da yazdıracak mı yani?

 

[Mdemir63]

Tabi ki 0 varsa yazdırır

onun için kodlardaki aşağıdaki kod yerine

If syf.Range("H19").Value <> "" Then

bu kodu yazın

If syf.Range("H19").Value > 0 Then

 

[solomonnsams]

Çok teşekkür ederim.

 

[Mdemir63]

Rica ederim.
İyi çalışmalar