24-10-15, 18:43
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλησπέρα
Δεν θα ήθελα, να αναφερθώ σε θέματα, «κατασκευής» του κώδικα...
Επειδή όμως αναφέρεις, ότι δουλεύει και χωρίς αυτό, δοκίμασε το εξής:
Αυτή είναι η γραμμή. Κώδικας: SelectedRng.Parent.Range(c.Cells(i, 1), c.Cells(k - 1, 1)).Merge
και αυτή η γραμμή χωρίς το Parent Κώδικας: SelectedRng.Range(c.Cells(i, 1), c.Cells(k - 1, 1)).Merge
Επέλεξε την περιοχή b2:b20 και τρέξε τον κώδικα....
Δουλεύει, σωστά...; *Δεν υπάρχουν, κομψοί και άκομψοι κώδικες... |