VBA Combobox ?

hola, Gabriel !

> ... los combobox estan incustrudos en un formulario y los datos del primero estan hechos con la propiedad additem
> los hecho con la parte de VBA , los rslutaod quiero votarlos en una hoja de ecxcel no se si necesitas alguna dato mas

podemos empezar a [tratar de] 'cubrir la informacion faltante'... con los siguientes 'supuestos'...
-> los combos [en un formulario] se llaman ComboBox1 y ComboBox2
-> sus resultados los necesitas en la 'hoja1' en las celdas 'A1' y 'B2' [respectivamente]
-> el 'llenado' de los combos lo haces por 'AddItem'
hay suficientes alternativas mas [conociendo mas detalles] asi que es [solo] un comienzo :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector,

copia las siguientes lineas en el modulo de codigo del formulario ==> Dim Actualizando As Boolean, Sig As Byte, _
Productos, Galletas, Chocolates
Private Sub UserForm_Initialize()
Productos = Array("Galletas", "Chocolates")
Galletas = Array("Surtido Rico", "Imperiales", "Marias")
Chocolates = Array("Carlos V", "Kinder Sorpresa", "Arnoldi", "Otro")
Worksheets("hoja1").Range("a1,b2").ClearContents
ActualizaProductos
For Sig = LBound(Productos) To UBound(Productos)
ComboBox1.AddItem Productos(Sig)
Next
End Sub
Private Sub ComboBox1_Change()
Actualizando = True
ActualizaProductos
Actualizando = False
Worksheets("hoja1").Range("a1") = ComboBox1
End Sub
Private Sub ComboBox2_Change()
If Actualizando Then Exit Sub
Worksheets("hoja1").Range("b2") = ComboBox2
End Sub
Private Sub ActualizaProductos()
Worksheets("hoja1").Range("a1,b2").ClearContents
With ComboBox2: .Clear
Select Case ComboBox1
Case "Galletas"
For Sig = LBound(Galletas) To UBound(Galletas)
.AddItem Galletas(Sig)
Next
Case "Chocolates"
For Sig = LBound(Chocolates) To UBound(Chocolates)
.AddItem Chocolates(Sig)
Next
End Select
End With
End Sub