Jump to content
Sign in to follow this  
STAGAFOT

ΤΙΜΟΛΟΓΗΣΗ ΣΤΟ EXCEL

Recommended Posts

Ονομα αρχείου: ΤΙΜΟΛΟΓΗΣΗ ΣΤΟ EXCEL

Το αρχείο ανέβηκε από: STAGAFOT

Το αρχείο καταχωρήθηκε: 21 Δεκ 2012

Κατηγορία αρχείου: Utilities - Excel files



excel 2010, αρχείο για τιμολόγηση παροχής υπηρεσίας, με μακροεντολές για δημιουργία αντιγράφου & ενημέρωση βιβλίου εσόδων



Πατήστε εδώ για να κατεβάσετε το αρχείο

Share this post


Link to post
Share on other sites

Ονομα αρχείου: ΤΙΜΟΛΟΓΗΣΗ ΣΤΟ EXCEL

Το αρχείο ανέβηκε από: STAGAFOT

Το αρχείο καταχωρήθηκε: 21 Δεκ 2012

Κατηγορία αρχείου: Utilities - Excel files

excel αρχείο για τιμολόγηση παροχής υπηρεσίας

Πατήστε εδώ για να κατεβάσετε το αρχείο

:rolleyes:  :rolleyes:  :rolleyes:  :rolleyes:  :rolleyes:  :rolleyes:  :rolleyes:

Πολλά like

Share this post


Link to post
Share on other sites

να πω οτι

 

στην ημερομηνια βαλτε συναρτηση ---> Today()

 

στην αριθμηση  me ALT+f11

 

Sub NextInvoice()
    Range("E11").Value = Range("E11").Value + 1
    Range("b24:g40").ClearContents
End Sub

 

kai

 

apothekiysh aytomata anoigma neoy me neo noymero synexomeno

 

 

Sub SaveInvWithNewName()
    Dim NewFN As Variant
    ' Copy Invoice to a new workbook
    ActiveSheet.Copy
    NewFN = "C:\aaa\Inv" & Range("E11").Value & ".xlsx"
    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
    NextInvoice
End Sub

Share this post


Link to post
Share on other sites

να πω οτι

 

στην ημερομηνια βαλτε συναρτηση ---> Today()

 

στην αριθμηση  me ALT+f11

 

Sub NextInvoice()

    Range("E11").Value = Range("E11").Value + 1

    Range("b24:g40").ClearContents

End Sub

 

 

Θα μου ήταν πολύ χρήσιμο αν μπορεί να εμπλουτιστεί το παραπάνω με :

1) Διπλή Εκτύπωση

2) Καταχώριση του παραστατικού στην σελίδα "Εσοδα"

3) Αρίθμηση +1

4) Επιλογή επόμενου πελάτη απο την λίστα πελατών

 

Την επόμενη φορά θα ζητήσω να μου κάνει και καφέ  :D

Share this post


Link to post
Share on other sites

Θα μου ήταν πολύ χρήσιμο αν μπορεί να εμπλουτιστεί το παραπάνω με :

1) Διπλή Εκτύπωση

2) Καταχώριση του παραστατικού στην σελίδα "Εσοδα"

3) Αρίθμηση +1

4) Επιλογή επόμενου πελάτη απο την λίστα πελατών

 

Την επόμενη φορά θα ζητήσω να μου κάνει και καφέ  :D

 

 

Όλα μπορούν να γίνουν αλλά .......... προσοχή..........

 

Οι πολλοί αυτοματισμοί ενίοτε οδηγούν σε πολλαπλά και επαναλαμβανόμενα λάθη. :D

μετά ο καφές θα είναι πικρός........ της παρηγοριάς. :(

Share this post


Link to post
Share on other sites

Καλησπέρα,

1.υπάρχει περιορισμός ή ιδιαίτερες συνθήκες για το πρόγραμμα που παράγει το στοιχείο;;; Δηλαδή με αυτό το πρόγραμμα και ένα φορολογικό μηχανισμό έχω ξεμπερδέψει; ή σε έλεγχο ή κατά την ενεργοποίηση του ΦΤΜ θα μου ζητηθούν στοιχεία και πιστοποιητικά της γεννήτριας των εντύπων;;;;;;

ευχαριστώ

Share this post


Link to post
Share on other sites

Με το excel έχω συνδέσει φορολογικό μηχανισμό στο laptop με usb.εκτυπώνω σε PDF τα οποία αποστέλλω με email και διαφυλάσω ηλεκτρονικά. Γι αυτό το λόγο δεν είχα αντιγραφή του αρχείου σε άλλο φύλλο κ.ο.κ. οτιδήποτε αλλαγές θέλετε ή προσθήκες, είμαι πρόθυμη να σας βοηθήσω και να τις προσθέσω. 

Share this post


Link to post
Share on other sites

Με το excel έχω συνδέσει φορολογικό μηχανισμό στο laptop με usb.εκτυπώνω σε PDF τα οποία αποστέλλω με email και διαφυλάσω ηλεκτρονικά. Γι αυτό το λόγο δεν είχα αντιγραφή του αρχείου σε άλλο φύλλο κ.ο.κ. οτιδήποτε αλλαγές θέλετε ή προσθήκες, είμαι πρόθυμη να σας βοηθήσω και να τις προσθέσω. 

 

Φαίνεται ότι ...το έχεις το θέμα, οπότε αφού μας ιντρίκαρες (θετικά εννοώ) ,ολοκλήρωσέ το !.. κάνε ένα ρετουσάρισμα , σ' ένα καλό upgrade.  

Share this post


Link to post
Share on other sites
Guest Επισκέπτης

Με το excel έχω συνδέσει φορολογικό μηχανισμό στο laptop με usb.εκτυπώνω σε PDF τα οποία αποστέλλω με email και διαφυλάσω ηλεκτρονικά. Γι αυτό το λόγο δεν είχα αντιγραφή του αρχείου σε άλλο φύλλο κ.ο.κ. οτιδήποτε αλλαγές θέλετε ή προσθήκες, είμαι πρόθυμη να σας βοηθήσω και να τις προσθέσω.

πολύ καλό. ευχαριστούμε

Μπορεί να χρησιμοποιηθεί αυτό χωρίς μηχανισμό σαν να ήταν χειρόγραφο αφού έτσι κι αλλιώς πλέον είναι αθεώρητο το τιμολόγιο;

Ή κολλάει πουθενά;

Share this post


Link to post
Share on other sites

Δεν κολλάει..

Το δοκίμασα και το χαρτί περνάει μια χαρά..

θα το χρησιμοποιήσω. :)

Share this post


Link to post
Share on other sites

ΕΙΝΑΙ ΤΕΛΕΙΟ!!!  ΤΟ ΑΛΛΑΞΑ ΣΤΑ ΔΙΚΑ ΜΟΥ ΔΕΔΟΜΕΝΑ ΣΗΜΑ κλπ ΚΑΙ ΕΙΝΑΙ ΟΚ.

 

ΕΥΧΑΡΙΣΤΟΥΜΕ

Share this post


Link to post
Share on other sites

να πω οτι

 

στην ημερομηνια βαλτε συναρτηση ---> Today()

 

στην αριθμηση  me ALT+f11

 

Sub NextInvoice()

    Range("E11").Value = Range("E11").Value + 1

    Range("b24:g40").ClearContents

End Sub

 

kai

 

apothekiysh aytomata anoigma neoy me neo noymero synexomeno

 

 

Sub SaveInvWithNewName()

    Dim NewFN As Variant

    ' Copy Invoice to a new workbook

    ActiveSheet.Copy

    NewFN = "C:\aaa\Inv" & Range("E11").Value & ".xlsx"

    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook

    ActiveWorkbook.Close

    NextInvoice

End Sub

Μηπως θα μπορούσες να μας διευκρινίσεις τι ακριβώς πρέπει να κανουμε .....γιατί με την αυτόματη αριθμηση καπου το εχασα   Ευχαριστώ

Share this post


Link to post
Share on other sites
Guest μαρακι

Καλημέρα, μπορούμε να το χρησιμοποιήσουμε για την έκδοση ΤΠΥ χωρίς την χρήση φορολογικού μηχανισμού??

Απλά θα εκτυπώνουμε σε 2 αντίγραφα έτσι ώστε το πρώτο να είναι για τον πελάτη και το δεύτερο να επέχει θέση "στελέχους" ??

 

Share this post


Link to post
Share on other sites

Σας ευχαριστώ για τα καλά λόγια. πείτε μου τι παραπάνω θέλετε και θα το φτιάξω!

Ένα καφεδάκι θα ήταν ότι πρέπει :rolleyes:

Πέρα από την πλάκα πολύ καλό προγραμματάκι. Συγχαρητήρια!!

Share this post


Link to post
Share on other sites

Καλημέρα, μπορούμε να το χρησιμοποιήσουμε για την έκδοση ΤΠΥ χωρίς την χρήση φορολογικού μηχανισμού??

Απλά θα εκτυπώνουμε σε 2 αντίγραφα έτσι ώστε το πρώτο να είναι για τον πελάτη και το δεύτερο να επέχει θέση "στελέχους" ??

Εννοείται...

Share this post


Link to post
Share on other sites

Σας ευχαριστώ για τα καλά λόγια. πείτε μου τι παραπάνω θέλετε και θα το φτιάξω!

 

Θα πρότεινα την παρακάτω συνάρτηση που έσπασα το κεφάλι μου για να φτιάξω καθότι άσχετος.. :)

Είναι για το πεδίο παρακράτηση φόρου.. αν δεν επιθυμούμε να γίνεται στα Τιμολόγια έως 300,00.

 

=IF(H49>300;H49*20%;0)

 

κατά τ'άλλα .. να αφαιρεθεί η διπλή αναγραφή της ΔΟΥ.. για να μην πω να απαλειφθεί πλήρως..

Αυτόματη αρίθμηση δεν χρειάζεται.. ας κάνουμε και κάτι μόνοι μας.. 

Share this post


Link to post
Share on other sites

Όποιος επιθυμεί, για την καταχώρηση των στοιχείων των πελατών του, μπορεί να συνδυάσει το αρχείο αυτό, με τις νέες κωδικοποιήσεις των ΔΟΥ.

 

http://www.taxheaven.gr/acforum/index.php?app=downloads&showfile=1372

Share this post


Link to post
Share on other sites

Εγώ θα πρότεινα για την συμπλήρωση των στοιχείων του πελάτη........... μια άλλη λογική.

 

Αντί να τον επιλέγεις από drop down λίστα μπορείς να συμπληρώσεις τον αφμ και να σου φέρει με vlookup τα άλλα στοιχεία του.

Προϋπόθεση στο φύλλο των πελατών να μεταφέρεις πρώτη την στήλη με τους ΑΦΜ και να διατάξεις την "βάση" κατά ΑΦΜ

 

Αν έχεις πολλούς πελάτες βοηθά. Αντί να ψάχνεις μέσα στην λίστα τον πελάτη βάζεις αφμ και έρχονται όλα τα στοιχεία.

Share this post


Link to post
Share on other sites

Καλημέρα,

 

Μου εξηγείς πως από την Vlookup σου φέρνει αυτόματα τα υπόλοιπα στοιχεία εφόσον βάλεις ΑΦΜ? Την vlookup την ξέρω. Τώρα λόγω απογραφών είναι και επίκαιρη , αλλά ξέρω να την εφαρμόζω σε κάθε στήλη(π.χ. φέρνω κωδικό, μετά δίπλα (ξανα με vlookup) περιγραφή είδους κλπ.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×