Postada em 25/01/2007 13:52 hs
Tente algo mais ou menos assim:
Dim Linha As Integer
Linha = 1
ComboBox1.Clear
While Range("A" & Linha).Text <> ""
ComboBox1.AddItem Range("A" & Linha).Text
Linha = Linha + 1
Wend
onde "A" é a coluna de onde você quer pegar os dados a serem inseridos.
Você pode optar também pela propriedade Cells, trocando-a pelo Range.
Com Cells você usa assim:
While Cells(Linha, Coluna).Text <> ""
ComboBox1.AddItem Cells(Linha, Coluna).Text
Linha = Linha + 1
Wend
<DIV>Klaus Lana</DIV>
|
