درج داده ها از طریق فرم

[pishraw]

با سلام خدمت دوستان عزیز.
بنده می خواهم از طریق یک فرم داده های مورد نظر را در سلهای اکسل وارد کنم خواهشاً با توجه به فایل ضمیمه بنده را راهنمایی کنید.
با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام
فایل پیوست را ملاحظه بفرمایید

Private Sub CommandButton1_Click()

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

If Z = 3 Then

Z = 4

Else
Z = Z + 1
End If

Range("A" & Z).Select

ActiveCell.FormulaR1C1 = Z

Range("A" & Z).Formula = "=max($A$3:A" & Z - 1 & ")+1"
Range("c" & Z).Value = TextBox1.Value
Range("d" & Z).Value = TextBox2.Value
Range("e" & Z).Value = TextBox3.Value
Range("f" & Z).Value = TextBox4.Value
Range("h" & Z).Value = TextBox5.Value
Range("i" & Z).Value = TextBox6.Value
Range("j" & Z).Value = TextBox7.Value
Range("k" & Z).Value = TextBox8.Value

End Sub 

[pishraw]

با تشکر از جناب iranweld بنده هر چه سعی کردیم نتونستیم کدهای فرم مورد نظر را در فایل خود اجرا کنیم به طوری که داده ها در پایین تیبل مورد نظر ما ثبت می شود

[iranweld]

با سلام

فایل پیوست را تست بفرمایید

[pishraw]

عالـــــــــــــــــــی و سپاس.
اگر بخواهیم داده های روی فرم پاک شود و اماده ردیف بعدی شود از چه کدی برای دکمه ثبت باید استفاده کنیم .
بازم تشکر

[pishraw]

با این کد جواب را دریافت کردم. بازم سپاس

Range("A" & Z).Select
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""

[iranweld]

عالـــــــــــــــــــی و سپاس.
اگر بخواهیم داده های روی فرم پاک شود و اماده ردیف بعدی شود از چه کدی برای دکمه ثبت باید استفاده کنیم .
بازم تشکر

Private Sub CommandButton1_Click()

Range("a2").Select

If Range("a3").Value = "" Then
Z = 3

Else

    Selection.End(xlDown).Select
    Z = ActiveCell.Row + 1
    
   End If
   
Range("A" & Z).Select

Range("A" & Z).Formula = Z - 2
Range("b" & Z).Value = J_TODAY(1)
Range("c" & Z).Value = TextBox1.Value
Range("d" & Z).Value = TextBox2.Value
Range("e" & Z).Value = TextBox3.Value
Range("f" & Z).Value = TextBox4.Value
Range("h" & Z).Value = TextBox5.Value
Range("i" & Z).Value = TextBox6.Value
Range("j" & Z).Value = TextBox7.Value
Range("k" & Z).Value = TextBox8.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""

End Sub