Καλησπέρα Spirosgr,

Κατ’ αρχήν θέλω να σε ευχαριστήσω για το ενδιαφέρον που δείχνεις.

Επισυνάπτω module concatenate που από το Export 1 φύλλο γίνεται Export 2.
Τώρα η τελική μορφή που πρέπει να πάρει το φύλλο είναι το Export 3.
‘Όπως θα δεις μέσα στο module concatenate υπάρχουν κάποιες λέξεις κλειδιά που όταν τις βρει γίνεται η αναδίπλωση.
Το ερώτημα μου είναι πώς μπορώ μέσω αυτών των κλειδιών να έχω αυτά τα κλειδιά και bold.

Φιλικά
Θανάσης

Καλησπέρα

Θανάση (devcon) για να μπορέσει κάποιος να προσαρμόσει τον κώδικα του συνονόματό σου (ταιριάζει καλύτερα) ή αυτόν που ανέβασες στα δεδομένα σου, θα πρέπει να ξεκαθαρίσεις πως είναι οργανωμένα.

Βλέπω ότι δεν κάνεις το απολύτως αναγκαίο. Δεν παρουσιάζεις:

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

2) Την αντίστοιχη περιοχή με τις φράσεις που θα αποτελέσουν το δεύτερο συνθετικό.

3) Την αντίστοιχη περιοχή με τους τύπους που θα δημιουργούν τη σύνθετη φράση.

Φιλικά/Γιώργος

Καλησπέρα σε όλους!

Αγαπητέ Θανάση,

αυτό που ζητάς δεν έχει και πολύ σχέση με το αρχικό σου ερώτημα :fryingpan:

Δες όμως το συνημμένο που πιστεύω ότι θα σε βοηθήσει να συνεχίσεις.

Φιλικά

Τάσος

Καλησπέρα στην παρέα

Αν και το ζητούμενο καλύφτηκε από τον Τάσο, επειδή ασχολήθηκα με το θέμα, ανεβάζω και τη δική μου προσέγγιση.

Συνοπτικά:

1) Στο φύλλο «KeyWords» υπάρχει μία λίστα με τις λέξεις που προκαλούν αλλαγή γραμμής.
Η λίστα αυτή είναι δυναμική και ονομάζεται «KeyWds».

2) Δημιουργήθηκε μία συνάρτηση χρήστη «Conc(Arg1;Arg2)» που συνενώνει, σύμφωνα με το ζητούμενο, τις φράσεις που περιέχουν τα κελιά Arg1 και Arg2.

3) Στο φύλλο «Result» προστέθηκε ένα κουμπί για τη μορφοποίηση των αποτελεσμάτων της συνάρτησης.

Φιλικά/Γιώργος

Αγαπητέ Τάσο,

Άριστα.
Δεν έχω λόγια πως να σε ευχαριστήσω. Είναι ακριβώς αυτό που ήθελα.

Φιλικά Θανάσης

Τάσο καλημέρα,

Παρατήρησα ότι όταν δεν είναι λέξεις κλειδιά από την στήλη “C” δεν τα κάνει συνένωση (concatenate) με την στήλη “B”.

Θα ήθελα οι λέξεις που δεν είναι κλειδιά που βρίσκονται στην στήλη “C” να συνενώνονται με την στήλη “B” (πχ. Β2 & “ “ & C2).
Μετά το πέρας της επεξεργασίας της κολόνας “B” η κολόνα “C” να διαγράφεται.

Μήπως σου είναι εύκολο να κάνεις αυτή την διόρθωση;

Σε ευχαριστώ για την βοήθεια.

Φιλικά Θανάσης

Καλησπέρα Φίλοι μου.

Ο Γιώργος έχει προτείνει ήδη λύση με το ConcatenateAndFormat.xls που κάνει το ζητούμενο του Θανάση.

Τώρα αν θέλουμε να προσαρμόσουμε και την λύση του Τάσου Delivery.xls αρκεί στον κώδικα της Conc_format
να προσθέσουμε πριν από το πρώτο End If τις παρακάτω δύο γραμμές:

Else
c = Replace(c, Chr(10), vbNullString) & " " & d

Πάμε για άλλα
:chat:
Τέλος καλό όλα καλά
Καληνύχτα και καλή ξεκούραση.

Φιλικά
Θανάσης

Αγαπητέ συνονόματε,

Σε ευχαριστώ για την απάντηση και την λύση του προβλήματος.

Σου εύχομαι μια καλή και εποικοδομητική ημέρα.

Θανάσης