Llenar Combobox Con Datos De Celdas

[ideasking]

Hola amigos, estoy intentando llenar automaticamente un combobox con los Numeros que estan escritos en las celdas de determinada columna en excel, la idea es que en la medida que se vayan adicionando numeros en las celdas asi mismo cuando ejecute de nuevo mi formulario el combobox tome los valores actuales de las celdas. Se hacerlo pero con un numero fijo de celdas:

Ejemplo

Private Sub UserForm_Initialize()

ComboBox1.AddItem Worksheets("hoja2").Range("a1")
ComboBox1.AddItem Worksheets("hoja2").Range("a2")
ComboBox1.AddItem Worksheets("hoja2").Range("a3")
ComboBox1.AddItem Worksheets("hoja2").Range("a4")
ComboBox1.AddItem Worksheets("hoja2").Range("a5")
ComboBox1.AddItem Worksheets("hoja2").Range("a6")
ComboBox1.AddItem Worksheets("hoja2").Range("a7")
ComboBox1.AddItem Worksheets("hoja2").Range("a8")


Pero si en la medida que agrego datos a mi tabla logicamente habria que aduicionar MAS ITEMS AL COMBOBOX, es posible hacerlo automaticamente, es decir que el combobox se alimente automaticamente en cada carga?

GRACIAS

[abrahamvj]

Sheets("hoja2").Select
Range("a1").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

Abraham

[ideasking]

Excelente Abraham, mil gracias, era lo que me hacia falta, ahora ya me quedo full mi trabajo.

[jhonmelguizo]

Hermano, muchas gracias, me ha servidor muchísimo tu ayuda.

de nuevo gracias...

Saludos.

[JoaoM]

Parece que anda un mundo buscando como llenar combobox en excel

Pregunto donde se aplica ese codigo?
Sheets("hoja2").Select
Range("a1").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

Crear un Modulo y agregarle este codigo?

Caray, tampoco me di cuetna de la fecha (2007) y eso que yo siempre critico por revivir temas QUE NO ESTAN CERRADOS pues si pasados 6 meses cerraran los temas, nada de esto pasaria