نحوه ی آدرس دهی هدر های داخل شیت در فرم به تکس باکس ؟

[ne&in]

با سلام و احترام
وقتی من دکمه ثبت رو میزنم ارور میده فایلم
خواستم بدونم مشکل آدرس دهی و مشکل کدنویسیم در کجا هست؟

فایل

فایل شماره ها (http://s9.picofile.com/file/8289952400/%D9%81%D8%A7%DB%8C%D9%84_%D8%B4%D9%85%D8%A7%D8%B1% D9%87_%D9%87%D8%A7.xlsm.html)

[ali.b]

Sub Row()
Dim c As Range
Dim i
ActiveSheet.Select
If Range("b2") = "" Then Exit Sub
For Each c In Range("B2", Range("B65536").End(xlUp))
If c.Value <> "" Then
c.Offset(0, -1) = i + 1
i = i + 1
End If
Next c
End Sub

ی ماژول تعریف کن و اینو وارد کنید

از حالت table خارج کنید و کد ثبت اطلاعات رو اصلاخ کنید

Private Sub CommandButton1_Click()
Sheet1.Select
Range("A65536").End(xlUp).Select
With Selection
.Offset(1, 1) = TextBox1.Text
.Offset(1, 2) = TextBox2.Text
.Offset(1, 3) = TextBox4.Text
.Offset(1, 4) = TextBox3.Text

Call Row
End With
End Sub

[ne&in]

همون مازول 1 باشه اسمش درسته یا باید اسم خاصی تعریف کنم؟

[ali.b]

بله نیاز به تغییر اسم ماژول نیست
فقط این کد رو قرار بدین همین و داده های ثبت اطلاعات رو اصلاح کنید