[Γενικά] ΤΟ ΥΠΟΛΟΙΠΟ ΕΡΧΕΤΑΙ ΑΠΟ..

[ramnikos71]

Σε μια καρτελα πελατη το υπολοιπο του να μας λεει απο ποτε ειναι στο περιπου
Ευχαριστω και πάλι
Νίκος

[ramnikos71]

Έχω βρει την λύση και μπορώ να βάλω το αρχείο στο forum αν το επιθυμεί κάποιος
Ευχαριστώ

[ChrisGT7]

Εγώ θα πρότεινα λύση με κώδικα VBA:

Option Explicit

Function UNPAIDFROM(B As Long, Rng1 As Range, Rng2 As Range) As Long
    If Rng1.Columns.Count <> 1 Or Rng2.Columns.Count <> 1 _
        Or Rng1.Count <> Rng2.Count Then Exit Function
    
    Dim R As Long, Sum As Long
    R = Rng2.Count
    Sum = Rng2.Cells(R, 1).Value
    UNPAIDFROM = Rng1.Cells(R, 1).Value
    
    While B >= Sum
        If R = 1 Then
            UNPAIDFROM = Rng1.Cells(1, 1).Value
            Exit Function
        End If
        
        If B < Sum + Rng2.Cells(R - 1, 1).Value Then
            UNPAIDFROM = Rng1.Cells(R, 1).Value
            Exit Function
        End If
        R = R - 1
        Sum = Sum + Rng2.Cells(R, 1).Value
    Wend
End Function

Η συνάρτηση UNPAIDFROM() έχει 3 ορίσματα:
1ο: Το ποσό υπολοίπου (είτε κελί είτε αριθμό με το χέρι),
2ο: Το εύρος κελιών στη στήλη που περιέχει την ημερομηνία παραστατικών,
3ο: Το εύρος κελιών στη στήλη που περιέχει τις αξίες των τιμολογίων.

Το δύο τελευταία ορίσματα πρέπει να αποτελούνται από μία στήλη και το πλήθος των κελιών τους να είναι ίσο, π.χ. Α1:Α10 και G11:G20.

Νίκο, αν σου είναι εύκολο ανέβασε και τη δική σου λύση, για εγκυκλοπαιδικές γνώσεις και μόνο.

[ramnikos71]

Φίλε Χρήστο ανεβάζω το εν λόγο παράδειγμα χωρίς (vba) με συναρτήσεις, συμπληρώνουμε τα κίτρινα κελιά γιατί τα υπόλοιπα έχουν σχέσεις και συναρτήσεις και μόνο το φύλλο data μια και το επόμενο είναι δυναμικό.

Χρήστο εάν θέλεις δες και την συνέχεια του άλλου θέματος επιμερισμός εξόδων χρειάζομαι βοήθεια
Τα λέμε...
Νίκος

[ChrisGT7]

Αρκετά καλή ιδέα να έχεις ξεχωριστό φύλλο για να παρακολουθείς την εξέλιξη εξόφλησης κάθε τιμολογίου.

Παρόλα αυτά, ανεβάζω το αρχείο προσθέτοντας ένα επιπλέον φύλλο, όπου χρησιμοποιώ τη συνάρτηση UNPAIDFROM στο κελί K2 (ελαφρώς βελτιωμένη ως προς το εύρος των στηλών) για να τη δεις και στην πράξη, αν θες να αποφύγεις το ξεχωριστό φύλλο παρακολούθησης και να βλέπεις απευθείας την ημερομηνία του παλιότερου ανεξόφλητου τιμολογίου.

Επίσης, χρησιμοποίησα τη μορφοποίηση υπό όρους στη στήλη της ημερομηνίας των τιμολογίων ώστε να κοκκινίζει η αντίστοιχη ημερομηνία.

[ramnikos71]

the best....
Ευχαριστώ Νίκος