Re-produce code to copy last row from listbox on userform to sheet

[MKLAQ]

Hi
I have this code

Private Sub CommandButton1_Click()
Dim i As Long
Dim ary
    Dim ws As Worksheet
   
    Set ws = ThisWorkbook.Worksheets("OUT")
    ReDim ary(0 To 0)
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                ReDim Preserve ary(1 To UBound(ary) + 1)
                ary(UBound(ary)) = .List(i)
            End If
        Next
    End With
   
    ws.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(ary)).Value _
        = Application.Transpose(ary)
End Sub

should copy selected item from listbox to worksheet. indeed the code just copy the first column for selected item from listbox .
what I want copying the whole lastrow from listbox to row 2 in OUT sheet without select item.
thanks

 

[pitchoute]

To copy the entire last row from your ListBox to row 2 in the "OUT" sheet without selecting it, you can modify your code as follows:

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim lastIndex As Long
    Dim data
    Set ws = ThisWorkbook.Worksheets("OUT")
    
    With Me.ListBox1
        lastIndex = .ListCount - 1
        If lastIndex >= 0 Then
            data = .List(lastIndex)
            ws.Range("A2").Resize(1, UBound(data) + 1).Value = data
        Else
            MsgBox "ListBox is empty."
        End If
    End With
End Sub

 

[MKLAQ]

it shows mismatch error in this line

ws.Range("A2").Resize(1, UBound(data) + 1).Value = data

 

[MKLAQ]

Obviously you can't help After 5 days from the date of the topic despite of I posted after about 5 minutes from your post !

and gave suggest is not logic .

I suggest test it before you reply in the future .

thanks