yazdır hücreye bağlı

[polis-53]

Merhaba arkadaşlar düşey ara ile bir tablom var A1 hücresine 1586 yazdığımda 1586 ya ait bilgiler geliyor 1586 yazıp enter e bastığımda o sayfayı yazsın istiyorum butonlarla yazdırıyorum da bu şekilde beceremedim araştırdım bulamadım bir yardımcı olursanız çok sevineceğim kalın sağlıcakla

 

[YUSUF44]

örnek dosya eklerseniz daha kolay çözüm bulunur.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapııştırdığınızda A1 hücresinde değişiklik olduğunda sayfayı yazdırır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
ActiveSheet.PrintOut
End Sub

 

[polis-53]

teşekkürler Yusuf bey
iyi çalışmalar