Llenar varios combobox con información de varias celdas

[chive17]

Buenas soy nuevo en esto de la programación de vba en excel. Tengo un problema con un combobox y queria ver si me podrian ayudar. Necesito que un combobox se llene con la información de la columna A y otro combobox con la información de la columna B. Pero necesito que cada vez que se agregue información nueva en estas columnas esta aparezca en el combobox. Por eso no quiero usar el rowsource sino codigo.

Tengo lo siguiente

Private sub userform_initialize ()

Sheets ("variables").select

Range ("A2").select

While activecell <>""

Combobox1.additem activecell

Activecell.offset (1, 0).select

Wend

End sub

O tambien tengo

Private sub userform_initialize ()

Sheets ("variables").select

Range ("A2").select

Do while activecell <> empty

Activecell.offset (1, 0).select

Combobox1.additem activecell

Loop

End sub

Cuando meto este codigo solo puedo con un combobox pero cuando ingreso el mismo codigo pero para un combobox2 me aparece el error "Runtime error 70".

Agradezco la ayuda brindada

[tese1969]

Adjunta un archivo ejemplo........normas del foro.

Un saludo,

Tese

[Antoni]

Hola:

En la próxima consulta no te olvides de lo que te dice tese1969.

De momento prueba así, que seguro que te funciona:

Private Sub Userform_Initialize() 


ÚltimaFila = Sheets("variables").Range("A" & Rows.Count).End(xlUp).Row

ComboBox1.RowSource = "variables!A2:A" & ÚltimaFila


ÚltimaFila = Sheets("variables").Range("B" & Rows.Count).End(xlUp).Row

ComboBox2.RowSource = "variables!B2:B" & ÚltimaFila


End Sub



[/CODE]

[chive17]

Muchas gracias, me han sido de mucha ayuda, me disculpo por haber subido el archivo con anterioridad, pero no encuentro la opcion para subir el Excel....

- - - - - Mensaje combinado - - - - -

Ya pude adjuntar el archivo, como les mencionaba estoy empezando, puede que encuentren que la forma de programación no es muy practica pero es parte de aprender y mas cuando estoy aprendiendo por mi cuenta.

Gracias por la ayuda

Propuesta de hoja.rar