Ordenar datos en un ComboBox

Dante

Tengo un ComboBox que lee datos de una columna de una hoja. Cuando una actividad finaliza, se eliminan datos de esa celda y por lo tanto queda en blanco y en combo sale salteado es decir, en el lugar donde antes estaba el dato, ahora sale un espacio en blanco.

¿Qué propiedad del ComboBox debo tocar para que liste todos los datos una abajo del otro?

2 Respuestas

Respuesta
1

H o l a:

No existe esa propiedad.

Lo que se tiene que hacer es cargar con un ciclo uno por uno los datos y poner una condición, si la celda está en blanco entonces que no la cargue.

Pero para hacer el ciclo, necesito todo el detalle de información, en cuál hoja, en cuál fila empiezan los datos, en cuál columna, en qué momento (evento) quieres que se ejecute el ciclo.

S a l u d o s

Dante si aun contás con el archivo que te pase de la Planilla de Mon..., la línea para que puedas ver esto es:

INGRESAR - MENÚ - SEGUIMIENTO DE MON... - SELECCIONAR 1 MON... - YA EN EL FORM DE SEGUIMIENTO DE MON... ver el ComboBox NomCorto... este lee de la hoja Histórico Mon... el dato de las celdas en negro... si alguna intermedia fuera "Vacío", se vería un espacio en blanco en el combo y es esto lo que quiero evitar.

Un abrazo y muchas gracias

Daniel.

H o l a :

Te anexo el código

    For infNC = 2 To ultiNC
        If Sheets("Historico Montaje2").Range("C" & infNC) <> "" Then
            CmbNomCorto.AddItem Sheets("Historico Montaje2").Range("C" & infNC)
        End If
    Next infNC

Si cargas en otra parte del formulario el combo, deberás poner también la codición

If Sheets("Historico Montaje2").Range("C" & infNC) <> "" Then
CmbNomCorto.AddItem Sheets("Historico Montaje2").Range("C" & infNC)
End If

S a l u d o s .

Respuesta
-1

Te paso un par de ejemplos por si te sirven

http://www.programarexcel.com/2013/05/macro-vba-busca-datos-coincidentes-con.html 

http://www.programarexcel.com/2014/03/llenar-combobox-con-datos-de-otro-libro.html 

http://www.programarexcel.com/2014/03/llenar-combobox-seleccionando-archivo.html 

Verifica la celda si se encuentra vacía en caso contrario no la agregues al combobox:

For x = 2 to uf
IF cells(x,"A")<> Empty
ComboBox2.AddItem cells(x,"A")
Next x

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas