listbox items transfer

**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.

**Andy Pope** · 10-22-2009, 08:42 AM

It would have helped if you had posted what you had tried and details on the error.

Private Sub OKButton_Click()

    if listbox2.listcount>0 then   
       Worksheets("List1").Cells(1, 2).Resize(ListBox2.ListCount, 1) = ListBox2.List
    endif 
    Unload Me
End Sub