كود التعديل في الفورم لا يشتغل معي....لماذا؟....

[djtech]

Private Sub CommandButton1_Click()
For j = 1 To 55
      Sheet2.Cells(r, j) = Controls("textbox" & j).Text
    Next j
        MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ"
ListBox1.Clear
TextBox11.Text = ""
End Sub

هذا الكود لا يشتغل معي....لماذا؟....
أرجو المساعدة ....من فضلكم....وشكرا.

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

اولا  اين  الملف 

ثانيا  على  حسب  علمي  هذا  كود  نسخ  البيانات من حوالي  55 مربع نص  الى  ورقة  العمل  وليس   تعديل  مثل  ما  ظاهر  لعنوان  موضوعك 

ثالثا  عندك  متغير   r     اين  تعريفه     يفترض  يشير  الى  الصف    الذي  سيتم  البدء  بنسخ  البيانات  منه