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
هذا الكود لا يشتغل معي....لماذا؟....
أرجو المساعدة ....من فضلكم....وشكرا.