FILTRI SU LISTBOX

Hai un problema con Excel?

Nuova discussione

FILTRI SU LISTBOX
di salvewa (utente non iscritto) data: 16/09/2013 12:17:19
Ciao carissimi come state?
Sono di nuovo qui x risolvere, spero e grazie a voi, un errore sul file che allego.

Tengo subito a precisare, per correttezza, che il lavoro che vedrete non è opera mia. Ho solo adattato nel codice alcune piccole cose per quello che mi serviva fare.
Riscontro il seguente problema che non riesco a risolvere:
una volta caricata la Form e scelgo ad es. un dato dalla combob nr. 2 avrò probabilmente il seguente messaggio:
Err run-time 1004
Err definito dall'applicazione o dall'oggetto
e premuto Debug, la riga incriminata è:
aCombo = .Index(rngDb.Columns.EntireColumn, .Transpose(aRows), Array(i))

Scrivo su ""..avrò probabilmente il seguente mess.." perchè questo errore lo fa o subito, già scegliendo il primo dato dalla combob 2, o comunque la farà al secondo o al terzo tentativo di scelta dato.
Cosa non va e cosa bisogna modificare?

In attesa di un vostro, come sempre, preziosissimo aiuto, vi abbraccio e vi ringrazio a prescindere.
salvewa
FILTRI SU LISTBOX
di salvewa data: 16/09/2013 17:23:34
Aggiungo, oltre a quella che avevo già descritto, un'altra riga errore che mi evidenzia Debug:

aList = .Index(vLista.Columns.EntireColumn, .Transpose(aRows), Evaluate("column(A:J)"))

Rimango sempre in attesa di vostro possibile risolutivo riscontro.
Grazie a prescindere.
salvewa
di salvewa (utente non iscritto) data: 16/09/2013 23:58:00
Ciao,
nessuna soluzione
salvewa
di HarryBosch data: 17/09/2013 00:39:55
Non ho guardato tutto il codice inserito; però ho una domanda:
all'attivazione della Userform, le combobox vengono caricate con i valori univoci della relativa colonna.
Quando selezioni un valore da una delle combobox, vorresti che tutte le altre combobox si "adeguassero" mostrando le sole scelte possibili (derivate dal primo filtro) o comunque dovrebbero mostrare l'elenco univoco iniziale?
di salvewa (utente non iscritto) data: 17/09/2013 05:58:29
Ciao Harry,
grazie mille per avermi risposto.
Per ciò che mi domandi ti dico che il file, in effetti, fa esattamente quello che tu descrivi e cioè: le combox mostrano, fin dall'inizio e per ogni scelta possibile, valori univoci in elenco e si adeguano mostrando le conseguenti scelte possibili dopo la mia selezione di un dato valore.
Avrai modo di notare tutto questo guardando tutto il codice e superando gli errori momentanei che crea.
Grazie Harry per la tua disponibilità.
Rimango in attesa.
salvewa
di salvewa (utente non iscritto) data: 17/09/2013 19:56:51
di HarryBosch data: 17/09/2013 23:07:26
Allora, ho ricostruito l'esempio in quanto il codice andava rivisto parecchio, almeno sembrava.
Non ho fatto in tempo a inseriti i vari commenti se non all'inizio delle Sub, giusto per capire la loro funzione.
Il codice mi sembra ora anche più leggibile...

Verifica se fa era quello che intendevi, eventualmente ci sarà da applicare un "Sort" prima di caricare le combo, se preferisci avere un determinato ordinamento.
Allego il file "filtro su listbox 2"
di salvewa (utente non iscritto) data: 18/09/2013 15:33:37
Ciao Harry,
Scusa per il ritardo con cui ti rispondo che mi è stato causato da un lungo turno di lavoro.
GRAZIE INFINITE, innanzitutto, per la tua gentilissima disponibilità.
Sono senza parole relativamente a ciò che hai fatto per rendere perfetto questo file. GRAZIE MILLE. Era proprio quello che volevo.
GRAZIE anche per i commenti esaustivi che hai scritto prima di ogni routine.
Harry, come vedrai nel file che ho allegato, "Filtro su listbox 3" ho definitivamente aggiornato, per quello che poi mi servirà questo lavoro, i numeri delle combob, quindi il nr. delle colonne sul foglio e ho conseguentemente implementato anche il tuo codice per questo nuova situazione; tutto è ok.
Trovo una difficoltà quando scelgo il valore anno dalla combob nr 13 "Anno" Statistiche Partenza: infatti scelto il valore 2010 e la listb mi restituisce nella colonna Anno il 1900 e nella colonna Mese solo gen-00.
Infine ti chiedo cortesemente ancora una cosa Harry, se è possibile:
ho inserito, come noterai, sotto ogni combob, escluse Anno e Mese, una text nella quale vorrei, ogni qualvolta che seleziono un valore dalle combob, si visualizzasse un subtotale dei rispettivi valori: che sono subtotali di quantità dei valori numerici per le tutte le combobox Pax e Merce (le ultime tre combob Stat Arrivi e le ultime cinque Stat Partenze) e subtotali di conteggio del valore scelto in tutte le altre combob.
Harry, spero di essere stato chiaro.
GRAZIE MILLE ancora a prescindere.
salvewa
di salvewa (utente non iscritto) data: 18/09/2013 20:19:31
Ciao Harry,
ho risolto, e funziona benissimo, il problema relativo alla visione nella list della data Anno 1900 e Mese gen-00 causato da un mio errore nell'aggiornamento del file che mi avevi postato.
Rimane valida, sempre se è possibile, la richiesta di quello che ti ho già scritto in precedenza circa i subtotali nelle textb.
Grazie ed un abbraccio
salvewa
di HarryBosch data: 19/09/2013 09:08:39
Ok, vediamo se ho capito bene...
prova ora il file "filtro su listbox 4"
di salvewa (utente non iscritto) data: 19/09/2013 09:34:24
Caro Harry,
FANTASTICO, SUPERLATIVO, ECCEZIONALEEEEEEEE Complimenti.
Hai colto in pieno ciò che intendevo.
Rimango assolutamente in debito con te Harry.
Sei stato gentilissimo e disponibilissimo: GRAZIE UN MILIARDO
Un grande abbraccio ed alla prossima.
GRAZIE GRAZIE GRAZIE
salvewa
di salvewa (utente non iscritto) data: 19/09/2013 10:21:13
Ciao Harry,
ti chiedo scusa. Solo una cortesia.
Mi sono accorto solo ora che le due text di "Statistiche Partenze" afferenti i subtotali delle combob: P Part e P CH Part visualizzano subt di conteggio valori selezionati in combob, mentre devono visualizzare subt quantità valori numerici.
Harry ho provato a modificare per non disturbarti ma non ci sono riuscito.
Scusami ancora e grazie.
salvewa

di HarryBosch data: 19/09/2013 14:31:53
Già... mi sono rimaste fuori due text per via di quei due campi senza text a metà (anno e mesi) :)
Sostituisci tutta la Sub popola_text() con questa qua sotto e dovresti risolvere...

Sub popola_text()
    Dim t As Byte
    For t = 3 To 13
        If (t >= 11 And t <= 13) Then
            Me.Controls("Textbox" & t - 2) = WorksheetFunction.Subtotal(9, mydata.Columns(t))
        Else
            Me.Controls("Textbox" & t - 2) = mydata.Rows.Count - 1
        End If
    Next
    For t = 16 To 28
        If (t >= 24 And t <= 28) Then
            Me.Controls("Textbox" & t - 4) = WorksheetFunction.Subtotal(9, mydata.Columns(t))
        Else
            Me.Controls("Textbox" & t - 4) = mydata.Rows.Count - 1
        End If
    Next
End Sub

di salvewa (utente non iscritto) data: 19/09/2013 14:48:20
GRAZIE INFINITE HARRY
Ora è tutto super OK
Un grande abbraccio ed alla prossima
salvewa

Vuoi Approfondire?