mevcut sayıları rastgele karıştırma

[karahan61]

Merhabalar

ÖRNEK :H sutununda bulunan 1 den 500 e kadar sıralı olan sayıları kadla isteğe bağlı olarak tıklamayla rastgele karıştırmak ve sayılar karışırken bir hücrede görmek mümkün ise; yardımcı olursanız minnet duyarım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod 1-500 arasında rastgele sayı üretir. D1 hücresinde üretilen sayı 50 milisaniye aralıklarla gösterilir ve A sütununa alt alta listelenir.

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub KARIŞTIR_LİSTELE()
    Dim SAYI As Integer, SATIR As Integer
    
    Range("A:A").ClearContents
    SATIR = 1
    
BAŞLA:
    DoEvents
    Randomize
    SAYI = Int((Rnd() * 500) + 1)
    Sleep (50)
    Range("D1") = SAYI
    If WorksheetFunction.CountIf(Range("A:A"), SAYI) > 0 Then GoTo BAŞLA
    Cells(SATIR, 1) = SAYI
    SATIR = SATIR + 1
    If WorksheetFunction.CountA(Range("A:A")) < 500 Then GoTo BAŞLA
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[revelte]

Merhabalar

ÖRNEK :H sutununda bulunan 1 den 500 e kadar sıralı olan sayıları kadla isteğe bağlı olarak tıklamayla rastgele karıştırmak ve sayılar karışırken bir hücrede görmek mümkün ise; yardımcı olursanız minnet duyarım.

Ben soruyu daha farklı anladım.
Ekteki belge H kolonundaki herhangi bir veriyi I kolonuna karıştırarak yazar.

 

[karahan61]

Korhan bey yazmış olduğunuz kod istediğim gibi ancak istediğim H sutununa benim yazmış olduğum rakamların karışık sıralanması
REVELTE arkadaşımın anladığı gibi ..her ikinizede teşekkür ederim