Thread: time returns a decimal value when searched

hello,

I need your ideas xl xperts on this one. I have a UserForm with a find button. My worksheet contains time values. My question is, when I perform a search or find function, the values being returned on my UserForm from the worksheet are in the form of decimal values but not the actual time values as indicated on the worksheet. Why is that so? Anyone knows how to format the time to return time values as actual time values rather than decimal?

Thanks,

Burke

Hello vba noob,

Thanks for your reply. Here the code I was studying with. I got it from one of the threads here: How can I format the time to return as actual time like in my work sheet?

Private Sub cmdadminfind_Click()
    Dim MatchCell As Range
    Dim strFind, FirstAddress As String   'what to find
    Dim rSearch As Range  'range to search
    Dim f As Integer
    
     'Search Range is the ID numbers column
      Set rSearch = ActiveSheet.Range("A1", Cells(Rows.Count, "A").End(xlUp))
      
     'ID number to find
      strFind = TextBox3.Value
      
      'Allways set All the Named Argumnets for the First Search.
      'The system "Find" function uses these settings also.
        With rSearch
          Set MatchCell = .Find(What:=strFind, _
                                          After:=Cells(1, 1), _
                                          LookIn:=xlValues, _
                                          LookAt:=xlWhole, _
                                          SearchOrder:=xlRows, _
                                          SearchDirection:=xlNext, _
                                          MatchCase:=False)
                                          
            If Not MatchCell Is Nothing Then    'found it
               'load entry to form
                TextBox10.Value = MatchCell.Offset(0, 1).Value    'Employee name
                TextBox4.Value = MatchCell.Offset(0, 5).Value      'Time 1
                TextBox5.Value = MatchCell.Offset(0, 6).Value      'Time 2
                TextBox6.Value = MatchCell.Offset(0, 8).Value      'Time 3
                TextBox7.Value = MatchCell.Offset(0, 9).Value      'Time 4
                TextBox8.Value = MatchCell.Offset(0, 11).Value     'Time 5
                TextBox9.Value = MatchCell.Offset(0, 12).Value     'Time 6
              
              FirstAddress = MatchCell.Address
              CurRow = MatchCell.Row
            
             'Check for and count duplicate entries
              Do
                f = f + 1    'count number of matching records
                Set MatchCell = .FindNext(MatchCell)
              Loop While Not MatchCell Is Nothing And MatchCell.Address <> FirstAddress
            
              If f > 1 Then
                MsgBox "There are " & f & " instances of " & strFind
                Me.Height = 318
              End If
            Else
              MsgBox strFind & " not listed"    'search failed
            End If
        End With
End Sub

Thanks,

Burke