[Excel07] Επεκτεινόμενη δυναμική λίστα

[Thanosp]

Kαλησπέρα σε όλους
Ανεβάζω το αρχείο του συνονόματου Θανάση(gr8styl) με ορισμένες παραμετρικές αλλαγές με δυνατότητα να καταχωρούνται σε διαφορετικά φύλλα.
(Αλλά πως θα γίνει όταν καταχωρείται ένα νέο όνομα ΠΡΟΜΗΘΕΥΤΉ να "περνάει" στη λίστα δεδομένων ;
Η απάντηση είναι με αυτο-επεκτεινόμενη δυναμική λίστα.)
Θανάσης

[gr8styl]

Καλησπέρα σας,
Συνονόματε (thanosp), δυσκολεύομαι να καταλάβω την χρησιμότητα της παραμετροποίησης που λες.

Από ότι είδα στο συνημμένο σου έχεις 3 λίστες, αντί για μία και 2 βοηθητικές που προσαρμόζονται ανάλογα με την λίστα που επιλέγουμε.
Με άλλα λόγια επιλέγουμε την λίστα που θέλουμε στο φύλλο1!H1 και αν αυτή είναι onom ή epiueto, πάμε στο φύλλο2 για να μεταβάλουμε την αντίστοιχη λίστα.

Τι είναι αυτό που μας περιορίζει να έχουμε τις 2 βοηθητικές στήλες Count και Rank για κάθε λίστα χωριστά και μάλιστα στο ίδιο φύλλο που είναι και η λίστα;

Μήπως υπάρχει κάτι που δεν κατάλαβα ; γιατί το ενδιάμεσο βήμα επιλογής λίστας ; σε τι μπορεί να χρησιμεύσει μια τέτοια προσέγγιση ;

Ευχαριστώ για το χρόνο σου.
Θανάσης

[Thanosp]

Kαλημέρα - Καλησπέρα σε όλους
Το σκεπτικό μου είναι ότι με την ίδια (count -rank - List ) να μπορούμε από διαφορετικά φύλλα να έχουμε περισσότερες λίστες. Ισως έχεις δίκιο γιατί με αυτό το στήσιμο του αρχείου, να μη προσφέρει τίποτα.
Ανεβάζω το αρχείο όπως θα το ήθελα, να κάνει.
Θανάσης

[gr8styl]

Θανάση, τώρα είναι σαφές.

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

Τέλος αν μου επιτρέπεις στο παράδειγμά σου θα πρέπει να διορθώσεις τον τύπο στο φύλλο bash στήλη Β σε =IF(RANK(A2;A:A)<=COUNTIF(A:A;">0");RANK(A2;A:A);0 ) για να μην σταματά στην γραμμή 25.

Ευχαριστώ και πάλι για το χρόνο σου.
Θανάσης

[gr8styl]

Στο συνημμένο η λύση με VBA, όπου απλά
1) Έχω ορίσει τα δύο ονόματα:
List=OFFSET(Φύλλο1!$A$2;;;COUNTA(Φύλλο1! $A:$A);1)
List_start=Φύλλο1!$A$1
και
2) τον παρακάτω κώδικα VBA στο Φύλλο1

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count = 1 And Target.Column >= 2 And Target.Column <= 5 Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        Range("List_start") = Cells(1, Target.Column)
        Columns(Target.Column).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("List_start"), Unique:=True
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Φιλικά
Θανάσης