RSI hesaplama hk

[karam54]

Değerli arkadaşlar,benim bir sorunum var,muhtemelen bu forumda cevaplanmışta olabilir ancak ben ulaşmayı başaramadım.Sorunum şu:ek de verilen excel dosyasında Excelde örneği verilen satırlara + olanların toplamı ve diğer satıra - olanların toplamını her 15 satırda bir devamlı yapsın.
Şimdiden teşekkür ederim.
Karam54

 

[Orion1]

Size KTF yaptım .dosya ektedir.

Function tplm(alan As Range, olcut As String, atla As Integer) As Double
Dim i As Long, atlama As Integer
If atla = 0 Then
    atlama = 1
    Else
    atlama = atla
End If
For i = alan.Row To alan.Row + (alan.Rows.Count - 1) Step atla
    If olcut = "+" Then
        If Cells(i, alan.Column).Value > 0 Then
            tplm = tplm + Cells(i, alan.Column).Value
        End If
    ElseIf olcut = "-" Then
        If Cells(i, alan.Column).Value < 0 Then
            tplm = tplm + Cells(i, alan.Column).Value
        End If
    End If
Next
End Function

 

[ynmcan]

merhaba Sn.karam54
ekteki dosyayı iceleyin. İstediğiniz bumu

 

[Ömer]

Merhaba,

Alternatif olsun,

+ lar için;

=TOPLA.ÇARPIM((MOD(SATIR(D3:D500)-SATIR(D3);15)=0)*(D3:D500>0)*(D3:D500))

- ler için;

=TOPLA.ÇARPIM((MOD(SATIR(D3:D500)-SATIR(D3);15)=0)*(D3:D500<0)*(D3:D500))

.

 

[baydeniro]

Merhaba, bu dosya için makrolu bir çözüm olsa ne kadar iyi olurdu !!