[حل شده] ثبت اطلاعات در تكس باكس و انتقال در شيت ديگر

[مائده]

سلام اساتيد محترم
درفايل پيوست ارسالي در شيت فرم آ زماني كه دكمه ماكرو ايجاد ميزنيم در قسمت شرح يه سري اطلاعات مينويسيم و كليد ثبت نهايي ميزنيم اطلاعات نوشته شده در شيت ديتا به صورت بايگاني و رديفي ذخيره بشه
ممنون ميشم كد يوزرفرم كامل كنيد

[abootorab]

سلام اساتيد محترم
درفايل پيوست ارسالي در شيت فرم آ زماني كه دكمه ماكرو ايجاد ميزنيم در قسمت شرح يه سري اطلاعات مينويسيم و كليد ثبت نهايي ميزنيم اطلاعات نوشته شده در شيت ديتا به صورت بايگاني و رديفي ذخيره بشه
ممنون ميشم كد يوزرفرم كامل كنيد

با درود
کد زیر را برای کلید ثبت نهایی وارد کنید.

Private Sub CommandButton1_Click()
    Dim EndRow As Integer
    On Error Resume Next
    EndRow = Sheets("data").Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Sheets("data").Cells(EndRow + 1, 1).Value = Me.TextBox1.Text
    MsgBox "Submited Description."
    Me.TextBox1.Text = ""
    Me.TextBox1.SetFocus
End Sub 

[مائده]

[QUOTE=abootorab;45497]با درود
کد زیر را برای کلید ثبت نهایی وارد کنید.

سلام
با تشكر فراوان از شما استاد گرامي
ممنون كد كامل شد