mostrar combobox desde filtro

01/04/2005 - 17:59 por fredy_1974 | Informe spam

hola grupo!

tengo un rango en una hoja de excel donde tengo relacionado mis productos,
quisiera saber si puedo tener un combobox en un formulario que me muestre
estos productos pero solamente los filtrados, es decir quiero que me
aparezca en el combobox el listado que queda al filtrar por uno de mis
tipos de producto ... es posible? como?

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

¿como mostrar hojas ocultas desde un combobox?

Leer las respuestas

#1 KL

01/04/2005 - 18:47 | Informe spam

Hola Fredy,

Si pones el siguiente codigo en el modulo VBA del formulario UserForm1 que
tiene un ComboBox1, al inicializarse el formulario se llenara el combobox
con los valores filtrados de la primera columna de la tabla de la hoja
activa.

Saludos,
KL

Private Sub UserForm_Initialize()
Dim c As Range, rng As Range
With ActiveSheet.AutoFilter.Range
Set rng = .Offset(1, 0). _
Resize(.Rows.Count - 1, .Columns.Count)
End With
For Each c In rng.Columns(1).Cells
If c.Value <> "" And c.EntireRow.Hidden = False Then _
UserForm1.ComboBox1.AddItem c.Value
Next c
End Sub

Responder a este mensaje

#2 Xames

02/04/2005 - 12:07 | Informe spam

Y para que coja los datos de una base de datos de otra hoja para hacer un
combox desplegable en la macro de la hoja acual?

Gracias

"KL" escribió en el mensaje
news:

Hola Fredy,

Si pones el siguiente codigo en el modulo VBA del formulario UserForm1 que
tiene un ComboBox1, al inicializarse el formulario se llenara el combobox
con los valores filtrados de la primera columna de la tabla de la hoja
activa.

Saludos,
KL

Private Sub UserForm_Initialize()
Dim c As Range, rng As Range
With ActiveSheet.AutoFilter.Range
Set rng = .Offset(1, 0). _
Resize(.Rows.Count - 1, .Columns.Count)
End With
For Each c In rng.Columns(1).Cells
If c.Value <> "" And c.EntireRow.Hidden = False Then _
UserForm1.ComboBox1.AddItem c.Value
Next c
End Sub

Responder a este mensaje

#3 KL

02/04/2005 - 14:55 | Informe spam

Hola Xames,

No entiendo la pregunta. ?podrias reformularla por favor?

Saludos,
KL

"Xames" wrote in message
news:

Y para que coja los datos de una base de datos de otra hoja para hacer un
combox desplegable en la macro de la hoja acual?

Gracias

"KL" escribió en el mensaje
news:

Hola Fredy,

Si pones el siguiente codigo en el modulo VBA del formulario UserForm1
que tiene un ComboBox1, al inicializarse el formulario se llenara el
combobox con los valores filtrados de la primera columna de la tabla de
la hoja activa.

Saludos,
KL

Private Sub UserForm_Initialize()
Dim c As Range, rng As Range
With ActiveSheet.AutoFilter.Range
Set rng = .Offset(1, 0). _
Resize(.Rows.Count - 1, .Columns.Count)
End With
For Each c In rng.Columns(1).Cells
If c.Value <> "" And c.EntireRow.Hidden = False Then _
UserForm1.ComboBox1.AddItem c.Value
Next c
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida