listbox items transfer

**cassiopea** · 10-22-2009, 02:43 AM

I have a userform with two listboxes and three command buttons.

Listbox1 has Rowsource ("a1:a12)

With commandbutton1 (Add) I am adding selected items from listbox1 to listbox2.
With commandbutton2 (Delete) I am deleting items from listbox2.

Third commandbutton is Ok.

I would like with ok button transfer all items from listbox2 to worksheet - Columns (B:B).

How can I do that?

**rwgrietveld** · 10-22-2009, 03:03 AM

You can extent the OK button with

Private Sub OKButton_Click()
   
    Dim LBCounter As Long
    
    For LBCounter = 0 To ListBox2.ListCount - 1
      Worksheets("List1").Cells(LBCounter + 1, "B") = ListBox2.List(LBCounter)
    Next
    
    Unload Me
    
End Sub

**Andy Pope** · 10-22-2009, 04:13 AM

alternative

Private Sub OKButton_Click()
       
    Worksheets("List1").Cells(1, 2).Resize(ListBox2.ListCount, 1) = ListBox2.List
    
    Unload Me
End Sub

**cassiopea** · 10-22-2009, 07:07 AM

It works, but if there are no items selected, then Run time error 1004 apears when I click ok button.

**Andy Pope** · 10-22-2009, 07:21 AM

then add a line to check the listcount property first.

Better yet only enable the button when listbox contains items.

**cassiopea** · 10-22-2009, 08:37 AM

I tried several codes but no one works. Errror always appears.

listbox items transfer

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

listbox items transfer

Re: listbox items transfer

Re: listbox items transfer

Re: listbox items transfer

Re: listbox items transfer

Re: listbox items transfer

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions