Forum - VBA Περιορίσμοι στην Ημερομηνία για έκδοση τιμολογίων μεσω excel

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

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

- - [VBA] Περιορίσμοι στην Ημερομηνία για έκδοση τιμολογίων μεσω excel (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4610-periorismoi-stin-hmerominia-gia-ekdosi-timologion-meso-excel.html)

Περιορίσμοι στην Ημερομηνία για έκδοση τιμολογίων μεσω excel

Έχω ένα αρχείο excel για έκδοση τιμολογίων, το οποίο το πήρα έτοιμο από μια σελίδα (το επισυνάπτω). Έχω το εξής πρόβλημα ,θα ήθελα με κάποια μακροεντολή να με εμποδίζει να κόβω με προγενέστερη ημερομηνία σε σχέση με το τελευταίο τιμολόγιο που έχω εκδώσει. Δηλαδή έχω εκδώσει το τιμ. 1 με ημερομηνία 30/5/17, έχω εκδώσει σήμερα 13/6/17 το τιμ.2 με ημερομηνία 5/6/17 και το τιμ.3 με ημερομηνία 01/04/17 θα ήθελα να ρωτήσω με ποια μακροεντολή θα μπορούσα να το επιτύχω αυτο, διοτι εάν γίνεται αυτό είναι λογιστικά λάθος
Δηλαδή θα ήθελα να με αφήνει να εκδίδω τιμολόγιο με προγενέστερη ημερομηνία από τη τρέχουσα αλλά όχι πιο παλιά από την τελευταία που έχω εκδώσει.

Σας ευχαριστώ εκ των πρότερων

Δημήτρη, καλώς ήλθες στο ms-office.gr

Δεν ξέρω αν θα σε ικανοποιήσει η απάντηση μου, αλλά αυτό που έχεις, δεν είναι σωστό...
Για να γίνει ένα έργο με τιμολόγηση, θα πρέπει, να γίνουν κάποια πράγματα,
που δεν έχεις στο βιβλίο σου.
Από την άλλη, οι υπάρχοντες «κώδικες», δεν ξέρω αν πρέπει να υπάρχουν καν...
Έχουν γίνει με καταγραφή και έχουν λάθη και άλλα ...
Ακόμα, δεν καταλαβαίνω, γιατί πρέπει να υπάρχει δημιουργία αντιγράφου σε νέο φύλλο...

Τι πρέπει να γίνει (γενικά και γρήγορα)

Θα κάνεις ένα φύλλο, με το υπόδειγμα του τιμολογίου.
Η έκδοση θα γίνεται με κάποιο σωστό κώδικα, ο οποίος θα φροντίζει την αρίθμηση αυτόματα
και θα αρχειοθετεί το τιμολόγιο.
Στο (κάθε) επόμενο τιμολόγιο που θα πας να εκδόσεις,
ο κώδικας θα τσεκάρει από το αρχείο αυτό (τιμολογίων) το max Νο και την τελευταία ημερομηνία
εκδοσης ενός παραστατικού και αναλόγως, θα επιτρέπει ή όχι την έκδοση...

Από 'κει και μετά

Εξαρτώνται πολλά πράγματα, στο «στήσιμο» του βιβλίου και στους κώδικες από το
τι θέλεις να κάνεις, πόσα είδη παραστατικών θα εκδίδει το πρόγραμμα
και πολλά άλλα.

Γενικά

Επειδή η έκδοση τιμολογίων είναι σοβαρό θέμα, δεν θα πρέπει να γίνει πρόχειρα
και το πρόγραμμα (η κατασκευή του) είναι όχι δύσκολο αλλά περίπλοκο και θέλει προσοχή...

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

Δεν έγινα νομίζω απόλυτα κατανοητός...

Παρ' όλα αυτά...
Αν υποτεθεί ότι έχεις ένα σωστό κώδικα, ο οποίος κάνει την δουλειά, τότε:

Το τιμολόγιο σου (φύλλο τιμολόγηση) έχει στο κελί e11 = Αρίθμηση πχ 3
και στο e12 = Ημερομηνία πχ 1/4/2017

ο κώδικας

Κώδικας:

'Ο τίτλος της εντολής σου...
 

'Ο κώδικάς σου, έχει βάλει στο τιμολόγιο την αρίθμηση

'Ο κώδικάς σου, έχει βάλει στο τιμολόγιο την ημερομηνία

'ή έχεις βάλει στο τιμολόγιο την ημερομηνία χειροκίνητα
 

    Dim Lrow As Long

    Lrow = Φύλλο5.Cells(Rows.Count, 1).End(xlUp).Row
 

    Dim inDate As Date, inNum As Long

    inDate = Φύλλο2.Cells(12, 5).Value

    inNum = Φύλλο2.Cells(11, 5).Value
 

    Dim exDate As Date, exNum As Long

    exDate = Φύλλο5.Cells(Lrow, 1).Value

    exNum = Φύλλο5.Cells(Lrow, 3).Value
 

    If inDate >= exDate And inNum > exNum Then
 

        'Ο υπόλοιπος κώδικας σου ΕΔΩ...
 

    Else

        MsgBox "Σφάλμα Καταχώρησης."

        End

    End If

'Κλείνει με End Sub

κάνει τον έλεγχο και κλείνει όλες τις εντολές αν έχουμε σφάλμα...

*με κάθε επιφύλαξη, διότι δεν μας δείχνεις τον δικό σου κώδικα...