Jump to content

Recommended Posts

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

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

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

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



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



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

Link to post
Share on other sites
  • Replies 78
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Ονομα αρχείου: ΤΙΜΟΛΟΓΗΣΗ ΣΤΟ EXCEL Το αρχείο ανέβηκε από: STAGAFOT Το αρχείο καταχωρήθηκε: 21 Δεκ 2012 Κατηγορία αρχείου: Utilities - Excel files excel 2010, αρχείο για τιμολόγηση παροχής υπη

Θα μου ήταν πολύ χρήσιμο αν μπορεί να εμπλουτιστεί το παραπάνω με : 1) Διπλή Εκτύπωση 2) Καταχώριση του παραστατικού στην σελίδα "Εσοδα" 3) Αρίθμηση +1 4) Επιλογή επόμενου πελάτη απο την λίστα πελ

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

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

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

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

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

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

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

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

Πολλά like

Link to post
Share on other sites
  • 4 weeks later...

να πω οτι

 

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

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

Link to post
Share on other sites

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

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

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

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

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

 

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

 

 

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

 

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

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

Link to post
Share on other sites

Καλησπέρα,

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

ευχαριστώ

Link to post
Share on other sites

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

Link to post
Share on other sites

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

 

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

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

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

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

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

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

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

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

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

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

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

 

Link to post
Share on other sites

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

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

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

Link to post
Share on other sites

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

 

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

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

 

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

 

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

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

Link to post
Share on other sites

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

 

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

Link to post
Share on other sites

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

 

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

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

 

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

Link to post
Share on other sites

Καλημέρα,

 

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

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
  • Recently Browsing   0 members

    No registered users viewing this page.


×
×
  • Create New...