DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
'üst satır kodların sadece a1 hücresinde değişiklik _
yapıldığında çalışmasını sağlar
ActiveSheet.PrintOut
'üst satır eğer değişen hücre a1 ise aktif sayfayı _
yazıcıya yollar
End Sub