Mostrar Hora de la ultima fila en un label de un userform

Para: Dante

Tengo un inconveniente que relativamente no lo pude solucionar, como puedo mostrar la hora de una celda en un form pero siempre de la ultima fila en este caso de la columna "B" el codigo que estoy utilizando con el label que tiene que mostrar la hora es la siguiente

Private Sub UserForm_Activate()
    On Error Resume Next
    Set h1 = Sheets("DATOS")
     u = h1.Range("A" & Rows.Count).End(xlUp).Row
    Label28.Caption = Date
    TextBox48.Value = h1.Format(Range("AO"), "0.00%" & u)
    TextBox49.Value = h1.Format(Range("AP"), "0.00%" & u)
    TextBox51.Value = h1.Range("BB" & u)
    TextBox52.Value = h1.Range("BC" & u)
    Label94.Caption = h1.Range("AZ" & u)
    Label93.Caption = h1.Range("BA" & u)
    Label46.Caption = h1.Range("BH" & u)
    Label47.Caption = h1.Range("AK" & u)
    Label45.Caption = h1.Range("BM" & u)
    Label48.Caption = h1.Range("AJ" & u)
    Label49.Caption = h1.Range("AA" & u)
    Label63.Caption = h1.Range("AV" & u)
    Label64.Caption = h1.Range("AW" & u)
    Label50.Caption = h1.Range("Z" & u)
    Label60.Caption = h1.Range("w" & u) 
    Label61.Caption = h1.Range("Y" & u) 
    Label84.Caption = h1.Range("A" & u)
    Label85.Caption = h1.Format(Cells(u, 2).Value, "hh:mm am/pm")
End Sub

El Label85 es la que me tiene que mostrar la hora en el formulario.

1 Respuesta

Respuesta
1

¿Y qué tienes en la celda?

probaste asi. label85.caption = h1.cells(u, 2)

Si no te pone la hora, prueba asi

Label85.caption = format(h1.cells(u, 2), "hh:mm am/pm")

el format va afuera .

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Label con formato de fecha y hora

Tengo un UserForm con un ComboBox que busca datos de una lista; al seleccionar, me arroja un valor de fecha en label 2 y de hora en Label 3. Pero, como no puedo darle valores de texto (porque necesito ordenarlos permanentemente), me arroja el número...
2 respuestas

Macro para no duplicar registros de fecha y hora

Estoy generando un archivo de eventos en el que quiero hacer una macro para que antes de registrar en la base de datos ya se sepa que horarios se pueden tener de esa fecha por favor les agradezco el apoyo de antemano
1 respuesta

Dejar registro en una Planilla de Excel si una persona autorizada, entra a un cuarto, y dejar registro de la respectiva Salida.

Dante Amor, me ayudó con esta macro, que funciona a la perfección, pero necesito que haga otra cosa mas: Private Sub CommandButton1_Click()'Por.Dante Amor Set h1 = Sheets("Registro") Set h2 = Sheets("BasedeDatos") Set b =...
1 respuesta

No se envía la invitación para reuniones en Outlook desde vba

Tengo otro inconveniente y es el ultimo para terminar mi proyecto, tengo un archivo que envía tareas a Outlook y también las envía a contactos (gracias a tu apoyo), además puedo programar mis citas, lo que quiero incluír y no he podido es enviar...
1 respuesta

Sacar subotales por año arriba en la hoja

Ayudarme a que arriba aparezcan los totales por año de cada inquilino que vayamos a consultar Gracias Sub Buscar() 'Mod.Por.DAM Application.ScreenUpdating = False Set h1 = Sheets("Estados de cuenta") Set h2 = Sheets("Cartera.") '...
1 respuesta

Al extraer datos al ListBox, poner el encabezado de cada columna.

Tengo ahora este código para extraer datos al ListBox1 en tres columnas, pero necesito que también me pase el encabezado que tiene cada columna, o sea la 1° columna es “FECHA”; la 2° es “No. De Fact” y la 3° es” Importe” y al final “Total”… la...
1 respuesta

El código macro no obedece su función

De nuevo por tu aporte… en un principio esta macro que te anexo funcionó bien pero ahora que hago pruebas para terminar no me pone correctamente los datos capturados: el número de factura y su importe: al clikear el botón inserta la fecha actual, lo...
1 respuesta

Macro para Jalar datos con sus formatos de una columna a otra

Para Dante Agradeciendo por la gran ayuda que nos brindas en el foro, como puedo realizar para que me jale los datos con sus formatos de la otras columnas según nombre de fechas que tienen las hojas, lo que quiero lograr con este tema es que pueda...
1 respuesta

Detectar tipo de movimiento y registrarlo según sea el caso, en Planilla Excel, mediante el uso de Un TextBox..

Requiero de sus valiosos aportes a fin de terminar esta pequeña planilla. Mediante el ingreso de un Código que puede Ser AlfaNumérico, detectar, si el Nombre ya está en la Planilla y copiar en la respectiva Columna "Entrada" o "Salida", la fecha y...
1 respuesta

Pegar rango de excel en el cuerpo de una tarea

Quiero saber si es posible, usando vba se pueda pegar un rango con formatos en el cuerpo de una tarea de outlook. Estoy usando este código pero el rango lo pega en el campo del "asunto", espero puedas apoyarme con la solución. Saludos y de antemano...
1 respuesta