Otomatik çarpma işlemi nasıl yapılır?

[MERDAG]

Merhaba;
Ben aşağıdaki kodla E ve F sütununa tek tek değer girince otomatik çarpma işlemi yapıyorum. Ama toplu olarak F sütununa kopyala yapıştır yapıp birden fazla değer girince hata veriyor. Bu işlemi otomatik olarak nasıl yapabilirim...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Target * Target.Offset(0, -1)
End Sub

İlginiz için şimdiden teşekkürler...

 

[MERDAG]

Farklı bir çözümüdemi yok arkadaşlar...