[Συναρτήσεις] Formula function με ημερομηνία

[ChrisGT7]

Καλημέρα Μηνά,

Χρησιμοποίησα λάθος λογική, όπως φαίνεται... Αντικατέστησε τον κώδικα της daily με τον παρακάτω και έλεγξε αν όλα είναι εντάξει:

Function Daily(MyColors As range, MyDates As range, Str As range) As Double
    Dim R  As Long: R = MyColors(1, 1).Row - MyDates(1, 1).Row
    Dim C  As Long: C = MyColors(1, 1).Column
    Dim Dt As range
    
    For Each Dt In MyDates
        If InStr(Dt.Value, Str.Value) Then
            If Cells(Dt.Row + R, C).Interior.Color = RGB(255, 0, 0) Then
                Daily = Daily - 6
            ElseIf Cells(Dt.Row + R, C).Interior.Color = RGB(0, 176, 80) Then
                Daily = Daily + (Cells(Dt.Row + R, C).Value - 1) * 0.97
            Else
                Daily = Daily
            End If
        End If
    Next
End Function

Υ.Γ. Σ' ευχαριστώ πολύ! :)