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

[giannopoulos]

Παιδιά καλημέρα από ένα καινούργιο μέλος.
Θα ήθελα την βοηθειά σας στα παρακάτω:
Προσπαθώ να παρακολουθώ τα υπόλοιπα των πελατών και των προμηθευτών μέσω axcel,
Το πρόβλημά μου είναι ότι δεν μπορώ να μεταφέρω τα δεδομένα που θέλω.
Σας επισυνάπτω ένα παράδειγμα από το αρχείο μου.
Ευχαριστώ εκ' των προτέρων

[Spirosgr]

Καλημέρα
Φίλε Δημήτρη κάλως ήλθες στην παρέα μας
Παραδείγματα μεταφοράς αρχείων έχουμε στο φόρουμ πολλά.
Με τύπους με VBA με βοηθητικές στήλες κλπ Αλλά....
Σχετικά με το ζητούμενό σου με πρώτη ματιά να ρωτήσω το εξής:
Αν έχεις 1700 πελάτες θα πρέπει να έχεις και 1700 Φύλλα στο βιβλίο σου;

Γιατί δεν κάνεις έναν πίνακα με Όνομά, Ημερομηνία, Αιτιολογία, Χρέωση, Πίστωση, Υπόλοιπο
και να παίρνεις με Pivot ή και με Φίλτρο το αποτέλεσμα σου σε δύο Φύλλα όλα κι όλα;

[giannopoulos]

Σπύρο Καλησπέρα και ευχαριστώ για την γρήγορη ανταπόκριση. Το θέμα που αντιμετωπίζω είναι ότι θέλω ο κάθε πελάτης να εμφανίζεται σε χωριστό πίνακα ώστε να είναι πιο ξεκάθαρη η εικόνα και να μπορώ να στέλνω την καρτέλα μα email ή φαξ.

[Spirosgr]

Καλησπέρα
Με πολύ απλό τρόπο στο βιβλίο που ακολουθεί
έχουμε ότι χρειάζεται σε τρία φύλλα
Το παράδειγμα είναι οδηγός για να προσαρμοστεί στα δεδομένα σας
Φύλλα
1/ Δεδομένα (καταχώρηση)
2/ Επιλεγμένα (φιλτραρισμένα)
3/ Ανάλυση (Pivot)
Χρήση
Στα Δεδομένα καταχωρείται κάθε εγγραφή στον πίνακα (καθημερινές δοσοληψίες)
Φιλτράρουμε το όνομα του πελάτη και με έναν κώδικα (κλικ στο κουμπί)
μεταφέρονται μόνο τα φιλτραρισμένα (ορατά) στο φύλλο Επιλεγμένα

Εδώ τα εκτυπώνουμε ή τα επεξεργαζόμαστε αναλόγως

Λεπτομερής ανάλυση των δεδομένων στο φύλλο Ανάλυση με Πίνακα Pivot

[giannopoulos]

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

Καλησπέρα
Με πολύ απλό τρόπο στο βιβλίο που ακολουθεί
έχουμε ότι χρειάζεται σε τρία φύλλα
Το παράδειγμα είναι οδηγός για να προσαρμοστεί στα δεδομένα σας
Φύλλα
1/ Δεδομένα (καταχώρηση)
2/ Επιλεγμένα (φιλτραρισμένα)
3/ Ανάλυση (Pivot)
Χρήση
Στα Δεδομένα καταχωρείται κάθε εγγραφή στον πίνακα (καθημερινές δοσοληψίες)
Φιλτράρουμε το όνομα του πελάτη και με έναν κώδικα (κλικ στο κουμπί)
μεταφέρονται μόνο τα φιλτραρισμένα (ορατά) στο φύλλο Επιλεγμένα

Εδώ τα εκτυπώνουμε ή τα επεξεργαζόμαστε αναλόγως

Λεπτομερής ανάλυση των δεδομένων στο φύλλο Ανάλυση με Πίνακα Pivot

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

[Spirosgr]

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

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

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

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

[xristos]

Φίλοι του φόρουμε γειά σας.
Πολύ καλό το πρόγραμμα και θα ήθελα να το χρησιμοποιήσω και εγώ
αλλά θέλω η περιγραφή να ανοίξει περισσότερο
για να χωράει μεγαλύτερο κείμενο και να γίνεται αναδύπλωση κειμένου
προσπάθησα αλλά δεν μπόρεσα
πως γίνεται;;;

[Spirosgr]

Καλημέρα
Αν δεν το κάνεις χειροκίνητα (πράγμα απλό)...
Μεγαλώνεις την στήλη όσο θέλεις και αφού την επιλέξεις βάζεις Αναδίπλωση Κειμένου
Βάλε τον κώδικα:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Range("Table1[Περιγραφή]").ColumnWidth = 38.57
    Range("Table1[Περιγραφή]").WrapText = True
    Range("Table1[Περιγραφή]").EntireColumn.AutoFit
End Sub

στο φύλλο Συναλλαγές
και τον κώδικα

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Columns("F:F").ColumnWidth = 38.57
    Columns("F:F").WrapText = True
    Columns("F:F").EntireColumn.AutoFit
End Sub

στο φύλλο Καρτέλα
για να γίνει αυτόματα

[xristos]

Φίλοι του φόρουμ Καλησπέρα
Φίλε Σπύρο σε ευχαριστώ για την ανταπόκρισή σου και την βοήθειά σου
Όπως σου έγραψα προσπάθησα να το κάνω χειροκίνητα, αλλά δεν μπόρεσα
αλλά με τους κωδικούς μια χαρά
και θα ήθελα να προσθέσω στους φίλους αν θέλουν να μεγαλώσει περισσότερο
αλλάζουν τον αριθμό στον κωδικό.
Σε ευχαριστώ και πάλι, νάσε καλά
Συμπλήρωση. Στην καρτέλα Επαφές πάλι ήθελα να μεγαλώσει
και έβαλα τον κωδικό του φύλλου Καρτέλα απλά άλλλαξα το F με το Β
και δουλεύει..........

[Spirosgr]

Να 'σαι καλά Χρήστο σ' ευχαριστώ κι εγώ.
Παρεμπιπτόντως το σωστό δεν είναι κωδικοί αλλά ...Κώδικες.