Sorgulama Kodu

21/05/2022, 17:46

alikagan

merhaba arkadaşlar,
1.kod ) aşağıdaki 1.kod ile renk numarasını sorgulatıyorum, eğer liste kutusundan aynı anda farklı renkler seçildiyse mesaj veriyor,
Rnk_no = ""
Dim varItm As Variant
For Each varItm In Me.Liste25.ItemsSelected
X = Me.Liste25.Column(10, varItm)
If Rnk_no = "" Then Rnk_no = X

If Rnk_no <> "" Then
If Rnk_no = X Then
Rnk_no = X
Else
MsgBox "Farklı renkleri aynı anda seçtiniz. Aynı renk ürünleri seçiniz!!!", vbCritical, "Farklı renk nolu ürünler var"
Exit Sub
End If
End If
Next varItm

2.kod ) aşağıdaki 2.kod ile de ürün en bilgisini sorgulatıyorum, eğer liste kutusundan aynı anda farklı en ürünler seçildiyse mesaj veriyor,

En = ""
Dim varItm1 As Variant
For Each varItm1 In Me.Liste25.ItemsSelected
y = Me.Liste25.Column(17, varItm1)
If En = "" Then En = y

If En <> "" Then
If En = y Then
En = y

Else
MsgBox "Farklı ebatları aynı anda seçtiniz. Aynı ebat ürünleri seçiniz!!!", vbCritical, "Farklı ebatlar var"
Exit Sub
End If
End If
Next varItm1


iki kodu nasıl birleştirebilirim acaba. 
aynı anda hem 
renk no, hem de en bilgisini sorgulasa,
kafam karıştı yapamadım,
21/05/2022, 18:32

berduş

aşağıdaki kodu dener misiniz?
Rnk_no = ""
En = ""
Dim varItm As Variant
For Each varItm In Me.Liste25.ItemsSelected
'Rnk için
X = Me.Liste25.Column(10, varItm)
If Rnk_no = "" Then Rnk_no = X
If Rnk_no <> X Then
MsgBox "Farklı renkleri aynı anda seçtiniz. Aynı renk ürünleri seçiniz!!!", vbCritical, "Farklı renk nolu ürünler var"
Exit Sub
End If
'______________________________________________________
'En için
y = Me.Liste25.Column(17, varItm1)
If En = "" Then En = y
If En <> y Then
MsgBox "Farklı ebatları aynı anda seçtiniz. Aynı ebat ürünleri seçiniz!!!", vbCritical, "Farklı ebatlar var"
Exit Sub
End If
Next varItm
21/05/2022, 21:11

alikagan

sn berdus, teşekkür ederim,
çalıştı.
21/05/2022, 21:14

berduş

Rica ederim
İyi çalışmalar)