24-05-12, 01:35
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Καλησπέρα Φίλοι μου. Ο Γιώργος έχει προτείνει ήδη λύση με το ConcatenateAndFormat.xls που κάνει το ζητούμενο του Θανάση.
Τώρα αν θέλουμε να προσαρμόσουμε και την λύση του Τάσου Delivery.xls αρκεί στον κώδικα της Conc_format
να προσθέσουμε πριν από το πρώτο End If τις παρακάτω δύο γραμμές: Else c = Replace(c, Chr(10), vbNullString) & " " & d
Πάμε για άλλα 
Τέλος καλό όλα καλά
Καληνύχτα και καλή ξεκούραση.
Φιλικά
Θανάσης
Τελευταία επεξεργασία από το χρήστη Tasos : 24-05-12 στις 05:55.
|