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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Γενικά] ΤΟ ΥΠΟΛΟΙΠΟ ΕΡΧΕΤΑΙ ΑΠΟ.. (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4421-ypoloipo-erxetai-apo.html)

ΤΟ ΥΠΟΛΟΙΠΟ ΕΡΧΕΤΑΙ ΑΠΟ..

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

Απάντηση

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

Εγώ θα πρότεινα λύση με κώδικα 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.

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

ανέβασμα προτασης

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

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

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

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

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

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