Döngü ile matematiksel işlem

[kelkitli]

Selamlar,
Aşağıdaki kod ile döngü ile H1 deki değeri C sütunundaki değerle çarpıp D ye
C-E yi de F ye yazdırmaya çalışıyorum. Nasıl yapılmalı

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then Call hesapla '2. sütunda işlem yapılırsa makro çalışır.
If Target.Column = 3 Then Call hesapla '3. sütunda işlem yapılırsa makro çalışır.
If Target.Column = 5 Then Call hesapla '5. sütunda işlem yapılırsa makro çalışır.
End Sub
Sub hesapla()
Dim k As Integer
Dim satir As Integer
satir = 2
For k = 2 To 31
Cells(satir, 4) = "Bu kısma H1 ve C sütunundaki değerin çarpımı yazılacak"
satir = satir + 1
Next k
For i = 2 To Cells(65536, 2).End(xlUp).Row
If Cells(i, 2) <> Empty Then
No = No + 1
Cells(i, 1) = No
Else
Cells(i, 1) = Empty
End If
Next
End Sub

 

[uzmanamele]

merhaba

örnek dosya ekleyiniz.

 

[kelkitli]

Merhaba, dosya ektedir.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, [c:c,e:e]) Is Nothing Then Exit Sub
Call hesapla
End Sub
Sub hesapla()
  Dim k As Integer
  For k = 2 To Cells(65536, 2).End(xlUp).Row
        Cells(k, 4) = Cells(1, 8).Value * Cells(k, 3).Value
  Next k
      For i = 2 To Cells(65536, 2).End(xlUp).Row
        If Cells(i, 2) <> Empty Then
            No = No + 1
                Cells(i, 1) = No
            Else
                Cells(i, 1) = Empty
        End If
    Next
End Sub

 

[kelkitli]

Çok teşekkür ederim, Sayın uzmanamele.