Foros del Web » Soporte técnico » Ofimática »

utilizar combobox para desplegar info diferente

Estas en el tema de utilizar combobox para desplegar info diferente en el foro de Ofimática en Foros del Web. Como estan, soy nueva en excel y estoy haciendo dos formularios de inventario de software, y lo que necesito es lo siguien te 1. crear ...
  #1 (permalink)  
Antiguo 02/07/2009, 12:06
 
Fecha de Ingreso: enero-2004
Mensajes: 230
Antigüedad: 20 años, 2 meses
Puntos: 0
utilizar combobox para desplegar info diferente

Como estan, soy nueva en excel y estoy haciendo dos formularios de inventario de software, y lo que necesito es lo siguien te

1. crear un combobox en la parte superior del formulario con la lista de ciudades
2. abajo del combobox cree el formualrio en blanco, solo con los titulos como ser nombre, item, etc
3. lo que necesito es elegir una ciudad del combobox y que la descricpion de la informacion del inventario me salga en la formulario que cree
4. ademas necesito crear otro combobox al lado del primero con la lista de municipios por ciudad de tal forma que cuando eliga la ciudad y el muncipio me salga la informacion mas detalla en el inventario

Gracias de antemano
  #2 (permalink)  
Antiguo 03/07/2009, 17:11
Avatar de GEMO  
Fecha de Ingreso: julio-2007
Ubicación: Guadalajara
Mensajes: 110
Antigüedad: 16 años, 9 meses
Puntos: 3
Sonrisa Respuesta: utilizar combobox para desplegar info diferente

Hola creo entender algo de lo que quieres,
prueba esto

primer combobox
suponiendo que tus datos estan en la hoja2

Private Sub ComboBox1_Change()
Dim i As Integer
Dim final As Integer

For i = 2 To 1000
If Hoja2.Cells(i, 1) = "" Then
final = i - 1
Exit For
End If
Next

For i = 2 To final
If ComboBox1.Text = Hoja2.Cells(i, 1) Then
Label1.Caption = Hoja2.Cells(i, 2)
Label2.Caption = Hoja2.Cells(i, 3)
Exit For
End If
Next

End Sub

para el segundo combo tendrías que agregar algo asi
pensando que la lista de ciudades esta en la columna B

if ComboBox1.Text = hoja2.cells(i,1) then
Hoja2.Select
Range("b1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox2.AddItem ActiveCell
Loop
end if

solo adaptalo a tu formulario

Espero te sea útil
Saludos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:12.