VBA - Excel - automatsko popunjavanje stavki u ComboBox-u

[Cat]

Kako da se automatski popuni DropDownList-a u Excelu? Znaci kada se podigne dokument, da sve stavke u listi budu odmah popunjene, a ne da mora da se izvede neka akcija da bi se lista popunila?

Probavao sam nesto ovako:

Sub AutoLoad_Open()
Sheets("Sheet1").cboTest.AddItem "Nesto"
End Sub

Ali tako ne moze

Ako iko ima volje da pomogne - neka postuje Worksheet u kome ce biti jedan ComboBox sa dva-tri Item-a (koji su vec dodati odmah posto se otvori dokument). To je 1min posla za onog ko zna. Bicu vrlo zahvalan!

! Znaci: NE Combo u okviru forme - vec NA SAMOM Sheet-u !

 

[Cat]

Posle mnogo muke i cupanja kose, otkrio sam ovaj mali "trik" :
VBA za Workbook:
----------------------------------------------------------------------------------------
Private Sub Workbook_Open()
ActiveSheet.Trigger
End Sub
----------------------------------------------------------------------------------------
VBA za Worksheet:
----------------------------------------------------------------------------------------
Public Sub Trigger()

Worksheet_Activate
End Sub
Private Sub Worksheet_Activate()

With ComboBox1
.Clear
.AddItem "Plavusa"
.AddItem "Crnka"
.AddItem "Brineta"
End With

End Sub

----------------------------------------------------------------------------------------

Ovo mi nekako deluje nezgrapno, pa ako neko ima bolju ideju . . .

 

[djura]

Ja znam za excel 2007, a ima i u 2003, ali ne mogu da se setim detaljno pošto ga nemam sada. Ako ti treba combo box u nekoj ćeliji, onda definišeš neki opseg polja kao Name, imaš u Formulas/Name manager (u 2003 je Insert/Define/Name) i onda ideš na Data/Data Validation i izabereš to ime koji si prethodno definisao. Posle toga tu ćeliju možeš sa copy/paste ili da vučeš tamo gde ti treba i koliko ti treba