[حل شده] پر شدن سایر تکست باکس ها با ثبت تکست باکس اول در یوزر فرم

[younes672]

باسلام
دوستان یه فرم طراحی کردم برای ثیت اطلاعات، میخواستم با ثبت کم باکس اول(نما) دو تکست باکس شرکت و صنعت که در فرم مشخص شده اند به صورت خودکار از شیت aaa پر شوند.

[iranweld]

با سلام

کدهای ذیل را به کدهای خود اضافه کنید

Private Sub ComboBox1_Change()

Dim z1, i

z1 = Sheets("کاوش").Cells(Sheets("کاوش").Rows.Count, "b").End(xlUp).Row


For i = 1 To z1

If ComboBox1 = Sheets("کاوش").Range("b" & i) Then

TextBox2 = Sheets("کاوش").Range("c" & i)

TextBox3 = Sheets("کاوش").Range("d" & i)

Exit For

Else

TextBox2 = ""
TextBox3 = ""

End If

Next


End Sub 

[younes672]

با سلام کدهای ذیل را به کدهای خود اضافه کنید

Private Sub ComboBox1_Change() Dim z1, i z1 = Sheets("کاوش").Cells(Sheets("کاوش").Rows.Count, "b").End(xlUp).Row For i = 1 To z1 If ComboBox1 = Sheets("کاوش").Range("b" & i) Then TextBox2 = Sheets("کاوش").Range("c" & i) TextBox3 = Sheets("کاوش").Range("d" & i) Exit For Else TextBox2 = "" TextBox3 = "" End If Next End Sub 

عالی بود
تشکر
امکانش هست تکست باکس تاریخ ازطریق تاریخ سیستم با قابلیت تغییر تاریخ (با نمایش جدول تاریخ شمسی)ثبت شود.

[iranweld]

با سلام

در فایل پیوست تاریخ شمسی به فرم اضافه شده است

[younes672]

واقعا سپاسگزارم