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

[STAGAFOT]

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

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

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

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

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

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

[JORDAN6]

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

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

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

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

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

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

           

Πολλά like

[parmgr]

να πω οτι

 

στην ημερομηνια βαλτε συναρτηση ---> 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

[broster]

Δεν μου το παίρνει ......

[parmgr]

Ευχαριστουμε STAGAFOT

 

link

 

opoy C:\aaa\Inv

 

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

 

βάλτε έναν φάκελο δικό σας

 

https://docs.google.com/file/d/0B6cD4o6I3-wnQ2h6YXE2eUM4cjQ/edit

[MXalit]

να πω οτι

 

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

 

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

 

Sub NextInvoice()

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

    Range("b24:g40").ClearContents

End Sub

 

 

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

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

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

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

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

 

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

[ype]

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

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

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

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

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

 

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

 

 

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

 

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

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

[DimPap6]

Καλησπέρα,

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

ευχαριστώ

[STAGAFOT]

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

[FORO_LOGISMOS]

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

 

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

[Trip_Accountant]

πολύ ωραίο stagafot , ευχαριστούμε!

Περιμένουμε upgrade όταν βρείς χρόνο!

[επισκέπτη Επισκέπτης]

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

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

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

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

[SOULIS]

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

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

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

[EDP]

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

 

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

[asteras5]

Το φτιάξατε από το forum με τις εντολές ή από το link μέσω google?

[AGGELA]

να πω οτι

 

στην ημερομηνια βαλτε συναρτηση ---> 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

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

[STAGAFOT]

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

[επισκέπτη μαρακι]

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

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

 

[The Jamaican]

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

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

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

[anodos]

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

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

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

[MarP]

Πολύ καλό συναδέλφισα,ευχαριστούμε!

[SOULIS]

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

 

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

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

 

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

 

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

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

[gkazan]

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

 

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

[ype]

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

 

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

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

 

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

[asteras5]

Καλημέρα,

 

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