[حل شده] کمبوباکس وابسته به چند تکس باکس

[a.dal65]

درود به آریا و آریایی
من یه شیت دارم که اطلاعات توش اینطور هست :

نام و نام خانوادگی	شماره واحد	طبقه	بلوک
عطا 1	1	+1	شرقی
عطا 2	2	+1	غربی
عطا 3	3	+1	شرقی
عطا 4	4	همکف	غربی
عطا 5	5	-1	شرقی

حالا میخوام بدونم میشه توی فرم vba
وقتی کاربر شماره واحد رو 5 وارد کرد و طبقه رو -1 وارد کرد و بلوک رو شرقی وارد کرد کمبو باکس عطا 5 بیاره (اسم فرد رو بیاره)

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

[Javid Mokhtari]

درود به آریا و آریایی
من یه شیت دارم که اطلاعات توش اینطور هست :

نام و نام خانوادگی	شماره واحد	طبقه	بلوک
عطا 1	1	+1	شرقی
عطا 2	2	+1	غربی
عطا 3	3	+1	شرقی
عطا 4	4	همکف	غربی
عطا 5	5	-1	شرقی

حالا میخوام بدونم میشه توی فرم vba
وقتی کاربر شماره واحد رو 5 وارد کرد و طبقه رو -1 وارد کرد و بلوک رو شرقی وارد کرد کمبو باکس عطا 5 بیاره (اسم فرد رو بیاره)

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

با سلام.

[a.dal65]

ممنون دوست عزیز واقعا لطف کردید (درست کار میکنه)
فقط من توی فرم خودم قرار دادم
وقتی از توی ListBox ابتدا یک نفر رو بعد یه شخص دیگه انتخاب میکنم خظا میگیره
فکر میکنم جون اطلاعات textbox ها change میشه با انتخاب نفر بعدی خطا میگره
میشه درستش کرد ؟

[majid_mx4]

با سلام

ضمن تشکر از جناب آقای Jansi Hayat با اجازه ایشان

کد های را به شکل زیر تغییر دادم البته اگر درست در نظر گرفته باشم اسامی و .... باید از شیت NameManager گرفته شود نه از شیت 2

Private Sub TextBox8_Change()
Dim Nam As Range
TextBox1.Clear
    For Each Nam In Sheet1.Range("C2", Sheet1.Range("C10000").End(xlUp).Address)
        If TextBox10.Text = Nam.Offset(0, 2) And TextBox9.Text = Nam.Offset(0, 1) And TextBox8.Text = Nam Then
            TextBox1.AddItem Nam.Offset(0, -1)
            TextBox1 = Nam.Offset(0, -1)
        End If
    Next Nam
End Sub
Private Sub TextBox9_Change()
Dim Nam As Range
TextBox1.Clear
    For Each Nam In Sheet1.Range("C2", Sheet1.Range("C10000").End(xlUp).Address)
        If TextBox10.Text = Nam.Offset(0, 2) And TextBox9.Text = Nam.Offset(0, 1) And TextBox8.Text = Nam Then
            TextBox1.AddItem Nam.Offset(0, -1)
            TextBox1 = Nam.Offset(0, -1)
        End If
    Next Nam
End Sub
Private Sub TextBox10_Change()
Dim Nam As Range
TextBox1.Clear
    For Each Nam In Sheet1.Range("C2", Sheet1.Range("C10000").End(xlUp).Address)
        If TextBox10.Text = Nam.Offset(0, 2) And TextBox9.Text = Nam.Offset(0, 1) And TextBox8.Text = Nam Then
            TextBox1.AddItem Nam.Offset(0, -1)
            TextBox1 = Nam.Offset(0, -1)
        End If
    Next Nam
End Sub

موفق باشید میر

[a.dal65]

ممنون از توجه تون چناب میر
من هر دو حالت رو هم چک کردم ولی باز درست نشد(هم از شیت DataUser هم از شیت UserManager)
الان کد شما رو هم تست کردم ولی باز هم همون مشکل رو داره
مشکل توی این حالت پیش میاد که وقتی توی فرم VBA از Listbox یه نفر رو انتخاب میکنید و بعد یه نفر دیگه رو انتخاب میکنید خطا میگیره
شات اسکرین رو خدمتتون ضمیمه کردم.

[majid_mx4]

با سلام
بله ، ولی پیشنهاد بنده در مورد خطای ایجاد شده نبود ، چون شما اسامی را در شیت 1 وارد میکنید پس منبع کنترل اسامی باید شیت 1 باشد نه شیت 2( و نه الزاما بنا به نوع احتیاج )


اگر شما هیچ اسمی در شیت 2 از قبل وارد نکرده باشید نمی توانید از دستورات قبلی استفاده نمایید.برای تست فقط ستون اسامی را بطور موقت حذف کنید با وارد کردن اطلاعات هیچ اسمی نمایش داده نمی شود .




پاینده باشید میر

[majid_mx4]

با سلام مجدد


در مورد مشکلتون این دستور را اول ماکروی خود قرار دهید ببنید درست میشود .

On Error Resume Next

پاینده باشید میر

[a.dal65]

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

[a.dal65]

اطلاعات نام و نام خانوادگی رو با rowsource فرا خوانی کردم درست شد
و چند جا از کد های جناب آقای jansiz hayat رو ویرایش کردم درست شد
ایشالله دیگه مشکلی پیش نیاد
ممنون .

[Javid Mokhtari]

اطلاعات نام و نام خانوادگی رو با rowsource فرا خوانی کردم درست شد
و چند جا از کد های جناب آقای jansiz hayat رو ویرایش کردم درست شد
ایشالله دیگه مشکلی پیش نیاد
ممنون .

فرمی که من فرستادم کلی بود تا مشخص بشه دقیقا نیاز شما چیه. مسلما باید به نسبت خطاها کدها ویرایش شود.

خداروشکر که با پاسخگوئی عزیزان مشکلتون حل شد.

[mobinsaffarpour]

جناب آقای دلیران
باسلام
لطفاً فایل نهائی رو هم برای یادگیری دوستانی چون بنده قرار دهید. باتشکر

[a.dal65]

جناب آقای دلیران
باسلام
لطفاً فایل نهائی رو هم برای یادگیری دوستانی چون بنده قرار دهید. باتشکر

چشم دوست عزیز خدمتتون.

فرمی که من فرستادم کلی بود تا مشخص بشه دقیقا نیاز شما چیه. مسلما باید به نسبت خطاها کدها ویرایش شود.

خداروشکر که با پاسخگوئی عزیزان مشکلتون حل شد.

اتفاقا باز هم مجبور شدم ویرایش کنم البته نه کد شما رو ،
قسمتی که شما زحمتشو کشیدین بازگشت به حالت اول
باز هم از جناب میر و مخصوصا شما تشکر میکنم.