[Μορφοποίηση] Τιμές από στήλη σε ένα κελί

[pierta]

Καλημέρα σας,

Θα ηθελα τη βοήθειά σας παρακαλώ

Στο συνημμένο θέλω στο κελί Ο37 να εμφανίζονται οι τιμές από τα πεδία O7:O36 αλλά μόνο όσα έχουν τιμή και ανάμεσα σε αυτά το &. Προσπάθησα με την CONCATENATE αλλά τα εμφανίζει συνεχόμενα.

Ευχαριστώ

[ChrisGT7]

Καλησπέρα Δημήτρη,

1ος τρόπος: Χρήση κώδικα VBA
1. Κάνε δεξί κλικ πάνω στο όνομα του φύλλου και επέλεξε View Code
2. Στον επεξεργαστή της VBA επέλεξε Insert > Module.
3. Εκεί κάνε επικόλληση τον παρακάτω κώδικα:

Option Explicit

Function JOINRNG(Rng As Range, S As String) As String
    Dim MyCell As Range, Str As String
    For Each MyCell In Rng
        If Len(Trim(MyCell)) Then Str = Str & MyCell & S
    Next
    JOINRNG = Left(Str, Len(Str) - Len(S))
End Function

Δημιουργήθηκε η συνάρτηση JOINRNG(), όπου δέχεται δύο ορίσματα:
Rng: Το εύρος που περιέχει τις τιμές που πρόκειται να ενωθούν στο κελί.
S: Η συμβολοσειρά που θα διαχωρίζει τις τιμές μεταξύ τους, π.χ. "&"
Απλά γράψε σ' ένα κελί: =JOINRNG(O7:O36;"&")

2ος τρόπος: Με αντικατάσταση
1. Σ' ένα κελί γράψε =, μάρκαρε την περιοχή των τιμών και στο τέλος πρόσθεσε: &"&". Λογικά πρέπει να βλέπεις: =O7:O36&"&"
2. Αντί για Enter πάτα F9. Λογικά πρέπει να βλέπεις:
={"5&";"8&";"9&";"7&";"&";"5&";"&";"12&";"&";"25&" ;"39&";"&";"&";"11&";"8&";"&";"&";"27&";"&";"12&"; "&";"13&";"&";"14&";"&";"22&";"39&";"&";"41&"; "&"}
3. Σβήσε το = και τις αγκύλες {} στην αρχή και στο τέλος της ακολουθίας και πάτα Enter.
4. Μάρκαρε το κελί μαζί με τουλάχιστον ένα ακόμα κελί και πάτα Ctrl+H.
5. Αντικατέστησε το ";" (μαζί με τα αυτάκια) με το τίποτα. Μετά την αντικατάσταση πρέπει να βλέπεις:
"5&8&9&7&&5&&12&&25&39&&&11&8&&&27&&12&&13&&14&&22 &39&&41&&"
6. Αντικατέστησε το && με το &. Πάτα Replace All μέχρι να σου εμφανίσει μήνυμα ότι δεν βρέθηκε άλλο.
7. Τέλος, σβήσε τα " στην αρχή και στο τέλος μαζί με το & στο τέλος.

[pierta]

Σε ευχαριστώ πολύ Χρήστο για τη βοήθεια και τον χρόνο σου.

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

Ευχαριστώ και πάλι.