kod ile matematiksel işlem yapılması

[kemal turan]

Merhaba Üstadlar,
Forumda araştırdım fazla anlamadığım için başarılı olmadım.
A sutununa 15 nci satırdan itibaren bir değer girildiğinde
B sutunundaki değerle toplayıp
C sutununa sonucu yazacak.
Bu işlemi sayfanın kod penceresine kod yazılısa otomatik olarak yaptırabilirmiyiz.
Örnek B16 hücresinde 5 değeri olduğunu farzedelim.
A16 hücresine 5 değeri girildiğinde
C16 hücresi 25 olacak.

 

[Ömer]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [A15:A65500]) Is Nothing Then Exit Sub
    
    Cells(Target.Row, "C") = Target * Cells(Target.Row, "B")
 
End Sub

.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu işlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Target.Next.Next.Value = Target.Next + Target
    End If
End Sub

 

[kemal turan]

Korhan ve Ömer üstadlarımız,
Her iki değişik kod da çalışıyor.Çok
Teşekkür ederim.
Üstadlar benim için çok önemli olan dün VBA da sorduğum sorunun aynısı değil mi?
Yoksa farklı mı.Herhalde yine anlatamadım ..
Verdiğiniz bu kod yardımı ile Oradaki isteğimi yapabilirmiyim.?
Teşekkürler.