Bİr Öncekiyle toplama

[ZeroDeqree]

arkadaslar satırın birinde bir deger var örneklerle anlatayım isterseniz


h2 j2 k2
15 25 = 40 olur degilmi


pekala ben sunu istiyorum;

h2 j2 k2 (15i siliyorum yerine 30 yazıyorum)
30 25 = 70 olmasını istiyorum yani 15i silmeyip aslında sonradan verilen 30 degerine eklenmesini istiyorum. bilmem ne kadar anlatabildim ama özü kendinden önce verilen degerle toplanmasını istiyorum nasıl yapabilirim bunu acaba ?

 

[Orion1]

Merhaba.
Aşağıdaki kodları çalışma sayfasının kod bölümüne yapıştıtrını.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Target.Address = "$H$2" Then
    Range("K2").Value = Range("K2").Value + Target.Value
End If
If Target.Address = "$J$2" Then
    Range("K2").Value = Range("K2").Value + Target.Value
End If
hata:
End Sub

 

[AS3434]

Sayın ZeroDeqree

Sayın Orion2 nin kodları işlemi otomatik yapar.

İşlemi buton yardımı ile yapmak isterseniz. Kodları bir butona bağlayın.

Sub hesapla()
[k2] = [k2] + [h2] + [j2]
End Sub

 

[ZeroDeqree]

hocam denedim ama olmadı kodları ekledim herhangi bir yere ama yemedi. galiba bir sorun var. yardım ederseniz cok sevinirim.

 

[AS3434]

Her iki kodun farklı sayfalara uygulanmış hali.

Alt+F11 ile vba sayfasını açarsanız, kodların nerede nasıl olduklarını görürsünüz.