İki sütunu toplama

[sattar]

Merhaba arkadaşlar
Veri sayfasındaki '' G '' sütunundaki miktarı '' I ''sütununa makro ile toplamasını istiyorum nasıl yapabilirim acaba

 

[sattar]

İlgilenen arkadaşlara şimdiden teşekkür ederim

 

[hamitcan]

Sorunuz net değil, bir örnek ile açıklayın.

 

[sattar]

İyi günler Hamitcan bey,
Ekteki dosyada Veri sayfasındaki G sütunundaki miktarı I sütununun üzerine toplayarak eklemesini istiyorum

 

[sattar]

Şöyle daha açıklayıcı olacak sanırım.
Ekteki dosyada Veri sayfasındaki G hücresindeki miktarı I hücresinin üzerine toplayarak eklemesini istiyorum.
Bunu tüm G ve I sütunları için geçerli olmasını istiyorum

 

[sattar]

G sütununda 55,00 yazıyor. I sütununda ise 222,10 yazıyor.
G sütunundaki 55,00 i I sütunundaki 222,10 un üzerine ekleyip toplamını I sütununa yazmasını istiyorum. Yani I sütununa G ve I sütununun toplamı olan 277,10 yazmasını istiyorum.
İkisinin toplamını I sütununa yazmasını istiyorum

 

[hamitcan]

Kümüle Bakiye oluşturmak istiyorsunuz anladığım kadarıyla... Eğer I sütununa bir tutar girişi yapacaksanız, başka bir sütunda bakiye oluşturmanız daha doğru olacaktır.

 

[sattar]

Hamitcan bey, I sütununda her zaman miktar yazılı olacak ben G sütununa istediğim miktarı girince I sütunundaki miktarın üzerine eklesin istiyorum

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 Then Exit Sub
    If Target.Column <> 7 Then Exit Sub
    Cells(Target.Row, "i") = Cells(Target.Row - 1, "i") + Cells(Target.Row, "g")
End Sub

 

[Korhan Ayhan]

Alternatif;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("G1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    With Target
        .Offset(, 2) = .Offset(, 2) + Trim(Replace(Target.Value, "TL", ""))
    End With
    Application.EnableEvents = True
End Sub

 

[sattar]

Hamit bey, Ekledim ama bir değişiklik olmadı

 

[hamitcan]

Veri sayfası kod kısmına eklemelisiniz.

 

[sattar]

aynen oraya ekledim

 

[sattar]

Korhan bey
bu hatayı veriyor
.Offset(, 2) = .Offset(, 2) + Target.Value

 

[hamitcan]

Dosyayı inceler misiniz ?

 

[sattar]

Kopyala yapıştır yaparak yapıyorum işlemi. Sadece G sütununa elle giriş yapıyorum. Ondan kaynaklı olabilir mi ?

 

[hamitcan]

G sütununa bir şey girdiğinizde toplam alır.

 

[AdemCan]

Merhaba, alternatif olarak dener misiniz?

Public dur
Private Sub Worksheet_Change(ByVal Target As Range)
If dur = 1 Then Exit Sub
If Target.Column = 7 Then
    If Target.Offset(0, 2).Value <> "" And IsNumeric(Target.Offset(0, 2).Value) Then
        dur = 1
        Target.Offset(0, 2).Value = Target.Value + Target.Offset(0, 2).Value
    End If
End If
dur = 0
End Sub

 

[sattar]

Hamit bey, Benim kopyala yapıştır yaptığımda G sütununa miktar girince eklemiyor ama alt boş bölüme girince ekliyor. Benim kopyala yapıştır yaptığımda TL yazıyor ondan kaynaklı olabilir mi acaba ?

 

[sattar]

Sayın Faye
Sizin koduda denedim bir değişiklik yok malesef