Otomatik sayı verme ve carpma

[w3ruslan]

Merhabalar
Sayfa1 de c sütununa veri giriyorum.
İstediğim C sütununa veri girdikçe B sütununda artan şekilde sıra no vermesini yapan bir makro.
Örnek
C4 hücresine veri girdiğimde B4 hücresine 1 desin, daha sonra C sütnunu her ver girdiğimde aynı satırda B sütnunua 2-3-4 gibi sıra numarası verecek
2ci sorum ise D4 e ve E4 e sayi yazdigimda otomatik olarak bunlari carpib  F4 e cevabi yazsin.
simdiden tesekkurler

[AliÖZ]

Merhaba,
Ekli dosyayı inceleyin,sanırım istediğiniz böyle bir şey.

Kod: [Seç]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Column <> 3 Then Exit Sub
  If Target.Row = 1 Then Exit Sub
  If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
  If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
  If Left(Target.Offset(0, -1), 1) = "=Row()-1" Then Exit Sub
  Target.Offset(0, -1).Formula = "=Row()-1"
  Target.Offset(0, 3).FormulaR1C1 = "=+RC[-2]*RC[-1]"
End Sub