koşullu yazdırma alanı seçimi

[orcunerkek54]

tüm arkadaşlara iyi günler.sayfa3teki a1 hücresi eğer 5ten küçükse a2:f25 aralığını eğer a1 5ten büyükse h2:m25 aralığını yazdırma alanı olarak belirlesin ve 1 kopya çıktı alsın... bu konuda yardımcı olursanız sevinirim.....teşekkürler
eksik yazışım özür dilerim 5ten büyükse her iki yerinde çıktısını alsın teşekkürler

 

[AS3434]

Aşağıdaki kodlaroı bir butona bağlayın.

5 olduğu zaman ne olacak?. Bu haliyle 5 den küçük olursa a2:f25 alnını yazdırır. 5 ve büyük olursa her iki alanıda.
5 ve k&#252;&#231;&#252;k olunca a2:f25 yazd&#305;rs&#305;n isterseniz k&#305;rm&#305;z&#305; yeri <= yap&#305;n.

Sub Makro1()
If Sheets("sayfa3").[a1] [COLOR=red]< [/COLOR]5 Then
Sheets("sayfa3").[a2:f25].PrintOut
Else
Sheets("sayfa3").[a2:f25].PrintOut
Sheets("sayfa3").[h2:m25].PrintOut
End If
End Sub

 

[orcunerkek54]

yardımınız için size çok teşekkür ederim kodlar istediğim gibi çalıştı iyi gümlşer iyi çalışmalar.....