Benzersiz dağıtma

[mehmetaltin]

A1 ile A10 arasına yazdığım sayıları mesela C4,C7,C10,H5,H8,H10 hücrelerine aynı sayı gelmeyecek şekilde nasıl dağıtabilirim...

 

[YUSUF44]

aşağıdaki gibi bir kod hazırladım, kod istediğim her şeyi doğru yapıyor, rastgele dağıtma hariç. Normalde

k = Cells(hücre, "A").Value

satırıyla o anki hücreye seçilen değeri yazdırması lazım ama yapmıyor nedense:

Sub dağıt()
For Each k In Range("C4, C7, C10, H5, H8, H10")
10:
hücre = WorksheetFunction.RandBetween(1, 10)
Cells(hücre, "A").Select 'bu satır kontrol için
If [C4] = Cells(hücre, "A") Or [C7] = Cells(hücre, "A") Or [C10] = Cells(hücre, "A") _
Or [H5] = Cells(hücre, "A") Or [H8] = Cells(hücre, "A") Or [H10] = Cells(hücre, "A") Then GoTo 10
k = Cells(hücre, "A").Value
Next
End Sub

 

[YUSUF44]

Aşağıdaki gibi olması gerekiyormuş:

Sub dağıt()
[B][COLOR="Red"]Dim k As Range[/COLOR][/B]
For Each k In Range("C4, C7, C10, H5, H8, H10")
10:
hücre = WorksheetFunction.RandBetween(1, 10)
Cells(hücre, "A").Select 'bu satır kontrol için
If [C4] = Cells(hücre, "A") Or [C7] = Cells(hücre, "A") Or [C10] = Cells(hücre, "A") _
Or [H5] = Cells(hücre, "A") Or [H8] = Cells(hücre, "A") Or [H10] = Cells(hücre, "A") Then GoTo 10
k = Cells(hücre, "A").Value
Next
End Sub

 

[mehmetaltin]

hocam bunun normal formülle yapma imakanımız var mı?

 

[YUSUF44]

Varsa da ben bilmiyorum.

 

[mehmetaltin]

teşekkürler hocam