Soru Artış Oranı (Satır Bazlı Makro Çalıştırma)

[leonadies]

Merhaba Arkadaşlar;

E:E sütununda veri girdikçe Artış oranını E/D yaparak makro ile yazdırıyorum. Makrom güzel çalışıyor sorun yok. Ancak kişisel merak olarak her seferinde next döngüsü olmadan sadece seçili satırda bu makronun çalışmasını nasıl sağlarım?
Malum bu makro ile her seferinde tüm hücreler için bunu yapıyor. Benim derdim sadece E:E üzerindeki herhangi bir hücrede değişiklik olursa makro çalışsın.
Örneğin E5 e sayı girdim sadece E5/D5 yapıp F5 e yazsın. Diğer satırlara bakmasın bile.
Kod ve görsel ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:E5000]) Is Nothing Then Exit Sub

On Error GoTo 99

son = Sayfa2.Cells(Rows.Count, "B").End(3).Row
For i = 2 To son
Sayfa2.Cells(i, "F") = (Sayfa2.Cells(i, "E") / Sayfa2.Cells(i, "D")) - 1
Next i

99
End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:E5000]) Is Nothing Then Exit Sub
On Error GoTo 99
With Target
    If .Count > 1 Then Exit Sub
    If .Value = "" Then
        Cells(.Row, "F") = ""
        Exit Sub
    End If
    Cells(.Row, "F") = (.Value / Cells(.Row, "D")) - 1
End With
99
End Sub

 

[leonadies]

@Ömer Hocam ellerinize sağlık Teşekkür ederim