sütunda değişiklik olduğunda işlem yapma

[sirkülasyon]

Abilerim;
H, I, K, P, Q sütunlarının herhangi birinde değişiklik olduğunda
6.satırdan 100 üncü satıra kadar
J sütunu = H sütunu X I Sütunu
L sütunu = J sütunu X K Sütunu / 100
M sütunu = J sütunu + L Sütunu
N sütunu = K sütunu /10*5
O sütunu = J sütunu * 9.48/1000
R sütunu = N sütunu + O sütunu + P sütunu + Q sütunu
S sütunu = M sütunu - R Sütunu
bir formülde yapmak istiyorum.
abilerimden yardım bekliyorum

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range, Son As Long
    Son = Rows.Count
    Set Alan = Union(Range("H6:H" & Son), Range("I6:I" & Son), Range("K6:K" & Son), Range("P6:P" & Son), Range("Q6:Q" & Son))
    If Intersect(Target, Alan) Is Nothing Then Exit Sub
    On Error Resume Next
    Cells(Target.Row, "J") = Cells(Target.Row, "H") * Cells(Target.Row, "I")
    Cells(Target.Row, "L") = Cells(Target.Row, "J") * Cells(Target.Row, "K") / 100
    Cells(Target.Row, "M") = Cells(Target.Row, "J") + Cells(Target.Row, "L")
    Cells(Target.Row, "N") = Cells(Target.Row, "K") / 10 * 5
    Cells(Target.Row, "O") = Cells(Target.Row, "J") * 9.48 / 1000
    Cells(Target.Row, "R") = Cells(Target.Row, "N") + Cells(Target.Row, "O") + Cells(Target.Row, "P") + Cells(Target.Row, "Q")
    Cells(Target.Row, "S") = Cells(Target.Row, "M") - Cells(Target.Row, "R")
End Sub

 

[sirkülasyon]

Korhan abi ellerinden öpmüşüm senin
Yardımını bu kardeşinden esirgemediğin için teşekkür ederim

 

[sirkülasyon]

Korhan abi
Cells(Target.Row, "S") = Cells(Target.Row, "R") * Cells(Target.Row, "I")
bu formüle R kısmına değer girersem işlem yapıyor .
Girilen değeri silersem S kısmında ki değer silinmiyor sabit kalıyor. R de ki değeri silince S de ki değerde silinebilir mi?

 

[Korhan Ayhan]

Merhaba,

Eğer "R" sütununa görede işlem yapılacaksa bu sütunuda kod içinde tanımlamak gerekecektir. Sizin ilk mesajınızda böyle bir bilgi yok. Bu sebeple önerdiğim kod "R" sütunu değiştiğinde tepki vermiyor.