[Excel07] Μεταφορά δεδομένων από ένα φύλο εργασίας σε άλλο

[giannopoulos]

Αρχική Δημοσίευση από spirosgr

Στο ίδιο περίπου μοτίβο με τα πιο πάνω...
Το βιβλίο πρότυπο που ακολουθεί περιέχει:

Επαφές: Στοιχεία όλων των επαφών
Συναλλαγές: Καθημερινές συναλλαγές με διαχωρισμό Πελάτη, Προμηθευτή, Πωλητή, Άλλο...
Καρτέλα: Χρεωπιστωτική καρτέλα της επιλογής μας για εκτύπωση
Ανάλυση: Όλα τα δεδομένα σε λεπτομερή ανάλυση με Pivot

Χρησιμοποιήστε το πρότυπο βάζοντας τα δικά σας δεδομένα

Να σημειωθεί ότι για χρήστες 2013 δεν χρειάζεται κανένα φίλτρο
Με τις νέες λειτουργίες του Office Εισάγετε δύο "Αναλυτές" απ' ευθείας στον πίνακα δεδομένων σας (Συναλλαγές) και
επιλέξτε Τύπο ή Όνομα χωρίς άλλα φίλτρα ή VBA
Θα χρειαστεί μόνο το κουμπί μεταφοράς

Σπύρο καλησπέρα

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

[Spirosgr]

Καλησπέρα
1. Δημήτρη μπορείς να βάλεις "Απεριόριστες" εγγραφές (όσες σειρές έχει η excel)
2. Βάλε ένα κουμπί και σύνδεσε τον κώδικα:

Sub AddTblRow()
Application.ScreenUpdating = False
ActiveSheet.Range("B5").ListObject.ListRows.Add (1)
End Sub

όπου B5 το κελί που έχει την κεφαλίδα "Ονοματεπώνυμο" (αν το έχεις αλλάξει βάλε το σωστό)

Με το πάτημα του κουμπιού θα προστίθεται κάθε φορά μία νέα γραμμή στην πρώτη θέση του Πίνακα

[giannopoulos]

Αρχική Δημοσίευση από spirosgr

Καλησπέρα
1. Δημήτρη μπορείς να βάλεις "Απεριόριστες" εγγραφές (όσες σειρές έχει η excel)
2. Βάλε ένα κουμπί και σύνδεσε τον κώδικα:

Sub AddTblRow()
Application.ScreenUpdating = False
ActiveSheet.Range("B5").ListObject.ListRows.Add (1)
End Sub

όπου B5 το κελί που έχει την κεφαλίδα "Ονοματεπώνυμο" (αν το έχεις αλλάξει βάλε το σωστό)

Με το πάτημα του κουμπιού θα προστίθεται κάθε φορά μία νέα γραμμή στην πρώτη θέση του Πίνακα

Σπύρο συγνώμη

Αλλά μου βγάζει σφάλμα στο εξής :
Private Sub CommandButton1_Click()

Συγνώμη αλλά είμαι άρκετα αρχάρειος!!!
Ευχαριστώ

[Spirosgr]

Δημήτρη
Στο συνημμένο έχει προστεθεί και αυτή η λειτουργία.
Χρησιμοποίησέ το σαν πρότυπο.
Αντί για τα "άχαρα" κουμπιά που έχει η excel μπορείς να χρησιμοποιείς
τα σχήματα που υπάρχουν στο σχετικό μενού.
Εδώ κάναμε αντιγραφή ένα από τα υπάρχοντα σχήματα - κουμπιά και απλά βάλαμε
στο καινούριο (αντιγραμμένο) την αντίστοιχη εντολή.

[giannopoulos]

Αρχική Δημοσίευση από spirosgr

Δημήτρη
Στο συνημμένο έχει προστεθεί και αυτή η λειτουργία.
Χρησιμοποίησέ το σαν πρότυπο.
Αντί για τα "άχαρα" κουμπιά που έχει η excel μπορείς να χρησιμοποιείς
τα σχήματα που υπάρχουν στο σχετικό μενού.
Εδώ κάναμε αντιγραφή ένα από τα υπάρχοντα σχήματα - κουμπιά και απλά βάλαμε
στο καινούριο (αντιγραμμένο) την αντίστοιχη εντολή.

Σπύρο Καλημερα

Σ' ευχαριστώ Πολύ για την λύση που μου έδωσες.[B]
Τελικά η excel μπορεί να σου λύσει πολλά προβλήματα, χωρίς να χρειάζεται να πάς στις εταιρίες προγραμμάτων εμπορικής διαχείρησης, γιατί οι περισσότερες επιχειρήσεις στην Ελλάδα είναι μικρές σε όγκο δεδομένων με αποτέλεσμα οι εφαρμογές που σου προσφέρουν να είναι υπερβολικές και σε λειτουργίες αλλά και σε κόστος (αγορά - υποστήριξη).
Σ' ευχαριστώ και πάλι