List Box transfer to page

[0 Agios]

From a populated VB list box, that populates from page named "data", click and trasfer items to a page named "estrimate"
Thanks.

 

[VoG]

Maybe like this

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then Sheets("Estimate").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = ListBox.List(i).Value
Next i

 

[0 Agios]

Maybe like this

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then Sheets("Estimate").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = ListBox.List(i).Value
Next i

Thank you

 

[0 Agios]

Maybe like this

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then Sheets("Estimate").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = ListBox.List(i).Value
Next i

I tried this code but I get an error " Object required" when I click on the populated list box

 

[VoG]

Try this

Sub CommandButton1_Click()
Dim x As Long
For x = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(x) = True Then
        Sheets("Estimate").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = ListBox1.List(x)
    End If
Next x
Unload Me
End Sub

 

[0 Agios]

try this

sub commandbutton1_click()
dim x as long
for x = 0 to listbox1.listcount - 1
    if listbox1.selected(x) = true then
        sheets("estimate").range("a" & rows.count).end(xlup).offset(1).value = listbox1.list(x)
    end if
next x
unload me
end sub

it works thanks