Comboboxlar arası kontrol

[taseraydin]

5 adet combobox aynı yerden veri almaktadır,
bundan dolayı comboboxlar açıldığında aynı veri geliyor,
herhangi bir comboboxtan seçilen veri diğer combobox larda görünmesini nasıl engelleyebilir

 

[İhsan Tank]

5 adet combobox aynı yerden veri almaktadır,
bundan dolayı comboboxlar açıldığında aynı veri geliyor,
herhangi bir comboboxtan seçilen veri diğer combobox larda görünmesini nasıl engelleyebilir

Merhaba
Userform'un kod bölümüne

Option Explicit
Private Sub ComboBox1_Change()
Dim ts
For ts = 6 To Cells(65536, "C").End(xlUp).Row
If Cells(ts, "C") <> ComboBox1 Then
ComboBox2.AddItem Cells(ts, "C")
End If
Next
End Sub
Private Sub ComboBox2_Change()
Dim ts
For ts = 6 To Cells(65536, "C").End(xlUp).Row
If Cells(ts, "C") <> ComboBox1 And Cells(ts, "C") <> _
ComboBox2 Then
ComboBox3.AddItem Cells(ts, "C")
End If
Next
End Sub
Private Sub ComboBox3_Change()
Dim ts
For ts = 6 To Cells(65536, "C").End(xlUp).Row
If Cells(ts, "C") <> ComboBox1 And Cells(ts, "C") <> _
ComboBox2 And Cells(ts, "C") <> ComboBox3 Then
ComboBox4.AddItem Cells(ts, "C")
End If
Next
End Sub
Private Sub ComboBox4_Change()
Dim ts
For ts = 6 To Cells(65536, "C").End(xlUp).Row
If Cells(ts, "C") <> ComboBox1 And Cells(ts, "C") <> _
ComboBox2 And Cells(ts, "C") <> ComboBox3 And Cells(ts, "C") _
<> ComboBox4 Then
ComboBox5.AddItem Cells(ts, "C")
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim ts
For ts = 6 To Cells(65536, "C").End(xlUp).Row
ComboBox1.AddItem Cells(ts, "C")
Next
End Sub

Bu kodları kopyalayın ve deneyin.

 

[taseraydin]

Ilginize emeğinize teşekür ederim üstad

 

[İhsan Tank]

Ilginize emeğinize teşekür ederim üstad

Rica ederim
:keyif: