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

[minas84]

Έτσι είναι στην ουσία το excel μου. Έχει 3 παρόμοια λογικής sheet τα οποία έχουν διαφορετικά νούμερα. Βαζω καθε μέρα τα καινούρια νούμερα της ημέρας (στο πάραδειμα έχω βάλει ως και 3 Mar, το πρώτο sheet τυχαία δεν έχει, μετα συνεχίζουμε με 5 Mar κτλ)
Στο τέλος υπάρχει ένα που τα αθροίζει.
Το πρόβλημα είναι ότι όταν πας στην 1 σελίδα και την κάνεις refresh με alt+ctrl+shift+F9
χαλάει τον υπολογισμό στις υπόλοιπες κτλ.
Τι λάθος κάνω;;;
Μήπως να ορίσω daily1 για την 1η, daily2 για την 2 και daily3 για την 3;

[kapetang]

Καλησπέρα

Μηνά βλέπω ότι στο βιβλίο σου χρησιμοποιείς τη συνάρτηση του Χρήστου.

Για το πρόβλημα που αναφέρεις συνεπώς μάλλον θα έπρεπε να το κοιτάξει ο Χρήστος.

[ChrisGT7]

Καλησπέρα σας,

Όπως φαίνεται, ο επαναϋπολογισμός της daily αναφερόταν στα εύρη του τρέχοντος φύλλου, γι' αυτό είχε λάθος αποτελέσματα στα υπόλοιπα φύλλα.

Δοκίμασε τον παρακάτω νέο κώδικα της 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
    
    Application.Volatile
    With MyColors.Parent
        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 With
End Function

Πλέον, όταν γίνεται μια αλλαγή σ' ένα κέλι (πλην χρώματος), γίνεται αυτόματος επαναϋπολογισμός σ' όλα τα φύλλα. Όταν αλλάζεις το χρώμα σ' ένα κελί, απλά πάτα το F9.

[minas84]

Χρήστο λειτουργεί τέλεια τώρα, ευχαριστώ πάρα πολύ! Γιώργο το δοκίμασα αυτό που μου είπες και το κατάλαβα, σ' ευχαριστώ και σένα πάρα πολύ!