Listbox Genera un espacio en blanco cuando cargo datos

[hernangimenez25]

Buenas, tengo un Listbox, el cual cuando inicia el programa me lo trae con informacion que carga de la hoja 1, y a la par asociado un Combobox que se le va agregando mas info a este Listbox.

El problema pasa cuando Inicia, y me carga la info previa que hay en la hoja 1 en el listbox, ya que luego, al agregarle mas info por el combox me deja un espacio en blanco. a continuacion el codigo que tengo

Private Sub UserForm_Initialize()

Application.ScreenUpdating = False

Worksheets(1).Select

Y = 0

vuelve:

a = Cells(Y + 1, 12)

If a = "" Then GoTo seguir:

Y = Y + 1

GoTo vuelve:

seguir:

Range("L1").Select

For ii = 1 To Y

ActiveCell.Offset(1, 0).Select

ListBox1.AddItem ActiveCell

Next ii

X = 0

vuelve1:

a = Cells(X + 10, 1)

If a = "" Then GoTo seguir1:

X = X + 1

GoTo vuelve1:

seguir1:

Range("A10").Select

For i = 1 To X

UserForm6.ComboBox1.AddItem ActiveCell

ActiveCell.Offset(1, 0).Select

Next i

Application.ScreenUpdating = True

End Sub

[/CODE]

[armandocid]

Es una forma rara de hacer un bucle, por qué no subes tu ejemplo?

Salu2!