Makro ile Hücre toplama

[LEOMAN57]

Merhabalar ,
A ve B hücrelerindeki sayıları c hücresine yanı karşılarına toplasın istiyorum mümkünse tabii.Dünden beri uğraşıyorum bir türlü beceremedim.Yardımlarınız için şimdiden çok tşk.

 

[Orion1]

Sub toplama()
Range("C:C").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row
    Cells(i, "C").Value = WorksheetFunction.Sum(Range("A" & i & ":B" & i))
Next
MsgBox "Toplama işlemi bitti"
End Sub

 

[LEOMAN57]

Sn.Evren Gizlen Çok Tşk.Ederim Excel i daha yeni yeni öğrenmeye başladım doğrusu epey uğraştım ama yapamadım.Allah Razı olsun.

 

[Orion1]

Sn.Evren Gizlen Çok Tşk.Ederim Excel i daha yeni yeni öğrenmeye başladım doğrusu epey uğraştım ama yapamadım.Allah Razı olsun.

Rica ederim.
iyi çalışmalar.

 

[LEOMAN57]

Sn.Evren Bey tekrar rahatsız ediyorum sizi.yazmış olduğunuz kodları ekteki rapora göre değişiklik yapmak istedim ama olmadı.Yani veriler N2 ve O2 den başlıyor ve M2 aşağısında toplamayı yaptırmak istedim ama olmadı.Yardımcı olursanız çok sevinirim.

 

[LEOMAN57]

Evren Bey Mrb,
Sizi tekrar uğraştırmama gerek kalmadı.Değişiklik yaparak çalıştırmayı başarabildim nihayet.Tekrar Tşk.

 

[saitbeyoglu]

Arkadaşlar kolay gelsin. Bi sorum var bu başlık altında sormak istiyorum.

A sütununa girdiğim her değeri B sütununda toplamak istiyorum.
Örneğin
A1' e 5 girdim B1' in değeri 5 olacak
A1' e tekrar 10 girdim B1' in yeni değeri 15 olacak
A1' e tekrar 30 girdim B1' eski değeri olan 15 ile A1 deki değeri toplayacak yeni değeri 45 olacak
.
.

Arkadaşlar bu işlem mümkün müdür.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer BARAN]

...........
A sütununa girdiğim her değeri B sütununda toplamak istiyorum.

Alt taraftan sayfa adına fareyla sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin,
açılan ekranda sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Cells(1, 2) = Cells(1, 2) + Target
End Sub

 

[saitbeyoglu]

işimi fazlasıyla görecek.çok teşekkür ederim sayın ömer baran

 

[Ömer BARAN]

işimi fazlasıyla görecek.çok teşekkür ederim sayın ömer baran

Estağfurullah, iyi günler dilerim.