help: نوشتن کدی برای انتقال اطلاعات از یوزر فرم به شیت

[a.miri]

سلام
من تازه شروع به یاد گیری vba نمودم
میخوام کد زیر رو بدونم و برای کار خودم بست بدم:
"کدی که اطلاعات textbox1 در یوزر فرم را با commandbutton1 هر دفعه به اولین سلول خالی در ستون A منتقل کنه."
ممنون میشم کسی کمکم کنه.

[shamsololama]

RE: help: نوشتن کدی برای انتقال اطلاعات از یوزر فرم به شیت

با درود فراوان

به دو روش زیر می توانید انجام بدهید

روش اول

Private Sub CommandButton1_Click()
Dim n
n = Application.WorksheetFunction.CountA(Sheet1.Range( "A1:A1000"))
Sheet1.Range("A1").Offset(n, 0) = TextBox1.Text
End Sub


روش دوم

Private Sub CommandButton2_Click()
Dim c As Range
For Each c In Range("A1:A1000")
If c = "" Then
c.Value = TextBox1.Text
Exit For
End If
Next
End Sub


فایل نمونه:
[attachment=1132]

[a.miri]

تشکر

بسیا عالی و ممنون جناب شمس العلما:heart:

[arashkian]

حالا یه سوال برای منم که تازه واردم این سوال و دارم که اگه تعداد تکست باکس ها زیاد بشه باید چیکار کرد
ببخشید تاپیک قدیمی رو بالا آوردم خیلی گشتم هیچی پیدا نکردم که به صورت آماتور باشه

[ordouei]

با سللم

خیلی ساده به شکل زیر

Private Sub CommandButton1_Click()
' adres jahat soal = Excel.saeed@gmail.com
'Tarif Moteghayer
Dim emptyRow As Long


'Excel.saeed@gmail.com
' faal kardan sheet mored nazar jahat enteghal dade ha
Sheets("data").Activate


'peyda kardan radif khali ba moteghayer = emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1


'be tedad textbox dar form i radif neveshte mishavad
Cells(emptyRow, 1).Value = TextBox1.Value ' avalin radif dar soton A
Cells(emptyRow, 2).Value = TextBox2.Value ' avalin radif dar soton B
Cells(emptyRow, 3).Value = TextBox3.Value ' avalin radif dar soton C
Cells(emptyRow, 4).Value = TextBox4.Value ' avalin radif dar soton D
Cells(emptyRow, 5).Value = TextBox5.Value ' avalin radif dar soton E


End Sub

با اضافه شدن هر تکست باکس یک ردیف به انتهای برنامه اضافه میشود.
مثلا تکست باکس 6 میشود :
Cells(emptyRow, 6).Value = TextBox5.Value ' avalin radif dar soton F

[ordouei]

Cells(emptyRow, 6).Value = TextBox6.Value ' avalin radif dar soton F

[arashkian]

مرسی از توجه و حسن اخلاق شما
من چند تا یوزر فرم دارم چطور هر کدوم رو شیت خودش هدایت کنم

[ordouei]

با سلام

خیلی خیلی ساده
در مثال بالا خط برنامه

Sheets("data").Activate
در شیت دیتا ثبت میکند کافی است شما این خط را مجدد تایپ و بجای کلمه دیتا نام شیت جدید را وارد کنید .
البته با ورودی های خودش مثلا تکست باکس یا سایر ورودی های یوزر فرم
موفق باشید

[arashkian]

عاشقتم مرسی از لطفت ذوست خوبم