seçili bir kod diğer comboboxta da seçilirse uyarı versin

[olymposss]

excel dostlarına SAYGILAR.

arkadaşlar bir userform ve userformda 3 tane combobox var.bu comboboxlar rowsource ile belli bir sayfadan veri almaktalar. ancak 1. comboboxta seçilmiş bir verinin 2. ve 3. comboboxta seçildiği anda uyarı vermesi. yani mükerrer seçim yapmaması. her combobox kod değeri birinden farklı olması. aynı olduğu anda seçimi yapmasın.

yardımlarınız için çok teşekkür ederim. :yardim:


-----------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[Levent Menteşoğlu]

Eğer comboboxlara aynı aralıktan veri yükledi iseniz, listindex değerlerini karşılaştırın. Örneğin,

Private Sub ComboBox1_Click()
if combobox1.listindex=combobox2.listindex then
msgbox "aynı veri seçilemez"
combobox1=""
end if
End Sub

 

[olymposss]

sn leventm

2 adet cobobox varken oluyor ancak birden fazla combobox için aşağıdaki gibi denedim ama olmadı. bir incelermisiniz.

Private Sub T1_Click()
Set a = Array(T2, T3, T4)
If T1.ListIndex = a.ListIndex Then
MsgBox "Faturada aynı üründen birden fazla olamaz. "
T1 = ""
U1 = ""
F1 = ""
End If
End Sub

T2,T3,T4 diğer comboboxlar.

saygılar.elinize sağlık.:???:
-----------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[olymposss]

arkadaşlar yardımlarınızı bekliyorum

buradaki herkese teşekkür ederim. saygılar:yardim:

 

[olymposss]

lütfen biri beni duysun

:yardim: :yardim: :yardim:

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[Orion1]

Merhaba.
Aşağıdaki kodları bir denermisiniz?
Combobox1 için

Private Sub ComboBox1_Click()
If ComboBox1.Value = ComboBox2.Value Or ComboBox1.Value = ComboBox3.Value Then
    MsgBox "Mükerrer Seçim", vbCritical, "E V R E N"
    ComboBox1.SetFocus
    ComboBox1.SelStart = 0
    ComboBox1.SelLength = Len(ComboBox1)
    Exit Sub
End If
End Sub

combobox2 için

Private Sub ComboBox2_Click()
If ComboBox2.Value = ComboBox1.Value Or ComboBox2.Value = ComboBox3.Value Then
    MsgBox "Mükerrer Seçim", vbCritical, "E V R E N"
    ComboBox2.SetFocus
    ComboBox2.SelStart = 0
    ComboBox2.SelLength = Len(ComboBox2)
    Exit Sub
End If
End Sub

combobox3 için

Private Sub ComboBox3_Click()
If ComboBox3.Value = ComboBox1.Value Or ComboBox3.Value = ComboBox2.Value Then
    MsgBox "Mükerrer Seçim", vbCritical, "E V R E N"
    ComboBox3.SetFocus
    ComboBox3.SelStart = 0
    ComboBox3.SelLength = Len(ComboBox3)
    Exit Sub
End If
End Sub

 

[olymposss]

sayın leventm hocam ve sayın sezar

saygılar ve iyi günler

birçok şeyi bu siteden ve sizlerden öğrendiğimi söylemek isterim.yardımlarınız için çok teşekkür ederim. en son eklenen kodlar işimi çok iyi gördü. çek teşekkürler. emeğinize sağlık.
bazı arkadaşlara bildiğim konularda cevap yazmaya çalışıyorum. ama o kadar güzel bir paylaşım varki ben yetişmeden başkaları cevabını veriyorlar.
herkese sonsuz teşekkürler.

saygılar.:hey:

 

[teknadir]

Merhaba.
Aşağıdaki kodları bir denermisiniz?
Combobox1 için

Private Sub ComboBox1_Click()
If ComboBox1.Value = ComboBox2.Value Or ComboBox1.Value = ComboBox3.Value Then
    MsgBox "Mükerrer Seçim", vbCritical, "E V R E N"
    ComboBox1.SetFocus
    ComboBox1.SelStart = 0
    ComboBox1.SelLength = Len(ComboBox1)
    Exit Sub
End If
End Sub

combobox2 için

Private Sub ComboBox2_Click()
If ComboBox2.Value = ComboBox1.Value Or ComboBox2.Value = ComboBox3.Value Then
    MsgBox "Mükerrer Seçim", vbCritical, "E V R E N"
    ComboBox2.SetFocus
    ComboBox2.SelStart = 0
    ComboBox2.SelLength = Len(ComboBox2)
    Exit Sub
End If
End Sub

combobox3 için

Private Sub ComboBox3_Click()
If ComboBox3.Value = ComboBox1.Value Or ComboBox3.Value = ComboBox2.Value Then
    MsgBox "Mükerrer Seçim", vbCritical, "E V R E N"
    ComboBox3.SetFocus
    ComboBox3.SelStart = 0
    ComboBox3.SelLength = Len(ComboBox3)
    Exit Sub
End If
End Sub

Benim çalışmamda 25 adet combobox var.

If ComboBox3.Value = [COLOR="Red"]ComboBox1.Value Or ComboBox3.Value[/COLOR] =

satırında (kırmızı işaretlediğim kodları) 25 comboboxa yer vermek ve her combox için bu kodu yazmaktan daha kısa yol var mı?

 

[Levent Menteşoğlu]

Benim çalışmamda 25 adet combobox var.

If ComboBox3.Value = [COLOR=red]ComboBox1.Value Or ComboBox3.Value[/COLOR] =

satırında (kırmızı işaretlediğim kodları) 25 comboboxa yer vermek ve her combox için bu kodu yazmaktan daha kısa yol var mı?

Class modül uygulamalarını inceleyiniz.

 

[teknadir]

Link verebilir misiniz?