............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Solicito ayuda con un Listbox

Ver el tema anterior Ver el tema siguiente Ir abajo

Solicito ayuda con un Listbox

Mensaje por elpollo87 el Mar Feb 25, 2014 5:53 pm

Solicito ayuda con un Listbox

Les cometo que tengo un formulario donde tengo un 3 combobox uno de día otro de mes y año, los tres crean la fecha Dia/Mes/Año y tengo un botón que agrega la fecha al listbox esto sin ningún problema. El problema es cuando voy a pasar la información que agregue del ListBox a un formato en Excel donde tengo como máximo para agregar 26 fechas pero en 2 columnas, 13 renglones en la columna F y 13 en la columna G. No siempre se ocupan los 26 espacios en ocasiones solo 1 o 5 o 6. Lo que quiero hacer es cuando de clik en aceptar, si tengo 14 fechas es que en la primera columna “F“ ocupe los 13 espacios y 1 en la columna G. anexo ejemplo de mi formulario

Espero me puedan ayudar.

Saludos.

elpollo87

Masculino Cantidad de envíos : 3
Edad : 35
Ciudad - Pais : Mexico
Version de Excel : 2007
Fecha de inscripción : 12/03/2010

Volver arriba Ir abajo

Re: Solicito ayuda con un Listbox

Mensaje por renem el Mar Mar 18, 2014 7:14 pm

Hola, es un código sencillo pero funciona, de seguro se puede optimizar y generalizar.
Espero te sirva.

Código:
Private Sub btn_Click()
    n = lst.ListCount
    For i = 1 To Min(n, 13)
        Sheet1.Cells(i, 6).Value = lst.List(i - 1)
    Next i
    For i = 14 To n
        Sheet1.Cells(i - 13, 7).Value = lst.List(i - 1)
    Next i
End Sub
avatar
renem

Cantidad de envíos : 82
Ciudad - Pais : Santiago - Chile
Fecha de inscripción : 05/11/2008

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.