كود ترحيل من الليست بوكس الي الشيت

Z=3

        Z = Sheet1.Range("A" & Rows.Count).End(3).Row

Option Explicit



Private Sub cmdAdd_Click()

    Dim v As Long, i As Long

    v = ListBox1.ListCount

    ListBox1.AddItem

    For i = 0 To ListBox1.ColumnCount - 1

        ListBox1.List(v, i) = Controls("TextBox" & i + 1).Text

    Next i

End Sub



Private Sub cmdTransfer_Click()

    Dim m As Long, v As Long, x As Long

    With ThisWorkbook.Worksheets("Sheet1")

        m = .Cells(Rows.Count, 1).End(xlUp).Row + 1

        For v = 0 To ListBox1.ListCount - 1

            For x = 0 To ListBox1.ColumnCount - 1

                .Cells(m, x + 1).Value = ListBox1.List(v, x)

            Next x

            m = m + 1

        Next v

    End With

End Sub

Private Sub Cmd_Clera_Click()

Me.ListBox1.Clear

End Sub

'+++++++++++++++++++++++++++++++++++++++++++++++



Private Sub CommandButton1_Click()

 For I = 1 To 9

 Me.Controls("TextBox" & I) = _

  Chr(Application.RandBetween(65, 90)) & " " & _

  Chr(Application.RandBetween(65, 90))

 Next

End Sub

'++++++++++++++++++++++++++++++++++++++++++++++



Private Sub ADD_To_shett_Click()

If Me.ListBox1.ListCount = 0 Then Exit Sub

Dim z%

 With Sheets("sheet1")

 z = .Cells(Rows.Count, 1).End(3).Row + 1

   .Cells(z, 1).Resize(ListBox1.ListCount, 9).Value = _

    ListBox1.List

 End With

End Sub

'++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub ADD_To_list_Click()

Dim n As Byte, t, k%

For t = 1 To 9

 If Me.Controls("TextBox" & t) <> vbNullString Then

 k = k + 1

End If

Next

 If k Then

With Me.ListBox1

   .AddItem

     For n = 0 To .ColumnCount - 1

    .List(.ListCount - 1, n) = _

     Me.Controls("TextBox" & n + 1)

    Next

   End With

 End If

End Sub