Şartlara bağlı toplam

[mozdem]

Excel dosyamın içeriğinde de anlatmaya çalıştım.
B ve D sütunda 0 ve 1 lerden oluşan veriler var.
D sütunda 1 verisi bulunan bir satır var ise, 1 verisi bulunan satırın bir alt satırdan başlamak üzere
B sütundaki sayıların toplamı hangi satırda 13'e eşit olur ise F sütuna 1 yazmasını istiyorum.
Örneğin: D20=1 ise B21+B22+..........Bn=13 olduğunda, Fn=1 yazılsın
Not=(Bn yada Fn) n= o anki satır
Örnek dosya ekledim. F sütununda olması gereken yerlere 1 yazdım. Bunu Formülle yazmak istiyorum.
Yardımlarınızı bekliyorum.
Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Formül demişsiniz fakat kod işinizi görürse aşağıdaki kodu kullanabilirsiniz.

Sub test()
    Dim Bak As Long
    Dim Bak2 As Long
    Dim Say As Long
    Dim Topla As Integer
    Say = Cells(Rows.Count, "B").End(xlUp).Row
    For Bak = 12 To Say
        If Cells(Bak, "D") = 1 Then
            For Bak2 = Bak + 1 To Say
                Topla = Topla + Cells(Bak2, "B")
                If Topla = 13 Then
                    Cells(Bak2, "F") = 1
                    Topla = 0
                    Bak = Bak2
                    Exit For
                End If
            Next
        End If
    Next
End Sub

 

[mozdem]

Hocam öncelikle emeğinize sağlık. Çok teşekkür ederim.
Formül olabiliyor ise programım açısından iyi olur.