vkládání dat do rozbalovacího seznamu v panelu

[kropec]

Zdravím všechny,
mám udělaný v Excelu vlastní panel s rozbalovacím seznamem, kde jsou údaje z listu data, které vkládám do oblasti buněk. V makru je vkládám pomocí
.AddItem List2.Cells(2, 1)
.AddItem List2.Cells(3, 1)
.AddItem List2.Cells(4, 1) atd.
Údajů je dost a chci se zeptat, jestli to nejde jinak, než to v makru zapisovat po řádku.

[Reklama]

[Jan Pašek]

POkud by se jednalo o stejný list je možné použít funkci kontrola dat jejíž doučástí je také rozbalovací rolna a upozornění nebo zákaz pokud se zadá hodnota mimo seznam. V listu se pojmenuje určitá oblast a hodnoty s této oblasti se pak po nadefinování objevují v rolně buňky. Je to takové dost kostrbaté a jsem Excel zelenáč ale jak to tu píšete tak to vypadá že kuře učí slepici snášet vejce takže si stím určitě poradíte.

[Pavel123]

No já to řeším třeba takhle:

Kód: Vybrat vše

'Konstanta EndRow obsahuje hodnotu při níž se zastaví načítání
'položek ComBobboxu. Zde předpokládám prázdnou buňku
    Const EndRow As String = ""
   
    Dim MyRow As Single 'číslo řádku
       
    ComboBox1.Clear 'Vymazat položky ComBoboxu
   
    MyRow = 2 'Začínám na řádku 2

'Načtení položek ComBoboxu. Načítá se sloupec A
    Do While Sheets(1).Range("A" & MyRow) <> EndRow
        ComboBox1.AddItem Sheets(1).Range("A" & MyRow)
        MyRow = MyRow + 1
    Loop