[Excel07] Μετατροπή προβολής δεδομένων

[γιώργοςΚ]

Αγαπητοί φίλοι γειά σας,

Είμαι νέος στο φόρουμ για excel και σχετικά μέτριος γνώστης της excel 2007. Αντιμετωπίζω το εξής θέμα και ζητώ την βοήθεια σας.

Έχω ένα φύλο excel μέσα στο οποίο αναγράφωνται σε κάθετη σειρά τα πχ τα ακόλουθα:

Όνομα
Επώνυμο
Διεύθυνση
Τηλέφωνο

Το ερώτημα είναι: Πως μπορώ να εμφανίζωνται όλα τα πιο πάνω σε οριζόντια σειρά όπως πχ

Όνομα Επώνυμο Διεύθυνση Τηλέφωνο


Γνωρίζω πως η excel έχει μια τέτοια δυνατότητα πατώντας μια εντολή να κάνει αυτή την μετατροπή και μάλιστα στο παρελθόν είχα κάνει κάτι τέτοιο..

Παραθέτω παράδειγμα για να γίνει πλήρως κατανοητό τι ζητώ

Ευχαριστώ εκ προτέρων

[Spirosgr]

Καλημέρα
Δύο κλασσικοί τρόποι, θα μπορούσαν να δώσουν λύση.
1
Συνάρτηση Transpose
Έστω, θέλουμε να έχουμε σε οριζόντια διάταξη, τις 7 κάθετες γραμμές (εικόνα 1) μιας περιοχής
1.Επιλέγουμε 7 στήλες (οριζόντια, ένα κελί ανά στήλη)
ΠΡΟΣΟΧΗ:
όσες γραμμές τόσες στήλες
2.Πληκτρολογούμε, τον τύπο
3.εισάγοντας την κάθετη περιοχή
Εισάγουμε τον τύπο, με Ctr + Shift + Enter
Το αποτέλεσμα (εικόνα 2)
Τσεκάρουμε, εισάγοντας πχ ΑΦΜ (εικόνα 3) ο οποίος πηγαίνει, στην κατάλληλη θέση (εικόνα 3)

2
Copy - Paste - Transpose
1.Αντιγράφουμε, την περιοχή και
2.επιλέγουμε, που θέλουμε να πάει (εικόνα 4)

1.Την περιοχή μας, την κάνουμε επικόλληση
2.στην κατάλληλη θέση,
χρησιμοποιώντας, το σύμβολο Transpose (εικόνα 5)

[Spirosgr]

Και μια λύση με κώδικα
3
Κώδικας
Χρησιμοποιούμε, σε ένα κουμπί τον κώδικα

Sub Button1_Click()
    Dim rng As Range, c As Range, FinalCol As Long
    Set rng = Range("myRng")
    
    For Each c In rng
        If c.Value <> "" Then
        FinalCol = Cells(5, Columns.Count).End(xlToLeft).Column + 1
            Sheet1.Cells(5, FinalCol).Value = c.Value
        End If
    Next c
End Sub

Σημειώσεις:
Ισχύει, για την διάταξη της εικόνας 6
Μπορείτε, να τροποποιήσετε ανάλογα

[γιώργοςΚ]

Καλημέρα αγαπητέ φίλε Σπύρο,

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

Σε ευχαριστώ εκ προτέρων

[Spirosgr]

Θεωρώ, ότι αυτό που έκανα με τις εικόνες,
είναι καλύτερο, από αυτό το «ξερό» αποτέλεσμα σε ένα βιβλίο,
το οποίο, ακριβώς επειδή δεν είσαι προχωρημένος χρήστης,
δεν θα έχει να σου δώσει και πάρα πολλά ...

[γιώργοςΚ]

Καλησπέρα Σπύρο και σε ευχαριστώ ξανά για την βοήθεια σου.

Έχεις δίκιο για τα όσα λές...χρειάζομαι μελέτη και αυτό είναι σίγουρο. Πάραυτα, μελετώντας το παράδειγμα σου κατανόησα τελικά "πως γίνεται η δουλειά" αλλά αυτό που δεν κατάλαβα είναι πώς μπορώ να βάλω κουμπί - εντολή στο excel πράγμα που θα με ενδιέφερε να μάθω εάν μπορείς να μου εξηγήσεις φίλε μου.

Σε κάθε περίπτωση σε ευχαριστώ ξανά για την σημαντική σου βοήθεια.

Νάσαι καλά

[Spirosgr]

Ακολούθησε τις οδηγίες στις πιο κάτω εικόνες.

1. Επιλογή κουμπιού Προγραμματιστής >> Εισαγωγή >> Στοιχεία φόρμας (επάνω)
2. Ανοίγει διάλογος
Αν New (1)
2α. και γράφουμε νέο κώδικα
Αν Cancel (2)
2β. και εμφάνιση σε φύλλο, οπότε συνδέουμε υπάρχοντα κώδικα
Τέλος...
3. Δίνουμε τίτλο

[γιώργοςΚ]

Καλησπέρα και πάλι Σπύρο,

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

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

Ευχαριστώ πολύ

[Spirosgr]

Ευχαριστώ πολύ Γιώργο...
κι εσύ ό, τι επιθυμείς!