En yakın vade ve tutarı belirleme

[mustafakoker]

Merhaba arkadaşlar;
ekli excel dosyamda örnek olarak da belirttiğim gibi
vade ve tutarlara bakıp en yakın değerleri renklendirecek bir formüle ihtiyacım vardır. Yardımlarınızı rica eder iyi çalışmalar dilerim

 

[Murat OSMA]

Makro ile çözüm;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky#, i%
    For i = 2 To Range("A65536").End(3).Row
        Rky = Rky + Cells(i, 2).Value
        If Rky >= [f1] Then
            [E12] = Rky - Cells(i, 2).Value
            Range(Cells(2, "A"), Cells(i - 1, "B")).Interior.ColorIndex = 22
            Exit For
        End If
    Next i
    i = Empty: Rky = Empty
End Sub[/FONT]

Koşullu Biçimlendirme ile yapmak isterseniz; Koşullu Biçimlendirmedeki formül kısmına bu formülü girip biçiminizi seçebilirsiniz;

[FONT="Trebuchet MS"]=EĞER(TOPLA($B$2:$B2)<=$F$1;DOĞRU;YANLIŞ)[/FONT]