VBA Code from listbox to worksheet

[Eve05]

Hi
I have a worksheet that has 2 userforms. I have a VBA code that allows the selected records to show in a specific cells, but when I select another one it goes over the top of the first one, i need it to appear and the next blank row. Can anyone tell me what I am doing wrong.

Private Sub cmdAdd_Click()
    Dim addme As Range
    Dim x As Integer
    Set addme = Sheet1.Range("C6").End(xlUp).Offset(1, 0)
    For x = 0 To Me.lstData.ListCount - 1
        If Me.lstData.Selected(x) Then
            addme = Me.lstData.List(x)
            addme.Offset(0, 1) = Me.lstData.List(x, 1)
            addme.Offset(0, 2) = Me.lstData.List(x, 2)
            addme.Offset(0, 3) = Me.lstData.List(x, 3)
            addme.Offset(0, 4) = Me.lstData.List(x, 4)
            addme.Offset(0, 5) = Me.lstData.List(x, 5)
            addme.Offset(0, 6) = Me.lstData.List(x, 6)
            addme.Offset(0, 7) = Me.lstData.List(x, 7)
            addme.Offset(0, 8) = Me.lstData.List(x, 8)
            
            Set addme = addme.Offset(1, 0)
        End If
    Next x
    For x = 0 To Me.lstData.ListCount - 1
        If Me.lstData.Selected(x) Then Me.lstData.Selected(x) = False
    Next x
End Sub

 

[Osvaldo Palmeiro]

Hi.

Try after replace this line ~~~> Set addme = Sheet1.Range("C6").End(xlUp).Offset(1, 0)

by this ~~~> Set addme = Sheet1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)