Combobox: no mostrar celda vacía
Resuelto
linette44
Mensajes publicados
23
Estado
Miembro
-
Ghostk -
Ghostk -
Hola,
He creado un combobox con una rowSource establecida: lista!B2:B399.
Algunas celdas de la gama de la hoja lista no están completadas (vacías). En mi combobox, los espacios en blanco aparecen entre algunos valores.
¿Es posible no mostrar las celdas vacías en el combobox?
Gracias de antemano por su respuesta
Atentamente
Linette
He creado un combobox con una rowSource establecida: lista!B2:B399.
Algunas celdas de la gama de la hoja lista no están completadas (vacías). En mi combobox, los espacios en blanco aparecen entre algunos valores.
¿Es posible no mostrar las celdas vacías en el combobox?
Gracias de antemano por su respuesta
Atentamente
Linette
Configuración: Windows XP Firefox 2.0.0.14
1 respuesta
-
Hola,
Sigo buscando una solución.
He entendido que si elijo completar la lista en ROWSOURCE, no puedo hacer nada.
Así que encontré un código (ver abajo) que introduje y que me permite completar la lista desplegable de mi combobox, pero no encontré cómo eliminar las líneas vacías de mi lista desplegable.
Private Sub UserForm_Initialize()
With Sheets("Liste")
ComboBox4.List = .Range("b2:b" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub
¿Alguien tiene una solución?
Linette-
Para las personas interesadas, aquí hay un código que funciona perfectamente
Private Sub UserForm_Initialize()
Dim lf As Long 'declara la variable lf (Línea de Fin)
Sheets("Lista").Select
lf = Range("B65536").End(xlUp).Row 'define la variable lf
ComboBox4.Clear 'vacía la ComboBox1
' llena la ComboBox4
For Each cel In Range("B2:B" & lf) 'bucle sobre todas las celdas de A1 a A_lf
'condición: si la celda no está vacía añade su contenido a la ComboBox1
If cel.Value <> "" Then ComboBox4.AddItem cel.Value
Next cel 'siguiente celda
End Sub -
-