19-08-24, 10:58
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 955
| |
Καλημέρα και καλή εβδομάδα Χρήστο,
Πριν τη γραμμή Application.Goto [A3], True, πρόσθεσε το παρακάτω κομμάτι κώδικα: Κώδικας: Range("A2:E" & [A2].CurrentRegion.Rows.Count).Sort Key1:=[A2], Order1:=xlAscending, Header:=xlYes
Range("G2:K" & [G2].CurrentRegion.Rows.Count).Sort Key1:=[G2], Order1:=xlAscending, Header:=xlYes
Range("M2:Q" & [M2].CurrentRegion.Rows.Count).Sort Key1:=[M2], Order1:=xlAscending, Header:=xlYes
Αν έχεις πρόβλημα με την εφαρμογή του, πες μου να ανεβάσω πάλι το αρχείο.
__________________
Your Curiosity Will Be The Death Of You! |