Cómo funciona JustAnswer:
  • Preguntar a un Experto
    Los expertos tienen muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio.
    Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.
Formule su propia pregunta a Jose Mari
Jose Mari
Jose Mari, Grado Superior
Categoría: Informática
Clientes satisfechos: 526
Experiencia:  Técnico informático y Programador.
57600787
Escriba su pregunta sobre Informática aquí...
Jose Mari está en línea ahora

Para cargar un lisbox (ya me ayudaron Ioyama y Gerson) utilizo

Pregunta del cliente

Para cargar un lisbox (ya me ayudaron Ioyama y Gerson) utilizo el siguiente codigo:

ListBox1.Clear

i = 4
x = 0
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "40;195;50;50;50;50;50"
Do
ListBox1.AddItem Worksheets("inventario").Cells(i, 1).Value
ListBox1.List(x, 1) = Worksheets("inventario").Cells(i, 2).Value
ListBox1.List(x, 2) = Worksheets("inventario").Cells(i, 3).Value
ListBox1.List(x, 3) = Format((Worksheets("inventario").Cells(i, 5).Value), "0.00")
ListBox1.List(x, 4) = Format((Worksheets("inventario").Cells(i, 7).Value), "0.00")
ListBox1.List(x, 5) = Format((Worksheets("inventario").Cells(i, 6).Value), "0.00")

ListBox1.List(x, 6) = Format(CDate(Worksheets("inventario").Cells(i, 8).Value), "hh:mm")



x = x + 1
i = i + 1
Loop Until Worksheets("inventario").Cells(i, 1).Value = ""

Y esto funciona bien, siempre y cuando en la colunna (I) (que tiene la siguiente formula: (G10-F10)/24) y que tenia formato hh.mm no tuviese mas de 24 horas pues si pasa de esta cantidad,por ejemplo 26 me mostraba en la columna (del listbox) 02:00 por lo que cambie el formato de la colunna a 37:30:55 y ahora me muestra correctamente 26:00:00 pero al querer verlo en el lisbox solo veo 00:00. He probado varios cambios de la siguiente parte del codigo:

ListBox1.List(x, 6) = Format(CDate(Worksheets("inventario").Cells(i, 8).Value), "hh:mm")

pero no doy con la tecla y es por lo que acudo a vuestra ayuda. si es necesario subir archivo, por favor decidme lo y lo hago.

Saludos XXXXX XXXXX
Enviada: hace 6 año.
Categoría: Informática
Experto:  Jose Mari escribió hace 6 año.
Buenos días, el formto tiene que ser:
ListBox1.List(x, 6) = Format(CDate(Worksheets("inventario").Cells(i, 8).Value), "hh:mm:ss")

Un saludo,
Cliente: escribió hace 6 año.
Hola, primero gracias por la repuesta, luego decirte que he puesto ese codigo y al lanzar el formulario consulta solo veo 00:00:00 en vez de por ejemplo 37:02:00
Cliente: escribió hace 6 año.
Hola, primero gracias por tu repuesta. Segundo decirte que he probado tu recomendación y ahora lo que veo en el listbox es 00:00:00 cuando en la celda/columna correspondiente tengo por ejemplo 37:24:00, extaño no?

saludos
Experto:  Jose Mari escribió hace 6 año.
ESTA RESPUESTA ESTÁ BLOQUEADA.
Podrá ver esta respuesta si hace clic aquí para Registrarse o Iniciar sesión y paga $3.
Si ya ha pagado por esta respuesta, simplemente Inicie sesión.

Cliente: escribió hace 6 año.
Perdona el error mio,efectivamente es :ListBox1.List(x, 6) = Format(CDate(Worksheets("inventario").Cells(i, 9).Value), "hh:mm:ss")el codigo correcto,

pero sigo teniendo el mismo problema, es decir si en la colunana (I) de la hoja inventario tengo 37:30:00 obtenido de la formula(=(G4-F4)/24) en el formulario del listbox veo 13:30:00 que corresponde digo yo a 24:00:00 + 13:30:00 , es decir la hoja trabaja bien pero el lisbox se come 24 horas. Si el numero de horas en la columna no excede de 24 funciona bien el listbox, extraño no?

Saludos amigo
Cliente: escribió hace 6 año.
Hola, te he preparado un fichero reproduciendo mi problema por si te sirve de ayuda:

http://www.megaupload.com/?d=WVXO6IY2

veras la formula y los formatos de las columnas, te en cuenta que los datos de las columnas los introduzco a traves de formulario,

gracias
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Lo vuelvo a mirar y te respondo hoy por la tarde noche...
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Se podria cambiar el formato en los que introduces las Horas libres?
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

He estado consulta por ahí y desde los formularios de excel no se permite añadir más horas de 24, sin embargo en la hoja de excel directamente si.
Un saludo,
Experto:  Jose Mari escribió hace 6 año.
Hola de nuevo,

Si quieres te lo podría transformar en formato de texto. Dímelo y lo hacemos si te interesa.

UIn saludo,
Cliente: escribió hace 6 año.
si funciona de esa manera no me importa el formato que sea, lo que estoy pensando también, es la posibilidad de utilizar otro componente que no sea un listbox para visualizar la consulta, ¿ tu como lo ve ?

Saludos
Experto:  Jose Mari escribió hace 6 año.
Hola... a ver si eres capaz de leer esto:
j m a d g a n arro ba h o t m a i l . c o m

Te lo hago de otra manera... si eres capaz de leer lo de arriba escribemem vale?

Saludos,
Experto:  Jose Mari escribió hace 6 año.
j m a d g a n arrobbb h o t m a i l . c o m :)
Cliente: escribió hace 6 año.
si, soy capaz
Experto:  Jose Mari escribió hace 6 año.
Escribememe a

j m a d g a n arroba h o t m a i l . c o m

Y hablamos...