Kod değiştirme

[Yesilyurtlu]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sayfa1.Range("T6").Value = Sayfa1.Range("K6").Value + (Sayfa1.Range("L6").Value * Sayfa1.Range("R6").Value * Sayfa1.Range("Q6").Value) + ((Sayfa1.Range("L6").Value - 10) * Sayfa1.Range("Q6").Value * 0.5)
End Sub

yukarıdaki kodu satırda değilde sütunda işlem görmesini sağlamak için kodu değiştirmek için yardımcı olabilir misiniz

 

[mancubus]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim tRow As Long
tRow = Target.Row

On Error Resume Next
Range("T" & tRow).Value = Range("K" & tRow).Value + (Range("L" & tRow).Value * _
    Range("R" & tRow).Value * Range("Q" & tRow).Value) + ((Range("L" & tRow).Value - 10) * _
    Range("Q" & tRow).Value * 0.5)

End Sub

 

[Yesilyurtlu]

Sayın Mancubus
Yardımınız için teşekkür ederim

 

[mancubus]

rica ederim.
On Error Resume Next ibaresini numerik değer olmayan satırlarda hata vermesini engellemek için ekledik.