جستجو بر اساس کمبو باکس

**ali.b** · 2019/08/15, 09:41

نوشته اصلی توسط سید مسعود قمی

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

داخل فرم وی بی ای اکسلم یک کمبوباکس که حدود 30 آیتم داره و یک تکس باکس دارم
میخوام با کلیک بر روی هر یک از آیتم های کمبوباکس مراحل زیر رو یکی یکی انجام بشه
1. با کلیک روی هر یک از آیتم های کمبوباکس بیاد شیت1 رو فیلتر کنه
2. داخل ستون a از شیت 1 دنبال تکس (متن آیتم انتخاب شده) کمبوباکس انتخاب شده بگرده
3. بعد از پیدا کردم آیتم موردنظر محتوی آخرین ردیف ستون B از شیت1رو که عدد هست +1 کنه و داخل تکس باکس فرم بریزه
4. در آخرین مرحله شیت 1 از فیلتر خارج بشه

سلام سوالتون کمی مبهم هست اخرین ردیف ستون b یعنی ردیف منتاظرستون a یابعد ازفیلتر ستون a، هر داده ای که در ستونb نمایش داده میشه به اخرین عدد اون یک واحد اضافه شه؟
یکفایل نمونه قرار بدین بهتره شاید اصلانیازبه فیلتر نباشه با کد نویسی مستقیما اعمال شه

**سید مسعود قمی** · 2019/08/15, 10:18

سلام بله دقیقا منظورم همینه
میخوام بهد از فیلتر شیت۱ دنبال محتوای تکس کمبوباکس داخل ستون aبگرده وقتی پیدا کرد بیاد محتوی اخرین ردیف ستون b رو +1 کنه و داخل تکسباکس فرم بریزه

**ali.b** · 2019/08/16, 00:09

نوشته اصلی توسط سید مسعود قمی

سلام بله دقیقا منظورم همینه
میخوام بهد از فیلتر شیت۱ دنبال محتوای تکس کمبوباکس داخل ستون aبگرده وقتی پیدا کرد بیاد محتوی اخرین ردیف ستون b رو +1 کنه و داخل تکسباکس فرم بریزه

سلام امیدوارم درست فهمیده باشم البته من دیگه فیلتر اعمال نکردم مستقیما جواب رو نوشتم

کد:

Private Sub ComboBox1_Change()
Dim list1 As New Collection
On Error Resume Next
z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = z1 To 1 Step -1
If Range("A" & i) = ComboBox1.Text Then
list1.Add Range("A" & i).Address, CStr(Range("A" & i))
End If
Next

Range(list1.Item(1)).Offset(0, 1) = Application.WorksheetFunction.Sum(Range(list1.Item(1)).Offset(0, 1)) + 1
TextBox1.Text = Range(list1.Item(1)).Offset(0, 1)

 End Sub

**سید مسعود قمی** · 2019/08/16, 04:26

سلام دادش گلم بسیار ازت ممنونم که وقت گذاشتی اما کاربردی نداشت
به نظر من اون چیزی که میخوام راهش همینه که عرض کردم
داخل فرم وی بی ای اکسلم یک کمبوباکس که حدود 30 آیتم داره و یک تکس باکس دارم
میخوام با کلیک بر روی هر یک از آیتم های کمبوباکس مراحل زیر رو یکی یکی انجام بشه
1. با کلیک روی هر یک از آیتم های کمبوباکس بیاد شیت1 رو فیلتر کنه
2. داخل ستون a از شیت 1 دنبال تکس (متن آیتم انتخاب شده) کمبوباکس انتخاب شده بگرده
3. بعد از پیدا کردم آیتم کمبوباکس داخل ستون A، بیاد محتوی آخرین ردیف ستون B از شیت1رو که عدد هست +1 کنه کپی بگیره و داخل تکس باکس فرم بریزه
4. در آخرین مرحله شیت 1 از فیلتر خارج بشه

**سید مسعود قمی** · 2019/08/16, 18:51

1. با کلیک روی هر یک از آیتم های کمبوباکس بیاد شیت1 رو فیلتر کنه
2. داخل ستون c از شیت 1 دنبال تکس (متن آیتم انتخاب شده) کمبوباکس انتخاب شده بگرده
3. بعد از پیدا کردم آیتم کمبوباکس داخل ستون c، بیاد محتوی آخرین ردیف ستون d از شیت1رو که عدد هست +1 کنه کپی بگیره و داخل تکس باکس فرم بریزه
4. در آخرین مرحله شیت 1 از فیلتر خارج بشه

سلام دوستان مرحله 1،2،4 رو انجام دادم
فقط مرحله 3 مانده

لطفا راهنمایی کنید که چگونه محتوای آخرین سلول ستون d رو بعد از فیلتر ستون c [ATTACH=CONFIG]19656[/ATTACH]را 1+ کنم وکپیش رو بریزم داخل تکس باکس شماره جلسه

- - - Updated - - -

1. با کلیک روی هر یک از آیتم های کمبوباکس بیاد شیت1 رو فیلتر کنه
2. داخل ستون c از شیت 1 دنبال تکس (متن آیتم انتخاب شده) کمبوباکس انتخاب شده بگرده
3. بعد از پیدا کردم آیتم کمبوباکس داخل ستون c، بیاد محتوی آخرین ردیف ستون d از شیت1رو که عدد هست +1 کنه کپی بگیره و داخل تکس باکس فرم بریزه
4. در آخرین مرحله شیت 1 از فیلتر خارج بشه

سلام دوستان مرحله 1،2،4 رو انجام دادم
فقط مرحله 3 مانده

لطفا راهنمایی کنید که چگونه محتوای آخرین سلول ستون d رو بعد از فیلتر ستون c را 1+ کنم وکپیش رو بریزم داخل تکس باکس شماره جلسه