Mostrar formato hora en un combobox en excel
Como mostrar un Combo box el formato de "hora en una lista despegabel de un tabla3" ya que me muestra decimales el formulario
Decimales en combobox, quiero que se muestren horas
Tabla3 = catalogo de hora
Dejo el código:
Private Sub CommandButton1_Click()
Worksheets("VERIFICITAS").Range("B3").EntireRow.Insert 'insertar una fila nueva'
Range("B3") = COMBUSTIBLE.Value
Range("C3") = FECHAS.Value
Range("D3") = HORA.Value
Range("E3") = PLACA.Value
Range("F3") = MARCA.Value
Range("G3") = NOMBRE.Value
Range("H3") = TELEFONO.Value
COMBUSTIBLE = Empty
'FECHAS = Empty'
HORA = Empty
PLACA = Empty
MARCA = Empty
NOMBRE = Empty
TELEFONO = Empty
COMBUSTIBLE.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub HORA_Click()
HORA = Format(HORA, "[$-80A]hh:mm:ss AM/PM;@")
End Sub
Private Sub UserForm_Initialize()
COMBUSTIBLE.List = Worksheets("BD").Range("Tabla2").Value
HORA.List = Worksheets("BD").Range("Tabla3").Value
MARCA.List = Worksheets("BD").Range("Tabla4").Value
End Sub
1 respuesta
Puedes agregar cada hora con el método AddItem. Al momento de agregar utilizas el formato de hora que desees.
Private Sub UserForm_Initialize()
Dim c As Range
COMBUSTIBLE.List = Worksheets("BD").Range("Tabla2").Value
'HORA.List = Worksheets("BD").Range("Tabla3").Value
For Each c In Sheets("BD").Range("Tabla3")
HORA.AddItem Format(c, "[$-80A]hh:mm:ss AM/PM;@")
Next
MARCA.List = Worksheets("BD").Range("Tabla4").Value
End Sub
