Combo con varias columnas.....Asi se hace..

Jose Oscar
01 de Marzo del 2004

'Hola gente del foro , para los que decian que no se podia hacer un combobox
'con varias columnas, aqui esta la solucion.
'Esto esta hecho con VBA [visual basic para aplicaciones] por lo que el
'nombre de los controles cambia combo1 X combobox1 y initialize por Form_Load
'Hay otra forma de hacerlo pero ahun no lo entiendo bien, cuando lo logree
'entender se las expongo es algo asi como Combobox1.list(Columna, fila)=" Valor a agregar"
'y tambien con Combobox1.column(0,1)="valor a agregar"

'Espero esto les seha util. se necesitan 1 form, 1 combo y 1 commandbuton (Esta hecho en VBA recuerden)

'Pruevenlo y luego comentan si hay errores
'Suerte a todos y tambien a los que me ayudaron alguna vez
'Jose oscar



Dim MisDatos(7, 5) As String

Private Sub CommandButton1_Click()
For Col = LBound(MisDatos, 1) To UBound(MisDatos, 1)
Apellido = InputBox(Prompt:="Escribe tu Apellido", Default:="Alonso")
MisDatos(Col, 0) = Apellido
Nombre = InputBox(Prompt:="Escribe tu Nombre", Default:="Jose Oscar")
MisDatos(Col, 1) = Nombre
Edad = InputBox(Prompt:="Escribe tu Edad", Default:="29")
MisDatos(Col, 2) = Edad
Ciudad = InputBox(Prompt:="Escribe tu Ciudad de Residencia", Default:="Marcos Paz")
MisDatos(Col, 3) = Ciudad
Pais = InputBox(Prompt:="Escribe tu Pais de Origen", Default:="Argentina")
MisDatos(Col, 4) = Pais
Estadcivil = InputBox(Prompt:="Escribe tu Estado Civil", Default:="Soltero")
MisDatos(Col, 5) = Estadcivil

ComboBox1.List = MisDatos()

Next

End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 5
End Sub