Poner Formato HORA en Texboxt VB Excel

Esta es mi primera pregunta en este foro y quisiera que me ayudaran expertos, estoy realizando un pequeño programa en Excel con VB, una base de datos donde registro operaciones diarias, y de esas operaciones posteriormente requiero un formulario que solo me muestre esa información, pero cuando jala la información los TextBox los que me deben indicar la hora únicamente marcan números y no el formato hh:mm que tiene la celda del Excel, me podrán apoyar con el código por favor, eh buscado varios métodos y ninguno eh podido adaptarlo. Muestro mi código del formulario:

Private Sub TextBox4_AfterUpdate()
    Set h = Sheets("REPORTES")
    Set b = h.Columns("E").Find(TextBox4)
    If Not b Is Nothing Then
        TextBox1 = h.Cells(b.Row, "B")
        TextBox2 = h.Cells(b.Row, "C")   >>>Este Debe mostrar formato hh:mm pero muestra números
        TextBox3 = h.Cells(b.Row, "D")
        TextBox5 = h.Cells(b.Row, "F")
        TextBox6 = h.Cells(b.Row, "G")
        TextBox7 = h.Cells(b.Row, "H")
        TextBox8 = h.Cells(b.Row, "I")
        TextBox9 = h.Cells(b.Row, "J")
        TextBox10 = h.Cells(b.Row, "K")
        TextBox11 = h.Cells(b.Row, "L")
        TextBox12 = h.Cells(b.Row, "M")
        TextBox13 = h.Cells(b.Row, "N")
        TextBox14 = h.Cells(b.Row, "O")
        TextBox15 = h.Cells(b.Row, "P")>>>Este Debe mostrar formato hh:mm pero muestra números
        TextBox16 = h.Cells(b.Row, "Q")>>>Este Debe mostrar formato hh:mm pero muestra números
        TextBox17 = h.Cells(b.Row, "R")
        TextBox18 = h.Cells(b.Row, "S")>>>Este Debe mostrar formato hh:mm pero muestra números
    End If
End Sub

1

1 respuesta

Respuesta
3

Quedaría de esta forma:

TextBox2 = Format(h.Cells(b.Row, "C"), "hh:mm:ss AM/PM")

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Muchisimassss gracias Dante, Excelente día. Si llego a tener algún otro conflicto te estaré consultado.

Saludos.

Claro! Con gusto lo reviso.

Buenas tardes Dante, solicito de su apoyo para un problema que tengo con mi código, este código lo que hace es ir agregando registros, pero al cerrar el archivo y volverlo a abrir y agregar registro me borra unos que ya estén, o me inserta una fila en blanco. el código es el siguiente y se inserta en una tabla.

Private Sub guardar_Click()
resultado = MsgBox("¿DESEA CAPTURAR EL REPORTE?", vbYesNo + vbExclamation, "CAPTURA DE REPORTE")
Select Case resultado

    Case vbYes:

        Sheets("DATOS").Select Range("A2").Select
        Selection.EntireRow.Insert

   
            ActiveSheet.Cells(2, 1) = cant.Text
            ActiveSheet.Cells(2, 2) = tecnico
            ActiveSheet.Cells(2, 3) = tecasignado
            ActiveSheet.Cells(2, 4) = fecha
            ActiveSheet.Cells(2, 5) = reporte.Text
            ActiveSheet.Cells(2, 6) = folio.Text
            ActiveSheet.Cells(2, 7) = econo.Text
            ActiveSheet.Cells(2, 8) = client
            ActiveSheet.Cells(2, 9) = lectura.Text
            ActiveSheet.Cells(2, 10) = department
            ActiveSheet.Cells(2, 11) = modelo
            ActiveSheet.Cells(2, 12) = hllegada
            ActiveSheet.Cells(2, 13) = TextBox6
            ActiveSheet.Cells(2, 14) = fexpuesta
            If opt1.Value = True Then ActiveSheet.Cells(2, 15) = 0.25
            If opt2.Value = True Then ActiveSheet.Cells(2, 15) = 0.5
            If opt3.Value = True Then ActiveSheet.Cells(2, 15) = 0.75
            If opt4.Value = True Then ActiveSheet.Cells(2, 15) = 1
            If opt12.Value = True Then ActiveSheet.Cells(2, 15) = 1.25
            If opt13.Value = True Then ActiveSheet.Cells(2, 15) = 1.5
            If opt14.Value = True Then ActiveSheet.Cells(2, 15) = 1.75
            If opt15.Value = True Then ActiveSheet.Cells(2, 15) = 2
            If opt5.Value = True Then ActiveSheet.Cells(2, 16) = "PREVENTIVO"
            If opt6.Value = True Then ActiveSheet.Cells(2, 16) = "CORRECTIVO"
            If opt7.Value = True Then ActiveSheet.Cells(2, 16) = "FALLA DE USUARIO"
            If opt8.Value = True Then ActiveSheet.Cells(2, 16) = "CONECTIVIDAD"
            If opt9.Value = True Then ActiveSheet.Cells(2, 16) = "FALLA DE EQUIPO"
            If opt10.Value = True Then ActiveSheet.Cells(2, 16) = "PENDIENTE"
            If opt11.Value = True Then ActiveSheet.Cells(2, 16) = "RECARGA DE TONER"
            If CheckBox1.Value = True Then ActiveSheet.Cells(2, 17) = 1
            If CheckBox2.Value = True Then ActiveSheet.Cells(2, 18) = 1
            If CheckBox3.Value = True Then ActiveSheet.Cells(2, 19) = 1
            If CheckBox4.Value = True Then ActiveSheet.Cells(2, 20) = 1
            If CheckBox5.Value = True Then ActiveSheet.Cells(2, 21) = 1
            If CheckBox6.Value = True Then ActiveSheet.Cells(2, 22) = 1
            If CheckBox11.Value = True Then ActiveSheet.Cells(2, 23) = 1
            If CheckBox12.Value = True Then ActiveSheet.Cells(2, 24) = 1
            If CheckBox13.Value = True Then ActiveSheet.Cells(2, 25) = 1
            If CheckBox14.Value = True Then ActiveSheet.Cells(2, 26) = 1
            If CheckBox7.Value = True Then ActiveSheet.Cells(2, 27) = 1
            If CheckBox8.Value = True Then ActiveSheet.Cells(2, 28) = 1
            If CheckBox9.Value = True Then ActiveSheet.Cells(2, 29) = 1
            If CheckBox10.Value = True Then ActiveSheet.Cells(2, 30) = 1
            If CheckBox15.Value = True Then ActiveSheet.Cells(2, 37) = "INSTALACION"
            If CheckBox16.Value = True Then ActiveSheet.Cells(2, 37) = "CAMBIO"
            If CheckBox17.Value = True Then ActiveSheet.Cells(2, 37) = "RETIRO"
            If CheckBox18.Value = True Then ActiveSheet.Cells(2, 37) = "RESPALDO"
            ActiveSheet.Cells(2, 31) = TextBox1
            ActiveSheet.Cells(2, 32) = TextBox2
            ActiveSheet.Cells(2, 33) = TextBox3
            ActiveSheet.Cells(2, 35) = TextBox4
            ActiveSheet.Cells(2, 36) = TextBox5
            ActiveSheet.Cells(2, 34) = TextBox7
            ActiveSheet.Cells(2, 38) = cartucho
            reporte = Empty
            folio = Empty
            econo = Empty
            client = Empty
            lectura = Empty
            department = Empty
            modelo = Empty
            hllegada = Empty
            fexpuesta = Empty
            tecasignado = Empty
            zona = Empty
            opt1 = Empty
            opt2 = Empty
            opt3 = Empty
            opt4 = Empty
            opt5 = Empty
            opt6 = Empty
            opt7 = Empty
            opt8 = Empty
            opt9 = Empty
            opt10 = Empty
            opt11 = Empty
            opt12 = Empty
            opt13 = Empty
            opt14 = Empty
            opt15 = Empty
            CheckBox1 = Empty
            CheckBox2 = Empty
            CheckBox3 = Empty
            CheckBox4 = Empty
            CheckBox5 = Empty
            CheckBox6 = Empty
            CheckBox7 = Empty
            CheckBox8 = Empty
            CheckBox9 = Empty
            CheckBox10 = Empty
            CheckBox11 = Empty
            CheckBox12 = Empty
            CheckBox13 = Empty
            CheckBox14 = Empty
            CheckBox15 = Empty
            CheckBox16 = Empty
            CheckBox17 = Empty
            CheckBox18 = Empty
            TextBox1 = Empty
            TextBox2 = Empty
            TextBox3 = Empty
            TextBox4 = Empty
            TextBox5 = Empty
            TextBox6 = Empty
            TextBox7 = Empty
            cartucho = Empty
            tecnico.SetFocus
            Case vbNo:
            Exit Sub
End Select

End Sub

Crea una nueva pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas