Listbox Genera un espacio en blanco cuando cargo datos
publicado
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]
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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