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 Respuesta
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
