Soru DEĞİŞKEN ÇARPMA VE TOPLAMA İŞLEMİ

[zulfuernek]

A1;A5 hücresinde sabit değerler var
B1;B5 hücresinde ve C1;C5 hücresinde değişken değerler mevcut,

B sütununa yazdığım değeri 100 ile çarpıp
c sütununa yazdığım değeri 1 ile çarpıp
D sütununa toplamı alacak

"D1=(B1*100)+(C1*1)" şeklinde

b v c sütunundaki değerler sürekli değişken olduğu için hücrede değiştikçe sonucu her defasında otomotik olarak yenilemeli bunu makro kod ile nasıl yapabiliriz.

 

[dost]

Merhaba,

İşlem yapmak istediğiniz sayfanın kod kısmına;

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
    If IsNumeric(Target.Value) And IsNumeric(Target.Offset(, 1)) Then
        Target.Offset(, 2) = (Target.Value * 100) + Target.Offset(, 1)
    Else
        Target.Offset(, 2) = 0
    End If
End If

If Target.Column = 3 Then
    If IsNumeric(Target.Value) And IsNumeric(Target.Offset(, -1)) Then
        Target.Offset(, 1) = (Target.Offset(, -1) * 100) + Target.Value
    Else
        Target.Offset(, 1) = 0
    End If
End If

End Sub