[حل شده] 3 کمبوباکس وابسته به هم در UserForm

[a.dal65]

با درود

دوستان 3 تا کمبو باکس دارم که به هم وابسته هستن و میخوام از توی Userform کار کنه و دیتاشو از رنج ستون ها بگیره (البته اگه شدنش سخته و پیچیده میشه 2 تا کمبوباکس اول رو میشه با AddItem توی UserForm اضافه کرد ولی سومی رو نه)

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

[Ali Parsaei]

سلام،
کشور و استان را به عنوان مثال گفتيد؟ يا اينکه هر چيز ديگه اي ممکن است باشد؟

[a.dal65]

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

[misammisam]

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

Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox3.Clear
lastrow_Table = Sheet1.Range("a:o").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To lastrow_Table
cell_B_active = Sheet1.Range("b" & i).Value
tedad = Application.WorksheetFunction.CountIf(Sheet1.Range("b1:b" & i), cell_B_active)
If (Range("A" & i) = ComboBox1.Value And tedad = 1) Then
ComboBox2.AddItem (Range("B" & i).Value)
End If
Next i
End Sub


Private Sub ComboBox2_Change()
On Error Resume Next
ComboBox3.Clear
lastrow_Table = Sheet1.Range("a:o").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To lastrow_Table
cell_C_active = Sheet1.Range("C" & i).Value
tedad = Application.WorksheetFunction.CountIf(Sheet1.Range("C1:C" & i), cell_C_active)
If (Range("A" & i).Value = ComboBox1.Value And Range("B" & i).Value = ComboBox2.Value And tedad = 1) Then
ComboBox3.AddItem (Range("C" & i).Value)
End If
Next i
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
lastrow_Table = Sheet1.Range("a:o").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To lastrow_Table
cell_A_active = Sheet1.Range("A" & i).Value
tedad = Application.WorksheetFunction.CountIf(Sheet1.Range("a1:a" & i), cell_A_active)
If (tedad = 1) Then
ComboBox1.AddItem (Range("A" & i).Value)
End If
Next i
End Sub 

[Ali Parsaei]

يک روشي هم من به نظرم رسيد بد نيست اون را هم بنويسم:
تمام مقادير ستون a را در کمبوبکس اول بار گيري مي کنيم ـ ـ بعد موارد تکراري اش را حذف مي کنيم
تمام مقادير ستون b را در کمبوبکس دوم بارگيري مي کنيم به شرط اينکه هم ارز آن در ستون a مقدار انتخابي در کمبوبکس يک باشد ـ ـ بعد موارد تکراري اش را حذف مي کنيم
تمام مقادير ستون c را در کمبوبس سوم بارگيري مي کنيم به شرط اينکه هم ارز آن در ستون b مقدار انتخابي در کمبوبکس دو باشد ـ ـ بعد موارد تکراري اش را حذف مي کنيم

[a.dal65]

ممنونم از هر دو عزیز بابت زحمت و وقتی که گذاشتین.

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

و فایلی که آقای پارسایی زحمتشو کشیدن در حالت فیلتر کردن جدول هم کار میکنه ممنون میشم اگه با اعداد هم کار کنه (استان عدد هم میتونه باشه)

[Ali Parsaei]

مقدار کمبوبکس ها را value نوشته بودم ولي بايد text باشد، فرضا" به جاي combobox1.value بايد مينوشتم combobox1.text
ببينيد درست شد؟: