Hello,
i like some help for export the whole listbox into my sheet
if possible we like to import in the correct cells/column of the sheet
hope we make a good point
our code
Dim lngItem As Long
For lngItem = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(lngItem) Then
With Worksheets("2020")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Value = ListBox2.List(lngItem, 1)
End With
End If
Next lngItem
this add the selected to the sheet
but we can't manage to add the one that are displayed in the listbox
to the correct columns of the sheet
and it starts on row 4 instead of row 5
our sheet has 5 columns
also column B we like to add autonumeric count numbers when items are added
listbox2.column(number) we like to add into the column we like into the sheet
thank you