ارور در لیست باکس

[aliooali]

با عرض سلام خدمت دوستان عزیز

من در قسمت لیست باکس به یه مشکلی برخورد کردم و اونم اینه که وقتی توی لیست باکس که بوسیله خود برنامه پر میکنم و توی لیست نمایش میده مشکلی نیست و راحت نمایش میده ولی وقتی از خود برنامه اکسل سلول ها رو پر میکنم و وقتی میام توی برنامه به ارور برخورد میکنم که عکس اون رو ضمینه کردم

[majid63]

منم این مشکل رو دارم. لطفاً کمک کنید

[iranweld]

نمونه فایل را بصورت زیپ شده ضمیمه کنید

کد ذیل برای یک لیست باکس 5 ستونه و 5 تکست باکس در یوزر فرم میباشد

For j = 1 To 5
       
       Me.Controls("TEXTBOX" & j) = ListBox1.List(i, j - 1)
       
       Next