[حل شده] راهنمای در مورد کامبو باکس

[میثم مقدم نیا]

سلام

تو فایل پیوست چند کامبو باکس دارم که آیتم های همه یکی هست
آیا امکانش هست وقتی توی یکی از کامبو باکس ها یک مورد را انتخاب کرد در کامبو باکس های دیگه او مورد نباشه و الا آخر
ممنون میشم اگه راهنماییم کنید

[iranweld]

با سلام

در یوزر فرم یک تا کمبوباکس 6 انجام شد بقیه رو کپی و پیست کنید و نام کمبو باکس را در کدها تغییر دهید

[میثم مقدم نیا]

با سلام

در یوزر فرم یک تا کمبوباکس 6 انجام شد بقیه رو کپی و پیست کنید و نام کمبو باکس را در کدها تغییر دهید

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

Sub ComboBox()

    For i = 2 To z2
    
        If Sheet2.Range("b" & i) = "ComboBox1" Then
        
        Sheet2.Range("b" & i) = ""
        
        Sheet2.Range("c" & i) = ""

    End If

    If Sheet2.Range("A" & i) = ComboBox1 Then
    
        Sheet2.Range("b" & i) = "ComboBox1"
        
        Sheet2.Range("c" & i) = Sheet2.Range("A" & i)

    End If

Next

For i = 1 To 16 

   If UserForm1.Controls("ComboBox" & i) = "" Then

 UserForm1.Controls("ComboBox" & i).Clear
    
        For j = 2 To z2
        
            UserForm1.Controls("ComboBox" & i).AddItem Sheet2.Range("e" & j)
        
        Next
    
    Next

End Sub 

امکان نیست که این کد را حلقه کنیم تا این کد را برای همه کمبو باکس ها وارد نکنیم