Option Explicit

Private Sub imgSort_click()

Call loadListRange
Call sortListRange
Call convertTimeFormat

End Sub

Private Sub UserForm_initialize()
    
Call loadListRange
Call convertTimeFormat

End Sub

Private Sub loadListRange(Optional searchtext As String = "")
Dim listboxName As String: listboxName = ""         \'storing the name of the listbox.
Dim selectedColumn As String: selectedColumn = ""     \'storing the position of the columns the you wish to include in the listbox with the delimiter of comma.
Dim splitSelectedColumn() As String                 \'selectedColumn will be split and stored in this variable.
Dim columnWidth As String: columnWidth = ""         \'for column width of the listbox
Dim tblData As Variant                              \'all range data will be stored here.
Dim arrayOutput() As Variant                        \'filtered data will be stored here.
Dim arrayFinal() As Variant                         \'filtered clean data will be stored here and will be the output for listbox.
Dim i As Long: i = 0                                \'for loop iteration.
Dim X As Long: X = 0                                \'for loop iteration.
Dim outputCounter As Long                           \'number of times the loop found a match for the text in txtsearch.
Dim concatString As String

\'===================================================Developer Setting===============================================================
\'
listboxName = "ListBox1"
tblData = shtData.Range("A1:G" & GetLastRow(shtData, "G")).Value2
selectedColumn = "1,2,3,4,5,6,7"
columnWidth = "50;50;50;50;50;60;50"

\'lisboxName = [Accepts the name of the listbox in the current userform].
\'tblData = [Accepts Range.Value].
\'selectedColumn = [Accepts column position starting from 0 with the delimiter of comma].
\'columnWidth = [Accepts number or blank value that will adjust the width of each column in the listbox with the delimiter of semi colon].

\'====================================================Processing Area================================================================
splitSelectedColumn = Split(selectedColumn, ",")
ReDim arrayOutput(UBound(tblData), UBound(splitSelectedColumn)) \'Setting the size of array, based on the size of the table in excel.

\'Looping through the whole table.
For i = 1 To UBound(tblData)
    
    
    concatString = tblData(i, splitSelectedColumn(0)) & " " & tblData(i, splitSelectedColumn(1)) & " " & tblData(i, splitSelectedColumn(2)) & " "
    
    \'Finds if the current row if contains a characters types in the txtSearch.
    If InStr(LCase(concatString), LCase(searchtext)) > 0 Then
        
        \'If the row countains the characters in the txtSearch, then it is saved in the arrayOutput.
        For X = 0 To UBound(splitSelectedColumn)
            arrayOutput(outputCounter, X) = tblData(i, splitSelectedColumn(X))
        Next X
        
    \'To count how many iterations or the loop found a match for the search.
    outputCounter = outputCounter + 1
    
    End If
    
Next i

\'If the loop didnt found a match, this block of code will run.
If outputCounter = 0 Then          \'
    Erase arrayOutput              \'
    Me.Controls(listboxName).Clear \'
Exit Sub \'Stopping the current sub.\'
End If                             \'
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

\'Setting the size of the second array based on the number of times the loop found a match(which is the outputCounter).
ReDim Preserve arrayFinal(outputCounter - 1, UBound(arrayOutput, 2))

\'Cleaning the arrayOutput(removing the extra rows created by the first array variable) by _
 redeclaring it in a second array variable with the size of outputCounter.
For i = 0 To outputCounter - 1               \'
    For X = 0 To UBound(splitSelectedColumn) \'
        arrayFinal(i, X) = arrayOutput(i, X) \'
    Next X                                   \'
Next                                         \'
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

With Me.Controls(listboxName)
    If columnWidth <> "" Then
        .ColumnWidths = columnWidth
    End If
    .List = arrayFinal
    .Selected(0) = True
End With

Erase arrayFinal
Erase arrayOutput

DoEvents
End Sub