select listbox item automatically

[ilyaskazi]

I hv 2 listboxes on userform..

If user is selecting the text of listbox1 then
get its index and select the text of listbox2(index of listbox1)
next also remove the selected item from both listboxes on clicking
remove btn.

 

[Bob Phillips]

Private Sub cmdRemove_Click()
Range("A1").Offset(ListBox1.ListIndex).Delete
Range("B1").Offset(ListBox1.ListIndex).Delete
End Sub

Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
End Sub

This assumes that the source of the listboxes is A1:A10, B1:B10

 

[ilyaskazi]

Although i wanted the help for userform's listbox, it is solved takin
some similar codes

It is perfect as always, Mr Bob.. Thankyou

 

[ilyaskazi]

i do not want to accept any item in listbox if it is already existing

show msgbox of already exis