مشكلة اضافة اعمدة listbox الي text box

[عالم الهندسة]

في الملف المرفق لم استطيع ان انقل جميع البيانات من listbox الي تكست بوكس كاملة وتنتقل فقط عدد 10 اعمدة فقط مع العلم بحثت في المنتدي ووجدت بعض حلول لكن لم تفدني واردت اضافة زر اضافة ولم استطيع ولكم جزيل الشكر

الملف مرفق.... تم رفع الملف بـــدون ضـــغط

wdad mtn.xlsm

[عبدالفتاح في بي اكسيل]

هذه محاولة  تفضل  لعله ما تريد

ملاحظة : لا تضغط  الملف مرة اخرى   الملف صغير  لا يستحق  ذلك  كما  ان التيكست بوكس  ارقامه غير منظمة   نسقه  تجنب  لاي خطا بالكود 

Private Sub listbox1_Click()
    CheckThis = False
    If ListBox1.ListIndex = -1 Then
       MsgBox "Nothing Selected!"
       Exit Sub
    End If
    For i = 1 To 18
        Me("TextBox" & i).Text = ListBox1.Column(i - 1)
    Next
    CheckThis = True
End Sub

 

wdad mtn(tora(v1).xlsm

[عالم الهندسة]

جزاكم الله خير ونور الله وجوهكم وزادكم من خير