پرسش راهنمایی درمورد userforms

[sdalton]

سلام وقت بحیر خدمت همه دوستان

من ی فرم ثبت اطلاعات درست کردم ولی قسمت یوزر فرمش عمل نمیکنه یعنی میکنه ولی قاطی پاتی ثبت میکنه میره ردیف آخر و اینکه تعدا ثبت من زیاد باشه خود ب خود زیر لیست اضافه میشه ؟ ی سرچ باکس بخوام اضافه کنم چطوری میشه ممنون میشم این فایل و برام ادیت کنید
نتونستم تو سایت آپلود کنم ببخشید

http://s6.picofile.com/file/8385334492/test.xlsm.html

[sdalton]

فریاد رسی نیست ؟ دوستان واقعا نیاز به کمکتون دارم

[iranweld]

با سلام



در فرم شما textbox4 وجود ندارد. بهمین خاطر با ارورر مواجه میشوید

[sdalton]

ممنون دوست عزیز ولی این تو کد vba مشکل داره اطلاعات ثبت نمیشه تو شیت یعنی نه ذخیره کار میکنه نه پاکسازی

[iranweld]

این کد را جایگزین کد قبلی کنید

برای ذخیره کردن

Private Sub CommandButton1_Click()

Dim last_row
 
last_row = Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "A").End(xlUp).Row+1

If last_row = 3 And Sheets("Sheet2").Cells(last_row - 1, 1) = "" Then last_row = 2
 
 Sheets("Sheet2").Cells(last_row, 1) = TextBox1.Text
 Sheets("Sheet2").Cells(last_row, 2) = TextBox2.Text
 Sheets("Sheet2").Cells(last_row, 3) = TextBox3.Text
 Sheets("sheet2").Cells(last_row, 4) = TextBox4.Text


End Sub 

[sdalton]

این کد را جایگزین کد قبلی کنید

برای ذخیره کردن

Private Sub CommandButton1_Click()

Dim last_row
 
last_row = Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "A").End(xlUp).Row+1

If last_row = 3 And Sheets("Sheet2").Cells(last_row - 1, 1) = "" Then last_row = 2
 
 Sheets("Sheet2").Cells(last_row, 1) = TextBox1.Text
 Sheets("Sheet2").Cells(last_row, 2) = TextBox2.Text
 Sheets("Sheet2").Cells(last_row, 3) = TextBox3.Text
 Sheets("sheet2").Cells(last_row, 4) = TextBox4.Text


End Sub 

ممنونم دوست عزیز
قسمت ذخیره ش درست شد. کد مربوط به ریست شدن و چی باید بذارم ؟ و اینکه موقع ثبت کردن داده اینطوری جابجا ثبت میشه علتش چیه ؟ مثلا قسمت دسته بندی اسم میره یا بقیه ستنون ها کامل نمیشه با اینکه تو اون فرم کامل میکنم

[iranweld]

فایل پیوست را بررسی کنید

شما که زحمت کشیدید فرم طراحی کردید اینکارهای اولیه رو هم باید بلد باشید.

[sdalton]

فایل پیوست را بررسی کنید

شما که زحمت کشیدید فرم طراحی کردید اینکارهای اولیه رو هم باید بلد باشید.

ممنونم بزرگوار لطف کردی

فقط ی سوال آخر من ی باتم دیگه رو فرمم ایجاد کردم میخوام لینکش کنم به شیت دوم یعنی روش کلیک میشه اون اطلاعات شیت دوم و نشون بده چه کامندی باید بنویسم ؟

[iranweld]

ممنونم بزرگوار لطف کردی

فقط ی سوال آخر من ی باتم دیگه رو فرمم ایجاد کردم میخوام لینکش کنم به شیت دوم یعنی روش کلیک میشه اون اطلاعات شیت دوم و نشون بده چه کامندی باید بنویسم ؟

Sheets("sheet2").Select

[sdalton]

file.xlsx

Sheets("sheet2").Select

من شرمنده م اینقدر سوال میپرسم
تو اون شیت اطلاعات وقتی ی ردیف یا کلا تمام اطلاعات و پاک میکنم مجدد اقدام به ثبت اطلاعات میکنم از آخرین ردیف اطلاعات ثبت میشه یعنی ردیف های بالاش خالیه من ی مدل هم اضافه کردم که ردیف خودکار اضافه بشه , ی مورد دیگه اینکه وقتی فرم بازه نمیشه روی شیت کلیک کنم ویرایش کنم از روی شیت .حتما باید دوتا فرم و ببندم این راهکاری نداره ؟

اون فایل final درسته

[sdalton]

اساتید امکانش هست راهنمایی کنید بنده رو

[iranweld]

اساتید امکانش هست راهنمایی کنید بنده رو

این کد را جایگزین کد قبلی کنید

Private Sub CommandButton1_Click()

Dim last_row
 
last_row = Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "A").End(xlUp).Row + 1

For I = 2 To last_row

If Len(Sheets("Sheet2").Cells(I, 1)) = 0 Then

 Sheets("Sheet2").Cells(I, 1) = ComboBox1.Text
 Sheets("Sheet2").Cells(I, 2) = TextBox1.Text
 Sheets("Sheet2").Cells(I, 3) = TextBox2.Text
 Sheets("Sheet2").Cells(I, 4) = TextBox3.Text
 Sheets("sheet2").Cells(I, 5) = TextBox4.Text
 Sheets("sheet2").Cells(I, 6) = TextBox5.Text
 Sheets("sheet2").Cells(I, 7) = TextBox6.Text
 Sheets("sheet2").Cells(I, 8) = ComboBox2.Text
 
 Exit For
 
End If

Next

End Sub