vba ile toplama hatası

[frestylee]

vba ile toplama işleminde hata var yardım edebilirmisiniz

 

[hurkanpisirici]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("c1") = WorksheetFunction.Sum(Range("a1:b1500"))
End Sub

 

[frestylee]

hrknp ilgin için çok tşk ederim, ama ben sorunumu anlatamadım galiba,benim istediğim (a1 ve b1) e yazdıklarım c1 de toplasın alta indiğimde a2 ve b2 ise c2 de toplasın istiyorum.vakit ayırdıgın için tşk ederm

 

[Orion1]

Dosyanız ekte.

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

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodları sayfanın kod penceresine yazarak deneyiniz..

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

 

[frestylee]

çok tşk ederim arkadaslar.