çarpma işlemi

[ermanusta]

Adet = C
KDV Oranı = F
KDV'siz = H
KDV'li = I
Toplam = J
stünunda olmak üzere

ürünün kdv'li yada Kdv'siz fiyatını girdiğimde girilmeyen fiyatı otomatik olarak giren bir makrom var

ancak buna bir de toplam stünuna adet ve KDV'li fiyatın çarpımını yazmak istiyorum
yardım edebilir misiniz?
(acemiyim)

Makro :


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H2:J" & Rows.Count)) Is Nothing Then
oran = Cells(Target.Row, 6).Value
adet = Cells(Target.Row, 3).Value
fiyat = Cells(Target.Row, 9).Value
toplam = Cells(Target.Row, 10).Value
Application.EnableEvents = False
If Target.Column = 8 Then
Cells(Target.Row, 9).Value = Target * (1 + oran)
Else
Cells(Target.Row, 8).Value = Target / (1 + oran)
End If

Application.EnableEvents = True

End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H2:J" & Rows.Count)) Is Nothing Then
        oran = Cells(Target.Row, 6).Value
        adet = Cells(Target.Row, 3).Value
        fiyat = Cells(Target.Row, 9).Value
        toplam = Cells(Target.Row, 10).Value
        Application.EnableEvents = False
        If Target.Column = 8 Then
            Cells(Target.Row, 9).Value = Target * (1 + oran)
            Cells(Target.Row, 10).Value = Cells(Target.Row, 3) * Cells(Target.Row, 9)
        Else
            Cells(Target.Row, 8).Value = Target / (1 + oran)
            Cells(Target.Row, 10).Value = Cells(Target.Row, 3) * Cells(Target.Row, 9)
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[ermanusta]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H2:J" & Rows.Count)) Is Nothing Then
        oran = Cells(Target.Row, 6).Value
        adet = Cells(Target.Row, 3).Value
        fiyat = Cells(Target.Row, 9).Value
        toplam = Cells(Target.Row, 10).Value
        Application.EnableEvents = False
        If Target.Column = 8 Then
            Cells(Target.Row, 9).Value = Target * (1 + oran)
            Cells(Target.Row, 10).Value = Cells(Target.Row, 3) * Cells(Target.Row, 9)
        Else
            Cells(Target.Row, 8).Value = Target / (1 + oran)
            Cells(Target.Row, 10).Value = Cells(Target.Row, 3) * Cells(Target.Row, 9)
        End If
        Application.EnableEvents = True
    End If
End Sub

istediğim gibi olmuş, yardımınız için teşekkür ederim.

 

[ermanusta]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H2:J" & Rows.Count)) Is Nothing Then
        oran = Cells(Target.Row, 6).Value
        adet = Cells(Target.Row, 3).Value
        fiyat = Cells(Target.Row, 9).Value
        toplam = Cells(Target.Row, 10).Value
        Application.EnableEvents = False
        If Target.Column = 8 Then
            Cells(Target.Row, 9).Value = Target * (1 + oran)
            Cells(Target.Row, 10).Value = Cells(Target.Row, 3) * Cells(Target.Row, 9)
        Else
            Cells(Target.Row, 8).Value = Target / (1 + oran)
            Cells(Target.Row, 10).Value = Cells(Target.Row, 3) * Cells(Target.Row, 9)
        End If
        Application.EnableEvents = True
    End If
End Sub

mümkünse sizden birşey daha rica edebilir miyim.

ürünlerin tutarlarını girince toplam otomatik olarak değişiyor, ancak miktarı değiştirdiğimde toplamda değişiklik olmuyor. bunu çözebilir miyiz ?