commandbarcombobox

[daniele677]

saluti a tutto il forum
sto cercando di completare un lavoro
in una commandbar personalizzata sono riuscito ad inserire una combo che prende i dati dal foglio1 colonna A
la domanda e'
e' possibile senza chiudere il file excel ricaricare la combo con nuovi dati?
il codice e'
[code][/code]
Sub MenuAz()

Dim Nouv_MenuAZ As CommandBar
Set Nouv_MenuAZ = _
Application.CommandBars.Add(Name:="BarraAZ", _
Position:=msoBarTop, temporary:=True)
Dim Men1, Men2, Men3
Dim Men1opt1, Opt1, Opt2
Set Men1 = Nouv_MenuAZ.Controls.Add(msoControlComboBox, , , , True)
With Men1
.Width = 150
With Selection.Font
.Size = 6
End With
Dim Righe, Colonne, R
Dim Intervallo As Range
With Range("A1").CurrentRegion
Righe = .Rows.Count + 1
Colonne = .Columns.Count
Set Intervallo = .Offset(0, 0).Resize(Righe, Colonne)
End With
C = 1
.Clear
For R = 1 To Righe
.AddItem Intervallo(R, C)
Next
.Execute
End With


Nouv_MenuAZ.Visible = True

End Sub

i dati vengono presi dalla colonna A
ma se lavorando aggiungo altri dati l'intervallo puo' essere ricaricato?
grazie

[Zer0Kelvin]

... e come mai lasci questo (senza rispondere alla mia replica)
http://freeforumzone.leonardo.it/d/10956248/commandbar/discussione.aspx
per aprire qui un nuovo post, di grazia?

[daniele677]

il quesito non e' lo stesso
nel precedente non riuscivo ad inserire gli item in automatico
la tua risposta diceva che bisognava aggiungere delle voci una alla volta
sono riuscito a farlo in automatico con un ciclo
ora chiedo una cosa diversa
come si puo' popolare la combo con dati diversi rispetto all'apertura
grazie
saluti