[حل شده] قرار گرفتن اطلاعات در شیت خودش

[rayeagni]

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

[iranweld]

با سلام

کدهای ذیل را در فایل خود اصلاح کنید

Private Sub CommandButton1_Click()

Sheets(ComboBox1.Value).Select

nextrow = Cells(Rows.Count, "A").End(xlUp).Row + 1

Range("A" & nextrow) = TextBox1

Range("b" & nextrow) = TextBox2

End Sub



Private Sub UserForm_Initialize()

For i = 1 To Sheets.Count

    ComboBox1.AddItem Sheets(i).Name

Next
End Sub 

[rayeagni]

با سلام

کدهای ذیل را در فایل خود اصلاح کنید

Private Sub CommandButton1_Click()

Sheets(ComboBox1.Value).Select

nextrow = Cells(Rows.Count, "A").End(xlUp).Row + 1

Range("A" & nextrow) = TextBox1

Range("b" & nextrow) = TextBox2

End Sub



Private Sub UserForm_Initialize()

For i = 1 To Sheets.Count

    ComboBox1.AddItem Sheets(i).Name

Next
End Sub 

دست شما درد نکنه، حل شد.