[Γενικά] Προσαρμοσμενη ταξινομιση

[stam75]

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

[kapetang]

Καλησπέρα

Σταμάτη, για να πει κάποιο μέλος, αν είναι εφικτό ή όχι το ζητούμενο, θα πρέπει να το κατανοήσει.

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

[stam75]

Καλημέρα, έχω ανεβάσει το βιβλίο με το παράδειγμα.

[kapetang]

Καλησπέρα

Σταμάτη, δες μια πρόταση στο συνημμένο.

Θα μπορούσες επίσης για να ταξινομούνται σωστά οι πόλεις να προσθέτεις πριν από το όνομά τους έναν κατάλληλο αριθμό (πχ 001.ΑΘΗΝΑ, 002.ΘΕΣΣΑΛΟΝΙΚΗ, 003.ΠΑΤΡΑ, ….)

[stam75]

Καλησπέρα Γιώργο, ο τρόπος σκέψης σου δούλεψε πάρα πολύ ωραία. Σε ευχαριστώ πάρα πολύ για τον χρόνο σου. Μπορούμε να κάνουμε κάτι με τις 3 κενές γραμμές που υπάρχουν ανάμεσα ώστε να μην κρύβονται;

[kapetang]

Σταμάτη, δες το συνημμένο.

Άφησα μόνο μία κενή γραμμή πάνω από τον πίνακα.

Επίσης πάγωσα τις επικεφαλίδες των πινάκων για να μη κρύβονται στην κατακόρυφη κύλιση της οθόνης.

Ελπίζω αυτό να ήθελες.

[stam75]

Γιώργο σε ευχαριστώ πολύ για τον χρόνο σου, το εκτιμώ πολύ.
Για τις γραμμές που αναφέρθηκα πιο πριν εννοούσα τις περιοχές του Φύλλου1 B6:F6, B32:F32 και B76:F76.
Είναι σαν διαχωριστικό κατηγοριών εκεί. Για αυτό άφησα την περιοχή έτσι.
Εάν έχεις κάτι στο μυαλό σου που μπορεί να γίνει καλώς, αλλιώς δεν πειράζει!
Σε ευχαριστώ και πάλι

[stam75]

Γιώργο με φώτισε και έκανα δύο καταγραφές μακροεντολών.
πως όμως τώρα μπορώ να τις δουλεύω και τις δύο μαζί με ένα κουμπί;

Sub FirstFilter()
'
' FirstFilter ÌáêñïåíôïëÞ
'

'
    Range("C6:F6").Select
    Selection.AutoFilter
    Range("C6").Select
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("C7:C31"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "ÁÈÇÍÁ,ÈÅÓÓÁËÏÍÉÊÇ,ÐÁÔÑÁ,ÇÑÁÊËÅÉÏ,ËÁÑÉÓÁ,ÂÏËÏÓ,ÉÙÁÍÍÉÍÁ,ÔÑÉÊÁËÁ,×ÁËÊÉÄÁ,ÓÅÑÑÅÓ,ÁËÅÎÁÍÄÑÏÕÐÏËÇ,ÎÁÍÈÇ,ÊÁÔÅÑÉÍÇ,ÁÃÑÉÍÉÏ,ÊÁËÁÌÁÔÁ,ÊÁÂÁËÁ,×ÁÍÉÁ,ËÁÌÉÁ,ÊÏÌÏÔÇÍÇ,ÑÏÄÏÓ,ÄÑÁÌÁ,ÂÅÑÏÉÁ,ÊÏÆÁÍÇ,ÊÁÑÄÉÔÓÁ,ÑÅÈÕÌÍÏ,ÐÔÏËÅÌÁÚÄÁ,ÔÑÉÐÏËÇ,ÊÏÑÉÍÈÏÓ,ÃÅÑÁÊÁÓ,ÃÉÁÍÍÉÔÓÁ,ÌÕÔÉËÇÍÇ,×ÉÏÓ,ÓÁËÁÌÉÍÁ,ÅËÅÕÓÉÍÁ,ÊÅÑÊÕÑÁ,ÐÕÑÃÏÓ,ÌÅÃÁÑÁ" _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C6:F6").Select
    Selection.AutoFilter
End Sub

Sub SecondFilter()
'
' SecondFilter ÌáêñïåíôïëÞ
'

'
    Range("C32:F32").Select
    Selection.AutoFilter
    Range("C32").Select
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("C33:C75"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "ÁÈÇÍÁ,ÈÅÓÓÁËÏÍÉÊÇ,ÐÁÔÑÁ,ÇÑÁÊËÅÉÏ,ËÁÑÉÓÁ,ÂÏËÏÓ,ÉÙÁÍÍÉÍÁ,ÔÑÉÊÁËÁ,×ÁËÊÉÄÁ,ÓÅÑÑÅÓ,ÁËÅÎÁÍÄÑÏÕÐÏËÇ,ÎÁÍÈÇ,ÊÁÔÅÑÉÍÇ,ÁÃÑÉÍÉÏ,ÊÁËÁÌÁÔÁ,ÊÁÂÁËÁ,×ÁÍÉÁ,ËÁÌÉÁ,ÊÏÌÏÔÇÍÇ,ÑÏÄÏÓ,ÄÑÁÌÁ,ÂÅÑÏÉÁ,ÊÏÆÁÍÇ,ÊÁÑÄÉÔÓÁ,ÑÅÈÕÌÍÏ,ÐÔÏËÅÌÁÚÄÁ,ÔÑÉÐÏËÇ,ÊÏÑÉÍÈÏÓ,ÃÅÑÁÊÁÓ,ÃÉÁÍÍÉÔÓÁ,ÌÕÔÉËÇÍÇ,×ÉÏÓ,ÓÁËÁÌÉÍÁ,ÅËÅÕÓÉÍÁ,ÊÅÑÊÕÑÁ,ÐÕÑÃÏÓ,ÌÅÃÁÑÁ" _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C32:F32").Select
    Selection.AutoFilter
End Sub

[kapetang]

Οι πίνακες, για να λειτουργούν σωστά, δεν πρέπει να έχουν κενές γραμμές.

Αν ακολουθήσεις συνεπώς την πρότασή μου, ξέχνα το φύλλο1.

Αν θέλεις να ομαδοποιείς τις γραμμές, κατά κατηγορία, πρόσθεσε στον πίνακα και μια στήλη με την κατηγορία κάθε γραμμής.

Έτσι θα μπορείς να φιλτράρεις ή να ταξινομείς τις γραμμές του πίνακα και με βάση την κατηγορία.

[kapetang]

Σταμάτη δεν μπορώ να καταλάβω τα κινέζικα του κώδικα και δε μπορώ να μαντέψω τις σκέψεις σου.

Στα πλαίσια του διαθέσιμου χρόνου μου, σου πρότεινα μια λύση, χωρίς κώδικα.

Τώρα βλέπω ότι ψάχνεις λύση με κώδικα.

Κατά τη γνώμη μου δε χρειάζεται, αλλά εσύ αποφασίζεις.