Elenco a tendina filtrato senza spazi vuoti

[Azalyn]

ho un elenco di elementi che é nella colonna A1:A92; nella colonna accanto, B1:B92, ho la colonna con scritto i requisiti di attivazione.
Nella colonna E1:E92 ho messo l'elenco degli elementi filtrato con la funzione SE in base se siano attivi i requisiti , in caso contrario lo spazio rimane vuoto.
Il problema é che in un altro foglio vorrei fare l'elenco a tendina con la colonna E1:E92 ma mi segna anche gli spazi vuoti, c'é un modo per togliere questi spazi vuoti dal elenco a tenda?
Purtroppo non so come allegare un file esempio che dovrebbe chiarire le cose.

[alfrimpa]

Ciao Azalyn

Il file (senza il quale è difficile capire) lo puoi allegare con Filedropper, Dropbox o simili.

Comunque se negli elenchi vi sono degli spazi vuoti è normale che compaiano anche nella Convalida dati (se di questo si tratta).

Un'alternativa potrebbe essere una combobox che venga alimentata da VBA dei soli valori "non vuoti".

Ma ripeto, senza vedere, il file questi suggerimenti valgono poco.

[Azalyn]

https://mega.nz/#!uN90nBKY!Q0hSyReESoo1I4x-Oq7shN5WltAauVJzdT_xRjDB_9E ecco il download del file di esempio del mio problema

[Anthony47]

Immagino che quello che l'elenco che dicevi essere in E1:E92 in realta' e' quello in AN2 e sottostanti... Se e' cosi', allora potresti usare questa macro per creare in un'altra colonna l'elenco da usare come filtro:

Codice: Seleziona tutto

Private Sub Worksheet_Deactivate()
Dim Dest As String, myNext As Long, I As Long
'
Dest = "AQ"         '<<< Una colonna libera di Foglio1
With Sheets("Foglio1")
    .Range(Dest & 1).Resize(100, 1).ClearContents
    For I = 2 To 100
        If .Cells(I, "AN") <> "" Then
            .Cells(myNext + 1, Dest) = .Cells(I, "AN")
            myNext = myNext + 1
        End If
    Next I
    .Cells(2, Dest).Resize(myNext - 1).Name = "myFilt"
End With
End Sub


Per inserirla:
-tasto dx sul tab col nome Foglio1; scegli Visualizza codice. Si aprira' l'editor delle macro
-copia il codice e incollalo nel frame vuoto di dx
L'istruzione marcata <<< va personalizzata per indicare una colonna vuota in cui sara' creato l'elenco desiderato.

La macro assegna all'elenco creato il "nome" myFilt; per cui dove vuoi impostare la convalida da elenco ti bastera' impostare la convalida da elenco e come origine indicare =myFilt

La macro assume che i parametri vengono modificati in Foglio1 ma la convalida sia da impostare in un foglio differente; per cui l'elenco viene aggiornato al momento di deselezionare Foglio1.

Dopo questa modifica il file va salvato nel formato "macro enabled" , cioe' .xlsm

Ciao