Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Creare menu a tendina con selettore di dati

Ultimo Aggiornamento: 25/12/2016 12:18
Post: 2.501
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
21/12/2016 11:55

Ciao Davide

Quello che chiedi si può fare ma occorre fare ricorso al VBA (non so se hai conoscenze in materia).

Ti allego file dove sul foglio1 ho inserito una convalida dati in F1 che prende i dati dalla colonna A e tramite la macro che vedi qui

vb
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Not Intersect(Target, Range("f1")) Is Nothing Then
Application.ScreenUpdating = False
If Target.Value = "" Then Exit Sub
With Sheets("Foglio1").Range("A:A")
            Set Rng = .Find(What:=Range("f1").Value, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Rng.EntireRow.Delete
            End If
        End With
Application.ScreenUpdating = True
End If
End Sub


Nel momento in cui scegli una voce dalla Convalida Dati questa viene eliminata dall'elenco e non comparirà più nella tendina.

L'elenco in colonna A è dinamico nel senso che se aggiungi delle voci queste saranno aggiunte automaticamente alla convalida; per far questo si usa questa formula

vb
=SCARTO(Foglio1!$A$3;0;0;CONTA.VALORI(Foglio1!$A$3:$A$98);1)


Questo è solo uno spunto che andrà adattato al tuo file; sei capace di farlo?

Alfredo
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 08:11. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com