sayfadaki bir hücrenin değeri 1.den büyükse yazdıran bir makro

[fikirsiz]

sayfadaki s13 hücresinin değeri 1.den büyükse sayfayı yazdıran bir makro lazım. ilginizi bekliyorum

 

[Recep İpek]

Sayfadaki S13 hücresi 1'den büyük olunca otomatik mi yazdırılacak?Yoksa bir buton yardımıyla mı yazdıracaksınız?

 

[fikirsiz]

bir düğme yardımıyla olabilir ya da makroyu çalıştıracak bir kısayol tuşu yardımıyla da olabilir...
ayrıca birden fazla sayfa yazdırmakta kullanacağım bu makroyu. yani herhangi bir sayfa için bir örnek bulursam diğer sayfalar için kendim düzenleyebilirim diye düşünüyorum

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1].Value > 1 Then
ActiveSheet.PrintOut
End If
End Sub

 

[Recep İpek]

Aşağıdaki kodları bir butona atayabilirsiniz.

Sub Yazdır()
On Error Resume Next
If [S13] > 1 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[fikirsiz]

teşekkürler... problemi çözdüm