TextBox and ListBox Date time Issue

[carlrubber]

Copy Record.xlsb

I have a excel userform with data field loan and return date time (textbox 7 & 8).
how can I show the field in textbox and listbox with both date and time as shown in "data" sheet col. H & I, i just can show the date only right now

please help

[torachan]

Add the code below to format your textboxes (you may need to change the format to your locale settings)

Private Sub TextBox7_Change()
Me.TextBox7 = Format(Me.TextBox7, "dd/mm/yyyy h:mm")
End Sub

Private Sub TextBox8_Change()
Me.TextBox8 = Format(Me.TextBox8, "dd/mm/yyyy h:mm")
End Sub

Add the following five rows to CommandButton9 and also to the Initialize event immediately following the listbox load and to any other Sub that you use to load the listbox.

Private Sub CommandButton9_Click()
ListBox1.ColumnWidths = "40;120;20;60;40;100;50;50;50;50;40;50;90;25;25"         'COLUMN WIDTHS OF LISTBOX
ListBox1.ColumnCount = 15                                                      'Column Count Of Listbox
ListBox1.List = Sheets("Data").Range("A2:O" & Sheets("data").Cells(Rows.Count, 1).End(xlUp).Row).value
ListBox1.ListIndex = -1
TextBox14.value = ListBox1.ListCount
'*****************add these five rows*****************
Dim x As Long
For x = 0 To ListBox1.ListCount - 1
ListBox1.List(x, 7) = Format(ListBox1.List(x, 7), "dd/mm/yyyy h:mm")
ListBox1.List(x, 8) = Format(ListBox1.List(x, 8), "dd/mm/yyyy h:mm")
Next x
'*******************************************************
End Sub

please place all your declared variables immediately after Option Explicit - then run debug and correct all the errors that show.

[carlrubber]

thz for your help.

but how about the listbox? it still no time inside listbox

[torachan]

Get rid of your UserForm_Activate event it is overriding the Initialize events and cancelling out the format.
Get rid if your present CommandButton9_Click event and Your Initialize event - then copy/paste the code below - one Sub LOADLIST() is called from the initialize and also if you click Command9

Private Sub UserForm_Initialize()

'**************ComboBox6************************
Dim program, status, location, nature As Range
Dim ws As Worksheet
Set ws = Worksheets("Lists")

For Each program In ws.Range("Program")
  With Me.ComboBox6
    .AddItem program.value
  End With
Next program

For Each status In ws.Range("***")
  With Me.ComboBox3
    .AddItem status.value
  End With
Next status

For Each location In ws.Range("Location")
  With Me.ComboBox4
    .AddItem location.value
  End With
Next location

For Each nature In ws.Range("Nature")
  With Me.ComboBox5
    .AddItem nature.value
  End With
Next nature

'** SEARCH COMBOBOX
With ComboBox1
.AddItem "Patient Name"
.AddItem "Index No."
.AddItem "Location"
.AddItem "Validation"
End With
'**********************************************
With ComboBox2
.AddItem "<"
.AddItem ">"
.AddItem "="
End With
ComboBox2.ListIndex = 0
TextBox14.value = ListBox1.ListCount
TextBox15.value = ""
With lblDone
        .Top = lblRemain.Top + 1
        .Left = lblRemain.Left + 1
        .Height = lblRemain.Height - 2
        .Width = 0
    End With
lblPct.Visible = False
LOADLIST
End Sub

Private Sub CommandButton9_Click()
LOADLIST
End Sub

Sub LOADLIST()
Me.ListBox1.Clear
ListBox1.ColumnWidths = "40;120;20;60;40;100;100;100;100;50;40;50;90;25;25"         'COLUMN WIDTHS OF LISTBOX
ListBox1.ColumnCount = 15                                                      'Column Count Of Listbox
ListBox1.List = Sheets("Data").Range("A2:O" & Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row).value
ListBox1.ListIndex = -1
TextBox14.value = ListBox1.ListCount
'*****************add these five rows*****************
Dim x As Long
For x = 0 To ListBox1.ListCount - 1
ListBox1.List(x, 7) = Format(ListBox1.List(x, 7), "dd/mm/yyyy h:mm")
ListBox1.List(x, 8) = Format(ListBox1.List(x, 8), "dd/mm/yyyy h:mm")
Next x
End Sub

[carlrubber]

thz so much it ok now
you are great