Ανανέωση ιστοσελίδας

[Miltos100]

Θέλω να ταξινομήσω τις κληρώσεις του κινο κατά σειρά στο φυλλάδιο. Δηλαδή το αρχείο που περιέχει τις κληρώσεις παρουσιάζει τους αριθμούς στις κληρώσεις με την σειρά που έχουν κληρωθεί.
Μπορούμε να ταξινομήσουμε μια γραμμή κατά αύξουσα ή φθίνουσα σειρά αλλά για πολλαπλές γραμμές τι κάνουμε; Μπορεί να βοηθήσει η κατασκευή μιας μακροεντολής, αν ναι πως;

[Tasos]

Καλησπέρα Μίλτο!

Δεν προτείνεται η χρήση πολλαπλών γραμμών που περιέχουν δεδομένα που πρόκειται να επεξεργαστούν ξανά και ξανά...

Εκτός αυτού, ένα δείγμα του αρχείου σου θα μας βοηθούσε να σου απαντήσουμε.

Περιμένουμε νέα σου.

Φιλικά

Τάσος

[Miltos100]

Τάσο ευχαριστώ και πάλι για το ενδιαφέρον! Τελικά βρήκα λύση κατασκευάζοντας μια μακροεντολή ως εξής:

Sub sortData()
Dim r As Range, cell As Range, r1 As Range
Set r = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each cell In r
Set r1 = cell.Resize(1, 6)
r1.Sort Key1:=r1, _
Order1:=xlAscending, _
Orientation:=xlSortRows
Next
End Sub

Δουλεύει για ν γραμμές και μ στήλες.

[gr8styl]

Μίλτο,
αν τα δεδομένα σου αρχίζουν στο B2 και φτάνουν μέχρι την στήλη U, τότε
γράφεις στο κελί V2 τον τύπο
=SMALL($b2:$u2;column()-column($u2))
και σέρνεις προς τα δεξιά μέχρι την στήλη AO και προς τα κάτω όσο χρειάζεται.

Πρόκειται για μια εναλλακτική λύση χωρίς VBA.

Δοκίμασε το και πες μας
Θανάσης