Üzerine Topla

[mhizlim]

A sütunundaki DOLU olan değerleri karşısında bulunan c sütununun üzerine nasıl toplatabilirim. Yani c hücrelerindeki rakamlar neyse a sütununa girilen değerler karşısındaki üzerine eklenecek. Makro ile birkaç bir düzeltme yaptım dosyayı değiştirdim fakat hepsi etkileniyor. örneğin (a1'i c1'e) (a2'yi c2'ye) gibi toplamasını istiyorum.

Sub topla()

For i = 1 To Cells(65536, "A").End(xlUp).Row
Cells(i, "C").Value = Cells(i, "C").Value + Cells(i, "A:a").Value
Range("a:a").ClearContents
Next
MsgBox "Toplama işlemi bitti"

End Sub

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub topla()

'Range("C:C").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row
    Cells(i, "C").Value = Cells(i, "C").Value + Cells(i, "A").Value
Next
MsgBox "Toplama işlemi bitti"

End Sub

Range("C:C").ClearContents

Bu satırı silmezseniz sonucu gözlemleyemezsiniz, hep A'daki değeri yazacaktır.

 

[mhizlim]

Bir sorun oldu

Üzerine ekliyor fakat a sütununa her girdiğim değeri c deki her sütunu etkiliyor. ben mesela a1 i c1' e - a2 ye girileni c2 ye gibi eklemesini istiyorum birlerini etkilemesin.

 

[uzmanamele]

Üzerine ekliyor fakat a sütununa her girdiğim değeri c deki her sütunu etkiliyor. ben mesela a1 i c1' e - a2 ye girileni c2 ye gibi eklemesini istiyorum birlerini etkilemesin.

Merhaba
İlk sorunuzla bunun arasında sistematik fark var.
Yazdığınız koda göre makro çalıştığında A sütunundaki her veriyi C sütunundakinin üzerine ekleyecektir.
Siz her satıra veri girildiğinde C sütunundaki verinin üzerine eklesin istiyorsunuz.

Soruyu da cevabı da düzeltelim bari.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("a1:a65536")) Is Nothing Then Exit Sub

    Cells(Target.Row, "C").Value = Cells(Target.Row, "C").Value + Target.Value

Application.EnableEvents = True
End Sub