aynı seçim 1 den fazla comboboxda var ise?

[ercens]

merhabalar,

aşağıdaki kod standart bir aktarmadan ibaret, 1 den fazla comboboxlarım var ,
comboboxlarda seçim sırasında kullanıcı dikkatsizliği ile aynı seçim 2-3 comb.box da olmasın istiyorum yani uyarı versin işlemi yapamasın ,
açıkcası formülü yazamadım yardımcı olabilirmisiniz?



Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte

Satır = S1.Range("A65536").End(3).Row + 1

S1.Cells(Satır, "A") = Satır - 2
S1.Cells(Satır, "B") = TextBox11.Text

If ComboBox1.Value = ComboBox2.Value Then
ComboBox1.Enabled = False ' bura neyapmam gerekiyor?
Else

S1.Cells(Satır, ComboBox1.ListIndex + 3) = TextBox1.Text
S1.Cells(Satır, ComboBox2.ListIndex + 3) = TextBox2.Text
S1.Cells(Satır, ComboBox3.ListIndex + 3) = TextBox3.Text
S1.Cells(Satır, ComboBox4.ListIndex + 3) = TextBox4.Text
S1.Cells(Satır, ComboBox5.ListIndex + 3) = TextBox5.Text
S1.Cells(Satır, ComboBox6.ListIndex + 3) = TextBox6.Text
S1.Cells(Satır, ComboBox7.ListIndex + 3) = TextBox7.Text
S1.Cells(Satır, ComboBox8.ListIndex + 3) = TextBox8.Text
S1.Cells(Satır, ComboBox9.ListIndex + 3) = TextBox9.Text
S1.Cells(Satır, ComboBox10.ListIndex + 3) = TextBox10.Text


MsgBox "Kayıt edildi.", vbInformation, ""
End If

End Sub