VBA Combobox ?

hola, Gabriel !

... tengo 2 combobox el primero contiene Categorias generales de productos Vale decir Galletas, Chocolotates
... quiero... que cuando escoga galletas en el combobox2 me aparezcan las clases de Galletas que hay
... si en el primero escoga chocolates el combobox2 cambien con las distintas clases de chocolates que hay

podrias ampliar tu consulta con algunos 'detalles' que se te ha olvidado comentar ? [como p.e.]

- los combos estan incrustados en la hoja ? o estas utilizando algun formulario ?
- si estan en la hoja... son de la barra de herramientas 'formularios' ? o de la barra de herramientas 'cuadro de controles' ?
- de donde 'toman' los datos [o como se llenan] los combos ?
- si 'toman' los datos de algun rango... cuales serian los rangos para cada combo ?
- en donde 'depositan' el resultado de una seleccion los combos ?

saludos,
hector.

Esto te sirve ... saludos
Office VBA Language References
http://msdn.microsoft.com/office/do...fault.aspx

Manual PDF basico ( 100 hojas)
http://mx.geocities.com/gozalo_ya/Macros.pdf

Qué es Visual Basic para Aplicaciones?
http://www.microsoft.com/europe/vba...efault.htm

Visual Basic for Applications
http://msdn.microsoft.com/isv/techn...fault.aspx

Hola.
Estos archivos te muestran un poco sobre los eventos en combobox

http://mx.geocities.com/gozalo_ya/filtro1.zip
http://mx.geocities.com/gozalo_ya/filtro2.zip

saludos

hola hector 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
sds
Gabriel
"Héctor Miguel" escribió:

hola, Gabriel !

> ... tengo 2 combobox el primero contiene Categorias generales de productos Vale decir Galletas, Chocolotates
> ... quiero... que cuando escoga galletas en el combobox2 me aparezcan las clases de Galletas que hay
> ... si en el primero escoga chocolates el combobox2 cambien con las distintas clases de chocolates que hay

podrias ampliar tu consulta con algunos 'detalles' que se te ha olvidado comentar ? [como p.e.]

- los combos estan incrustados en la hoja ? o estas utilizando algun formulario ?
- si estan en la hoja... son de la barra de herramientas 'formularios' ? o de la barra de herramientas 'cuadro de controles' ?
- de donde 'toman' los datos [o como se llenan] los combos ?
- si 'toman' los datos de algun rango... cuales serian los rangos para cada combo ?
- en donde 'depositan' el resultado de una seleccion los combos ?

saludos,
hector.

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