Saturday, February 4, 2017

Listbox Additem From Other Listbox Excell VBA





VBA Code

Private Sub CommandButton1_Click()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Me.ListBox2.AddItem Me.ListBox1.Column(0)
Me.ListBox1.Selected(i) = False
End If
Next i
End Sub

No comments:

Post a Comment

Please do not enter any spam message in comment box