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