26-05-13, 00:48
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.402
| |
Ενεργοποίησε τις μακροεντολές και διόρθωσε και από τις επιλογές το Trast Center της Excel
αν χρειάζεται και όπου χρειάζεται
Αντικατέστησε μόνο σε αυτό το σημείο του κώδικα
ActiveWorkbook.Worksheets("Data").ListObjects("Tab le1").Sort.SortFields.Add _
Key:=Range("Table1[ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
την λέξη με κόκκινο
με αυτό
xlDescending
|