Aynı Satırdaki E Sütunundaki Veriyi Getir

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki koda şu özelliği nasıl ekleyebilirim ?
Kırmızı yere Aynı satırdaki E sütunundaki veriyi getirecek kod nasıl olmalıdır ?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 And Target.Column < 20 Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Value * "aynı satırdaki 5. sütun E sütunundaki rakam ile çarpsın"
Application.EnableEvents = True
End If
End Sub

 

[Orion1]

Buyurun.

Target.Offset(0, 1) = Target.Value * Cells(Target.Row, "E").Value

 

[baydeniro]

müthişsiniz Orion1 üstadım. çok çok teşekkür ediyorum, Sağlıcakla kalın

 

[baydeniro]

Orion1 üstadım, aşağıdaki kodu gayet güzel çalışıyor. Ama şöyle bir sorun yaşıyorum. Yazılı veriyi silince hata kodu veriyor. Gerçi büyük bir sorun değil ama. Bunu gidermenin bir yolu var mı ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 And Target.Column < 20 Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Value * Cells(Target.Row, "E").Value
Application.EnableEvents = True
End If
End Sub

 

[Orion1]

Aşağıdaki kırmızı satırı ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 And Target.Column < 20 Then
On Error Resume Next
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Value * Cells(Target.Row, "E").Value
Application.EnableEvents = True
End If
End Sub