نقل قيمة الي التكس بوكس

[ahed5567]

انا عمل كود نقل الليست بوكس وعايز اعمل اكواد نقل اللي تكس بوكس لو سامحتوا ارجو المساعدة

ليست بوكس الى اخرى.xlsm

[Ali Mohamed Ali]

تفضل يمكنك استخدام هذا الكود

Private Sub CommandButton2_Click()
Dim str As String
    Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            If str <> vbNullString Then str = str & ", "
            str = str & ListBox1.List(i)
        End If
    Next
    TextBox2.Text = TextBox2.Text & " " & str
End Sub

 

ليست بوكس.xlsm

[احمد بدره]

بارك الله فيك أستاذ علي وكل عام أنت بخير