Copy Selected data from a List box

[danallamas]

Guys I seriously need help on this.

I have a listbox in the attached spreadsheet and I need to be able to copy selected data to Column E and List down all companies that match the selected data in column e to Column G. Companies and programs combined is in 'Company_Program Tab and listbox is based from 'Unique Programs Tab'

The project aims to listdown companies that offer the programs selected.

[:) Sixthsense :)]

Instead of Form controls use ActiveX Listbox so that we can use vba code to do the job

[danallamas]

Thanks for the advice. I was able to get it to work

Here's the code:

Dim startNum As Integer
Private Sub Btn_add_Click()
Dim isExists
listResult.Clear
ListBox1.Height = 310
listResult.Height = 310
isExists = False
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
For j = 0 To listCompany.ListCount - 1
If ListBox1.List(i, 0) = listCompany.List(j, 0) Then
For k = 0 To listResult.ListCount - 1
If listResult.List(k, 0) = listCompany.List(j, 1) Then
isExists = True
Exit For
Else
isExists = False
End If
Next k
If Not isExists Then
listResult.AddItem listCompany.List(j, 1)
End If
End If
Next j
End If
Next i
End Sub

Private Sub btn_clear_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ListBox1.Selected(i) = False
End If
Next i
listResult.Clear
End Sub

Private Sub Btn_ClearRow_Click()
startNum = 0
Range("L7:L1129").ClearContents
End Sub

Private Sub CommandButton21_Click()
Dim charNum As String
charNum = "L"
For k = 0 To listResult.ListCount - 1
If listResult.Selected(k) = True Then
Range(charNum & "" & k + 7).Value = listResult.List(k, 0)
'MsgBox listResult.List(k, 0)
startNum = startNum + 1
End If
Next k
End Sub