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, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Or IsNumeric(Target.Offset(-1, 0)) = False Then Exit Sub
Application.EnableEvents = False
With Target
.Value = .Value + Target.Offset(-1, 0)
Application.EnableEvents = True
End With
End Sub