ListBox List into Range
 

Hi all, I have items list in ListBox1 and I want macro on a button to
get that list in column A from Range A2 to down. Please can anyone
can help

ListBox List into Range
 

Private Sub CommandButton1_Click()
For i = 0 To UBound(ListBox1.List)
ActiveSheet.Range("A" & i + 2) = Me.ListBox1.List(i)
Next
End Sub




"K" wrote:

Hi all, I have items list in ListBox1 and I want macro on a button to
get that list in column A from Range A2 to down. Please can anyone
can help

ListBox List into Range
 

On Feb 23, 2:18*pm, JLGWhiz wrote:
Private Sub CommandButton1_Click()
* * For i = 0 To UBound(ListBox1.List)
* * * * *ActiveSheet.Range("A" & i + 2) = Me.ListBox1.List(i)
* * Next
End Sub



"K" wrote:
Hi all, *I have items list in ListBox1 and I want macro on a button to
get that list in column A from Range A2 to down. *Please can anyone
can help- Hide quoted text -

- Show quoted text -

Thanks