Yazıcıya gönderme

[magnesia]

Arkadaşlar selam.
Tezgah sicil kartları.xls dosyası içindeki yüzlerce sayfa var.
İsteğim şu :

Bir buton ekleyip, bu sayfalardan, Z10 hücresi dolu olanları yazdırsın.
Şimdiden teşekkürler.

 

[Muzaffer Ali]

Aleykümselam.
Aşağıdaki kodu kullanabilirsiniz.

Sub Yazdir()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        If syf.range("Z10").Value <> "" Then syf.PrintOut
    Next
End Sub

 

[magnesia]

Sayın Dalgalikur
Öncelikle ilginize ve emeğinize teşekkür ederim.
Kodu çalıştırdığımda "object doesn't this property or method" debug hatası veriyor ve
If syf("Z10").Value <> "" Then bölüm sarıya boyanıyor.

 

[Muzaffer Ali]

Kodu düzelttim yeniden deneyiniz.

 

[magnesia]

İşlem tamam.
Tam istediğim gibi.
İlginize, bilginize ve emeğinize sağlık.
Tanrı'm razı olsun sizden.