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)
On Error Resume Next
If Intersect(ActiveCell, [B15:B40]) Is Nothing Then Exit Sub
If Target = "" Then Target = 0
End Sub