alt = 1
ust = 5
adet = 5
Dim ustP1 As Long, i As Long, j As Long
Dim aa() As Variant, temp As Variant
If alt > ust Then temp = alt: alt = ust - 1: ust = temp Else alt = alt - 1
ReDim temp(1 To ust - alt)
For i = ust - alt To 1 Step -1
temp(i) = i
Next
ustP1 = UBound(temp) + 1
If adet > UBound(temp) Then adet = UBound(temp)
ReDim aa(1 To adet, 1 To 1)
For i = 1 To adet
j = i + Int(Rnd * (ustP1 - i))
aa(i, 1) = temp(j) + alt: temp(j) = temp(i)
Cells(i, 1) = aa(i, 1)
Next i
şimdiki yeni problemim ise rastgele yerleştir eklentisinde form üzerine yerleştirdiğim liste kutusunda ders Excel dosyasında aynı sütüna yerleşen sınıfların listesini çıkardım.istiyorum ki liste kutusu boş olsun yani aynı sütünda bir sınıf bir defa yazsın.umarım sorumu açıklayabilmişimdir.teşekkür ederim.