Excel VBA: How to add items to a multi-select listbox with two columns instead of one?
Excel VBA form: How to add items to a multi-select listbox with two columns instead of one?
Please note the following code:
I get the yellow highlight on line item with Run-time error '13'. type mismatch.
please note image attachments that show this as well.
All I'm doing is looping through the collection and adding to the two columns - the fullfilename found in variable sFile and the filename only in sFileOnly...
Private Sub FillListBox_FilesFound()On Error GoTo Err_Proc Dim sFileName As String Dim sFilePath As String Dim lCounterFileTotal As Long Dim lCounter As Long Dim sFileOnly As String Dim colFiles As New Collection Dim vFile As Variant Dim sFile As String 'setting up listbox: Me.ListBox_FilesFound.ColumnCount = 2 Me.ListBox_FilesFound.ColumnWidths = "0;100" Me.ListBox_FilesFound.Clear sFileName = GetCurrentFileName 'determine path sFilePath = FilePathOnly_feo(sFileName) txtFilePath = sFilePath RecursiveDir colFiles, sFilePath, "*.xls*", True lCounterFileTotal = colFiles.Count lCounter = 0 'loops through all files found in RecursiveDir 'but only through filenames that have states. For Each vFile In colFiles sFile = vFile lCounter = lCounter + 1 sFileOnly = FileNameOnly_feo(sFile) Me.ListBox_FilesFound.AddItem Me.ListBox_FilesFound(lCounter - 1, 0) = sFile Me.ListBox_FilesFound(lCounter - 1, 0) = sFileOnly If IsNameOfUSStates(sFileOnly) = True Then ListBox_FilesFound(lCounter - 1, 0).Selected = True DoEvents End If Next vFile 'lCounter = 0Exit_Proc: Exit SubErr_Proc: Call LogError_feo(Err, Err.Description, "fAdjustFiles @ FillListBox_FilesFound") Resume Exit_ProcEnd Sub