پرسش ایجاد vlookup و combo box در یوزر فرم

[reza_gh_tak]

کمبو باکس و vlookup نحوه اتصال کمبو باکس در داخل فرم به تکست باکس میخوام با vlook up که از روی کمبو باکس میخونه اطلاعات من داخل textbox بیاد من نمونه اش رو تو اکسل ایجاد کردم ولی تو فرم ویژوال به مشکل میخورم ممنون می شم کمکم کنید
توی اکسل ایجاد کردم اما تو ویژوال و فرم نتونستم

[mrhartsclube]

کمبو باکس و vlookup نحوه اتصال کمبو باکس در داخل فرم به تکست باکس میخوام با vlook up که از روی کمبو باکس میخونه اطلاعات من داخل textbox بیاد من نمونه اش رو تو اکسل ایجاد کردم ولی تو فرم ویژوال به مشکل میخورم ممنون می شم کمکم کنید
توی اکسل ایجاد کردم اما تو ویژوال و فرم نتونستم

سلام دوست عزیز
شما میتونید از کد زیر استفاده کنید که n تعداد ستونهای شماست بجز ستون کد پرسنلی و رنج A1:A22 هم رنج ستون کد پرسنلیتون هست که میتونید A:A بدارید ولی یه عالمه آیتم خالی به ComboBox اضافه میکنه:

Private Sub ComboBox1_Change()
Dim n As Integer        'Columns And TextBoxes Number
n = 3
For i = 1 To n
    Me("TextBox" & i).Text = Cells(ComboBox1.ListIndex + 1, i + 1)
Next i
End Sub


Private Sub UserForm_Initialize()
Dim DataRow As Variant
DataRow = Range("A1:A22").Value     'Data Column Range
ComboBox1.List = DataRow
End Sub

فرم شما باید یه ComboBox داشته باشه و به تعداد ستونهای مورد نظرتون TextBox با اسمهایی که ترتیبشون با ترتیب ستونهای شما یکی باشه، مثلا TextBox3 ستون چهارم شما رو نشون میده و TextBox4 ستون پنجم. چون ستون اولمون کد پرسنلیه از ستون دوم وارد TextBox میکنیم.
الان شما توی شیتتون اطلاعات از سطر 4 شروع شده پس خط پنجم به کد زیر تغییر میکنه:

Me("TextBox" & i).Text = Cells(ComboBox1.ListIndex  + 4, i + 1)

[reza_gh_tak]

آیا امکان باز شدن یک فرم داخل کادر فرم دیگر وجود دارد؟

[Amir Ghasemiyan]

آیا امکان باز شدن یک فرم داخل کادر فرم دیگر وجود دارد؟

در تاپيك ديگه پاسخ سوالتون رو عرض كردم

https://forum.exceliran.com/showthread.php/15344