Aggiornare una Combobox

Question

Buona sera a tutti,

avrei bisogno del vostro aiuto,  in UserForm_initialize ho questo codice:

    Set RngTabella = SH2.Range("A5").CurrentRegion

    Dim arrIntestazioni As Variant

    Dim arrDati As Variant

    Dim iRow, iCol As Long

    With RngTabella

         iCol = .Columns.Count

         iRow = .Rows.Count + 1                                   

          arrIntestazioni = .Cells(1, 5).Resize(5, iCol - 4).Value

         arrDati = .Offset(1).Resize(iRow - 1, iCol).Value      

    End With

     With ComboBox4 

    .Column = arrIntestazioni

    End With

in Anagrafica aggiungo dei dati (CommandButton2), successivamente i dati immessi

vengono copiati e riordinati mi e riuscito in modo fortuito di aggiornare la Listbox

della Page Inserimento Generi Venduti, ma

NON mi riesci di aggiornare la ComboBox4 pertanto nella casella dei Prodotti non mi compare

l'ultima voce immessa.

Potete cortesemente aiutarmi?

Per completezza vi posto al seguente indirizzo il file.

http://1drv.ms/1Ht0y5T

Answer 1

Quale codice fornito da Norman?

Answer 2

Ciao Mauro,

se possibile vorrei chiederti:

quando al codice che carica i dati nella combobox è riferito al codice fornito da Norman? ho dove essere

un altro("fatto diversamente")?

Ho inserito quel codice in una procedura; in initialize ho inserito la chiamata, poiché mi dava problemi con le variabili.

A questo punto in testa al modulo ho inserito le variabili, ma continua a dare errore di run time tipo '13',

ci potrebbero stare altre indicazioni, ho è meglio che mi dedico a qualcos'altro?

Ho fatto altri tentativi, tipo: inserire tutto il codice compreso combobox3 e 4 nella procedura e chiamata nell'evento initialize, ma nella combobox non mi compaiono le date.

Ultima cosa, devo inerire del codice anche in Private Sub ComboBox3 e 4? per il riconoscimento delle date e dei prodotti?

Capisco e riconosco i miei limiti.

Grazie per l'attenzione.

Answer 3

Se non riesco posso chiedere ulteriori chiarimenti?

Certo.

Ma sai la soddisfazione di farlo da solo... ;-)

Answer 4

Ciao Mauro,

grazie per essere venuto in aiuto, questa sera/domani mattina ci provo.

Se non riesco posso chiedere ulteriori chiarimenti?

E' sottinteso che il codice che sto adoperando è quello tuo, di Norman e di Maurizio,

il che mi porta ancora a dirvi grazie.

Ancora grazie 1000.

Answer 5

Buona sera a tutti,

avrei bisogno del vostro aiuto,  in UserForm_initialize ho questo codice:

<cut>

Potrei correggerti il codice, ma preferisco farti ragionare.

Il codice che carica i dati nella ComboBox NON va messo nell'evento Initialize ma in una Sub separata sempre nel modulo dalla userForm.

Quindi ci sarà la chiamata a quella routine sia nell'evento Initialize che nell'evento che scateni quando fai un'aggiunta alla tua tabella.

Personalmente se ho una ComboBox o una Listbox che deve aggiornare il contenuto utilizzo un modo differente per caricarla/modificarla. Vedi:

• http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-gestire-una-tabella-nascosta-tramite-una/3b6f6828-45c2-4319-98a6-148ae5488b71