Soru Toplama

[sirkülasyon]

Option Explicit

Sub TOPLA()
    Dim S1 As Worksheet
    Dim X As Long, Veri As Double
   
    Set S1 = Sheets("RAPOR")
   
    For X = 4 To 1000
    S1.Cells(X, "E") = ""
        Veri = S1.Cells(X, "f") + S1.Cells(X, "h") + S1.Cells(X, "j") + S1.Cells(X, "l") + S1.Cells(X, "n") + S1.Cells(X, "p") + S1.Cells(X, "r") + S1.Cells(X, "t") + S1.Cells(X, "v") + S1.Cells(X, "x")
        S1.Cells(X, "E") = S1.Cells(X, "E") + Veri
        S1.Cells(X, "Z") = S1.Cells(X, "E") - 7
        Veri = 0
    Next

    Set S1 = Nothing

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Şu an ki hali ile Z sütununda -7 rakamları var. bir de düğme ile çalışıyor. Yukarıda ki kod için aşağıda belirttiğim şekli ile hesaplaması için yardımınıza ihtiyacım var.
1 - Düğmeden kurtararak veri girdikçe E sütununa toplasın
2 - Z sütununa E sütununda ki rakamın 7' den fazlasını yazsın.
3 - C sütununda verilerin bittiği yere kadar hesaplama yapsın
Teşekkür ederim.

 

[Korhan Ayhan]

Örnek dosya ekleyiniz.

Dosyanız üzerinde işlemi tarif ediniz.