copy specific columns from listbox to userform without selection

[Ali M]

Hello ,
I would copy specific columns from listbox to bottom in sheet without selected from listbox.
any idea to fix this code please?

Dim lastrow As Long
     With Sheet2
        .Range("A" & lastrow + 1).Value = Me.ListBox1.Column(0)
        .Range("B" & lastrow + 1).Value = Me.ListBox1.Column(1)
        .Range("C" & lastrow + 1).Value = Me.ListBox1.Column(3)
    End With

thanks

 

[MikeVol]

Hi @Ali M
How do you fill this listbox and how many rows of data are there?

 

[Ali M]

I have another code to show data on form based on another sheet . so what I would do it by commandbutton to copy specific columns to sheet.
data could be 8000 rows .

 

[dmt32]

Hi
have a look at solution here post #2 Vba listbox.column to range

Dave

 

[MikeVol]

That is, you want to copy certain columns from all the rows that are displayed in your listbox, do I understand you correctly?

 

[Ali M]

Hi Dave,
I try this

With Me.ListBox1
        Sheet2.Range("A1").Resize(.ListCount).Value = Application.Index(.List, 0, 0)
        Sheet2.Range("B1").Resize(.ListCount).Value = Application.Index(.List, 0, 1)
        Sheet2.Range("C1").Resize(.ListCount).Value = Application.Index(.List, 0, 3)
        
    End With

but show mismatch error starting from first line after listbox1 !

 

[Ali M]

That is, you want to copy certain columns from all the rows that are displayed in your listbox, do I understand you correctly?

yes

 

[MikeVol]

The solution is in the link that was provided to you.

 

[dmt32]

Hi Dave,
but show mismatch error starting from first line after listbox1 !

need to start with 1 for first column

  With Me.ListBox1
        Sheet2.Range("A1").Resize(.ListCount).Value = Application.Index(.List, 0, 1)
        Sheet2.Range("B1").Resize(.ListCount).Value = Application.Index(.List, 0, 2)
        Sheet2.Range("C1").Resize(.ListCount).Value = Application.Index(.List, 0, 4)
       
    End With

Dave

 

[Ali M]

need to start with 1 for first column

well, I thought the first column in listbox takes zero !
even if I change to 1 still shows error !