Toggle Listbox in VBA

[preetpalkapoor]

Hi All,

I am trying to create a toggle list box through VBA.

On my form i am having two listboxes and two buttons.

I am having a defined range of elements in Listbox1. Now i am trying to move the selected element to the next Listbox2 (Which i am able to do) and along with this i need to perform 2 functions:
1.The value which is selected from Listbox1 should be deleted and added to listbox2.
2.On adding the value to listbox2 we need to update it on excel sheet also.

Could someone please help into this.

Thanks & Regards,
Preetpal

 

[preetpalkapoor]

My Code is :
Private Sub CommandButton1_Click()


Call move_Right
End Sub


Sub move_Right()
Dim i As Integer

If ListBox1.ListIndex = -1 Then Exit Sub

For i = ListBox1.ListCount - 1 To 0 Step -1

If ListBox1.Selected(i) = True Then

ListBox2.AddItem ListBox1.List(i)

ListBox1.RemoveItem i

End If

Next i
End Sub