Popolare più combobox contemporaneamente

Hai un problema con Excel?

Nuova discussione

Popolare più combobox contemporaneamente
di Luca (utente non iscritto) data: 21/12/2014 14:40:34
Buongiorno a tutti,

in questi giorni mi sto dedicando ad un nuovo lavoretto con excel.

Utilizzato un form, con più campi ripetuti, volevo popolare in fase di attivazione dello stesso le varie combobox.

Nomi delle combobox sono:

Categoria_1, Ordine_1, Vettura_1
Categoria_2, Ordine_2, Vettura_2
Categoria_3, Ordine_3, Vettura_3
Categoria_4, Ordine_4, Vettura_4
Categoria_5, Ordine_5, Vettura_5
ecc
ecc

Tutte le combo devono mostrare gli stessi valori per cui ho pensato di realizzare il segunte codice ( è solo un esempio ):

For Init_Campo_Vettura = 1 To 10
For Init_Numero_Vettura = 1 To 11
Controls("Vettura_" & CStr(Init_Campo_Vettura)).AddItem = Init_Numero_Vettura
Next
Next

Purtroppo quando eseguo la macro compare:

Proprietà o metodo non supportati dall'oggetto.

Quale soluzione mi proponete?

Vi ringrazio per l'aiuto che potrete fornirimi.
Luca.
di lepat (utente non iscritto) data: 21/12/2014 16:22:16
nessuna se non alleghi un file di esempio in modo da capire cosa c'è che non funziona

di Luca (utente non iscritto) data: 21/12/2014 16:27:09

Private Sub UserForm_Activate()
    'Inizializzazione Userform Inserimento
        'Identifico l'utente che effettua l'inserimento
            'Matricola utente
                Form_Utente.Value = Worksheets("VerificaCredenziali").Cells(1, 2).Value
                With Worksheets("VerificaCredenziali").Range("A:A")
                Set Rng = .Find(What:=FindString, _
                    After:=.Cells(7), _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False)
                    If Not Rng Is Nothing Then
                        Application.Goto Rng, True
                    Else
                        MsgBox "Nothing found"
                    End If
                End With
            
        'Inizializzio i campi
            'Svuoto tutti campi
                For Init_Campi_Vuoti = 1 To 10
                    Controls("Categoria_" & CStr(Init_Campi_Vuoti)).Value = ""
                    Controls("Vettura_" & CStr(Init_Campi_Vuoti)).Value = ""
                    Controls("Ordine_" & CStr(Init_Campi_Vuoti)).Value = ""
                Next
            'Inizializzo i numeri
                'Aggiungo un campo "neutro" in tutti i campi
                    For Init_Campi_Neutri = 1 To 10
                        Controls("Categoria_" & CStr(Init_Campi_Vuoti)).AddItem = ""
                        Controls("Treno_" & CStr(Init_Campi_Neutri)).AddItem = ""
                        Controls("Ordine_" & CStr(Init_Campi_Neutri)).AddItem = ""
                    Next
                'Inserisco i numeri 
                    For Init_Campo_Vettura = 1 To 10
                        For Init_Numero_Vettura = 1 To 11
                            Controls("Vettura_" & CStr(Init_Campo_Vettura)).AddItem = Init_Numero_Vettura
                        Next
                    Next
End Sub

di lepat (utente non iscritto) data: 21/12/2014 17:13:54
ho chiesto il file non il codice

Vuoi Approfondire?