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

[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

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