Arama sonucuna göre toplam alma

[kelkitli]

Selamlar,
Döngü ile E6:E56 Aralığında dolu hücreler aranacak. Bulunan ilk dolu hücre ile, ikinci dolu hücre arasında Fsütununda dolu satırlara tekamül eden ve bu satırların G sütunundaki karşılıklar olan sayıları toplayıp ilk dolu hücrenin olduğu satırdaki G sütununa denk gelen hücreye yazılması gerekmektedir.2. Bulunanla, 3.Bulunan arasındakiler de 2.Dolu hücreye denk gelen G sütunundaki hücreye yazılacak. Diğerleri de aynı şekilde takip edecek.
Dosyaya açıklama ekledim.
Saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdak kodu denermisiniz.

Option Explicit
 
Sub TOPLAM_AL()
    Dim X As Integer, Y As Integer, TOPLA As Double
    
    For X = 6 To 57
        If Cells(X, "E") <> "" Then
            For Y = X + 1 To 57
                If Cells(Y, "F") = "" Then Exit For
                If Cells(Y, "E") = "" Then
                    TOPLA = TOPLA + Cells(Y, "G")
                    Cells(X, "G") = TOPLA
                End If
            Next
            TOPLA = 0
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kelkitli]

Sayın Korhan Hocam, çok teşekkür ederim.
Bir de şu şekilde lazım olan bir uygulama gerekli.
E sütununda dolu olan hücrelere denk gelen G sütunundaki değerlerin toplamını diyelim A1 hücresine yazdırmak istiyorum.