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
aşağıdaki kodu dener misiniz?