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:B]) Is Nothing Then Exit Sub
On Error Resume Next
Range("C" & Target.Row).Value = WorksheetFunction.Sum(Range("A" & Target.Row & ":B" & Target.Row))
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To [a65536].End(3).Row
Range("c" & i) = Range("a" & i) + Range("b" & i)
If Range("c" & i) = 0 Then Range("c" & i) = ""
Next
End Sub