menu a tendina con filtro per selezione elenco

[marcus69]

ciao,

nel file allegato ho un form con cui devo fare una selezione articoli.
due fogli: lista e selezioni
Nell'esempio ho messi 30 articoli, in realtà ne ho circa 2000, variabili.

Il menu a tendina li mostra tutti, ed è confuso ricercarli.

Voglio fare in modo che digitando nella cella B2 del foglio selezione ( e successive righe colonna B ) il menu a tendina "filtri" con gli elementi che contengono solo quelle parole e mostri solo quelle:

ad esempio scrivo " la " nel menu a tendina voglio vedere solo : Rosatella, Bombola, Bussola Mela Stella lampada

Ho provato con la soluzione " scarto di alcuni esempi presi dal web, ma non va bene, ha bisogno di una colonna di appoggio e non permette inserimento diretto in cella.

io vorrei replicare la funzione "FILTRI", su ogni riga della colonna B del foglio seleziona, filtrando l'elenco del foglio lista.

Mi va bene formula, VBA, polvere magica, qualsiasi cosa , anche solo una dritta della direzione in cui muovermi, ho finito le idee e non so come proseguire.

grazie a tutti

ciao
Andrea


https://docs.google.com/spreadsheets/d/ ... ue&sd=true

[Anthony47]

Voglio fare in modo che digitando nella cella B2 del foglio selezione ( e successive righe colonna B ) il menu a tendina "filtri" con gli elementi che contengono solo quelle parole e mostri solo quelle

Mentre digiti qualcosa nelle celle, excel e' congelato quindi non puo' cambiarti l'elenco di convalida.

Potresti farlo con una userform che si attiva quando selezioni una cella in colonna B di Seleziona; poi da lì, usando o un Combobox oppure un Listbox + Textbox di filtro vari in modo dinamico l'elenco fino alla scelta finale.

E' sufficiente lo spunto o serve un "aiutino ulteriore"?

[marcus69]

mmmm temevo non fosse possibile la cella autoaggiornante.

mi studio il tuo suggerimento e ti dico in giornata grazie

ciao

[marcus69]

aiuto...

https://drive.google.com/file/d/1VPehFO ... sp=sharing

mi sono impantanato su come applicare le azioni, è la prima volta che uso userform- combox

hai un esempio da cui prendere spunto per cortesia sul discorso di digitare in una cella, attivazione dello userform e vedere il filtrato che posso selezionare?

[marcus69]

allora questo form va benissimo fa esattamente quello che mi serve, se in una cella metto un pulsante che lo attiva e faccio selezionare con questo form va bene

https://drive.google.com/file/d/1ncBYij ... share_link

ma poi come faccio a fargli inserire il risultato selezionato nella cella che è selezionata?

[marcus69]

ok ho cambiato dove c'è il mostra messaggio con una funzione che individua la cella libera nella colonna che mi interessa e inserisce, vado avanti nello sviluppo e vediamo come procedo

[Marius44]

Ciao
Vediamo se ho capito bene.

IMPORTANTE:
a) ho utilizzato il file di cui al post #1
b) in detto file la colonna E del Foglio("lista") deve essere vuota
c) ho inserito una convalida dati nella cella H2 del Foglio("seleziona")
d) nel Modulo del Foglio("seleziona") ho inserito questo codice

Codice: Seleziona tutto

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, rCell As Range
Dim ur As Long, i As Long, j As Long, a As Long
Dim lng As Integer, lunga As Integer
Dim ele As String, digit As String, txt As String, frm As String

If Not Intersect(Target, Range("H2")) Is Nothing Then
  ur = Sheets("lista").Cells(Rows.Count, 2).End(xlUp).Row
  ele = "B2:B" & ur
  Sheets("lista").Range("E:E").ClearContents
  Set Rng = Sheets("lista").Range(ele)
  digit = Sheets("seleziona").Cells(2, 8).Value
  lng = Len(digit)
  a = 1
  For Each rCell In Rng.Cells
    lunga = Len(rCell)
    For j = 1 To lunga 'se valore cella è simile a quanto digitato
      txt = Mid(rCell, j, lng)
      If txt Like digit Then
        a = a + 1 'scrive il dato in col E di lista
        Sheets("lista").Cells(a, 5) = rCell.Value
        Exit For
      End If
    Next j
  Next
  'assegna l'elenco alla convalida
  ur = Sheets("lista").Cells(Rows.Count, 5).End(xlUp).Row
  frm = "=lista!$E$2:$E$" & ur
  If ur >= 2 Then
    With Sheets("seleziona").Cells(2, 8).Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=frm
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = ""
      .InputMessage = ""
      .ErrorMessage = ""
      .ShowInput = True
      .ShowError = False
    End With
  End If
End If
End Sub


Una volta inserito uno o più caratteri nella cella H2 e si dà Invio, se si clicca sulla freccia della convalida si apre un elenco con i nomi che contengono quanto digitato.
Il file lo trovi qui https://www.dropbox.com/s/v0llu4t1h7r9yv5/test_VBA.xlsm?dl=0

Fai sapere. Ciao,
Mario

[marcus69]

ciao,

eccomi sono arrivato qui :

https://drive.google.com/file/d/15zKC8E ... share_link

fa esattamente quello che deve, funziona, ma non capisco come togliere il limite alla visualizzazione filtrata

se io quando clicco la user form inserisco "LA" vedo solo alcuni risultati, li devo vedere tutti, ed eventualmente avere una barra di scorrimento a destra per scendere.

mi date qualche dritta per cortesia?

grazie

[marcus69]

Ciao
Vediamo se ho capito bene.

IMPORTANTE:
a) ho utilizzato il file di cui al post #1
b) in detto file la colonna E del Foglio("lista") deve essere vuota
c) ho inserito una convalida dati nella cella H2 del Foglio("seleziona")
d) nel Modulo del Foglio("seleziona") ho inserito questo codice

Codice: Seleziona tutto

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, rCell As Range
Dim ur As Long, i As Long, j As Long, a As Long
Dim lng As Integer, lunga As Integer
Dim ele As String, digit As String, txt As String, frm As String

If Not Intersect(Target, Range("H2")) Is Nothing Then
  ur = Sheets("lista").Cells(Rows.Count, 2).End(xlUp).Row
  ele = "B2:B" & ur
  Sheets("lista").Range("E:E").ClearContents
  Set Rng = Sheets("lista").Range(ele)
  digit = Sheets("seleziona").Cells(2, 8).Value
  lng = Len(digit)
  a = 1
  For Each rCell In Rng.Cells
    lunga = Len(rCell)
    For j = 1 To lunga 'se valore cella è simile a quanto digitato
      txt = Mid(rCell, j, lng)
      If txt Like digit Then
        a = a + 1 'scrive il dato in col E di lista
        Sheets("lista").Cells(a, 5) = rCell.Value
        Exit For
      End If
    Next j
  Next
  'assegna l'elenco alla convalida
  ur = Sheets("lista").Cells(Rows.Count, 5).End(xlUp).Row
  frm = "=lista!$E$2:$E$" & ur
  If ur >= 2 Then
    With Sheets("seleziona").Cells(2, 8).Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=frm
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = ""
      .InputMessage = ""
      .ErrorMessage = ""
      .ShowInput = True
      .ShowError = False
    End With
  End If
End If
End Sub


Una volta inserito uno o più caratteri nella cella H2 e si dà Invio, se si clicca sulla freccia della convalida si apre un elenco con i nomi che contengono quanto digitato.
Il file lo trovi qui https://www.dropbox.com/s/v0llu4t1h7r9yv5/test_VBA.xlsm?dl=0

Fai sapere. Ciao,
Mario

grazie, ma il file qui

https://drive.google.com/file/d/15zKC8E ... share_link

è piu vicino al risultato che devo ottenere, devo fare in modo di vedere tutte le occorrenze

[marcus69]

trovato era la prima riga, procedo e vi aggiorno

[Anthony47]

Pensavo avessi gia' una esperienza sulle userform, ma vedo che sei costretto ad andare su google a cercare esempi da adattare, ma così impari meglio

Ti propino anche il mio esempio, basato sul tracciato dati del tuo primo messaggio; lo trovi qui: https://www.dropbox.com/s/4f75ylpds08e2 ... .xlsm?dl=0

Se vai sul foglio Seleziona e selezioni una cella di colonna B si apre questa userform:



Nel textbox 1 puoi scrivere qualcosa, e il listbox2 si aggiornera' con le voci che contengono quella stringa; quando selezioni una voce in 2 questa viene scritta sulla cella selezionata; la selezione passa alla cella successiva e il ciclo si puo' ripetere.
Con le frecce dello Spinbutton 3 puoi selezionare la riga precedente o successiva (senza modificare il contenuto della selezione corrente).
Il pulsante 4, o il click sulla userform o la X rossa consentono di chiudere la userform (si riaprira' quando riselezioni una cella di colonna B)
All'interno della Sub UserForm_Initialize si puo' definire quale e' l'inizio della base dati da usare per popolare il listbox (istruzione marcata <<<)

La Sub TextBox1_Change gestisce il filtro del contenuto del listbox

Le Sub SpinButton1_SpinUp /SpinDown muovono la selezione senza scriverci

Vedi quanto e' simile alla tua esigenza; sperimenta e adatta...

[marcus69]

Le tue soluzioni son sempre top.
A livello di codice è analisi dati , come scrivevo qualche settimana fa sopratutto grazie al forum, son diventati molto proficuo e autonomo.

Si è verificata questa nuova esigenza e già : esperienza zero. E come hai ben visto non mi scoraggio. Chiedo vado provo smanettò.

Stavo provando la tua soluzione. È proprio carina. Molto più stilosa della mia.

Domani la provo e vedo come adattarla

Grazie sempre 1001.

[marcus69]

sei una forza, la tua soluzione è molto piu bella della mia !!! va alla grande.

elaboro e compongo

GRAZIE

[Anthony47]

la tua soluzione è molto piu bella della mia

Ci speravo

va alla grande

Prima che te ne accorga troppo tardi, quando clicchi fallo velocemente, perche' se tieni premuto a lungo come fanno i boomers allora rischi di riempire tante righe con lo stesso valore...